9
VBS Scrip - Datenbankabfrage für Netz-Laufwerke spezifizieren
Hallo zusammen,
Ich habe folgenden Code:
Hier werden alle Netz-Lw ausgelesen und ausgegeben.
Wie kann ich das jedoch auf bestimmte (in meinem Fall vorerst auf ein U: ) Netz-Lw eingrenzen?
Danke für eure Prog-Unterstützung
Grüße
Ich habe folgenden Code:
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDrives = objWMIService.ExecQuery ("Select * from Win32_NetworkConnection",,48)
For Each objDrive in colDrives
On Error Resume Next
VolumeLetter = UCase(objDrive.LocalName)
Path = LCase(objDrive.RemotePath)
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_MappedLogicalDisk WHERE Name = '" & VolumeLetter & "'",,48)
For each objDisk in colDisks
Dim Space
Space = FormatPercent(objDisk.FreeSpace / objDisk.Size,0)
Dim Size
Size = FormatNumber(objDisk.Size / 1073741824,2,-1) & " GB "
Next
Echo "[ " & VolumeLetter & " ] " & Space & " frei auf " & Size
NextHier werden alle Netz-Lw ausgelesen und ausgegeben.
Wie kann ich das jedoch auf bestimmte (in meinem Fall vorerst auf ein U: ) Netz-Lw eingrenzen?
Danke für eure Prog-Unterstützung
Grüße
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 274211
Url: https://administrator.de/contentid/274211
Ausgedruckt am: 22.11.2024 um 14:11 Uhr
9 Kommentare
Neuester Kommentar
Probiers mal mit einer anderen Query
Gruß jodel32
Set colDrives = objWMIService.ExecQuery ("Select * from Win32_NetworkConnection where LocalName = 'U:'",,48) 
Hi Jodel,
bei dieser Abfrage werden keine Werte angezeigt. Wenn ich für einsetze ändert sich komischer Weise gar nichts. Die Ausgabe bleibt dabei, dass alle Lw angezeigt werden.
bei dieser Abfrage werden keine Werte angezeigt. Wenn ich für
'" & VolumeLetter & "' 'U:'
Nö hier gehts einwandfrei ...
Ich nehme an, Du hast das "LocalName" übersehen .... (Statt "Name")
E.
E.
Leider nein.
Ich habe die Zeile kopiert und ebenfalls einige Variationen mit Name/LocalName, U:/U oder auch Win32_NetworkConnection/Win32_MappedLogicalDisk ausprobiert.
Gibt es denn eine Alternative über eien If-Anweisung, bei der ich nur U: mit Echo ausgebe?
Ich habe die Zeile kopiert und ebenfalls einige Variationen mit Name/LocalName, U:/U oder auch Win32_NetworkConnection/Win32_MappedLogicalDisk ausprobiert.
Gibt es denn eine Alternative über eien If-Anweisung, bei der ich nur U: mit Echo ausgebe?
Hallo Ah3n0bar6us!
Grüße
bastla
Gibt es denn eine Alternative über eien If-Anweisung, bei der ich nur U: mit Echo ausgebe?
Gegenfrage: Was enthält denn bei Dir nach der Zeile 5 die Variable "VolumeLetter"? Grüße
bastla
Schussligkeitsfehler sogar beim Merhfachen hinschauen ^^
Ihr hattest Recht, vor allem Jodel32. Sorry für die verwirrung.
Es läuft =)
Ergebnis:
Danke dafür!
Ihr hattest Recht, vor allem Jodel32. Sorry für die verwirrung.
Es läuft =)
Ergebnis:
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colDrives = objWMIService.ExecQuery ("Select * from Win32_NetworkConnection WHERE LocalName = 'U:' ",,48)
For Each objDrive in colDrives
On Error Resume Next
VolumeLetter = UCase(objDrive.LocalName)
Path = LCase(objDrive.RemotePath)
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_MappedLogicalDisk WHERE Name = '" & VolumeLetter & "'",,48)
For each objDisk in colDisks
Dim Space
Space = FormatPercent(objDisk.FreeSpace / objDisk.Size,0)
Dim Size
Size = FormatNumber(objDisk.Size / 1073741824,2,-1) & " GB "
Next
Echo "U: " & Space & " frei auf " & Size
NextDanke dafür!
Ich hatte die Falsche SQL Abfrage. Also wenn ich die erste Abfrage nehme, hält die Variable "VolumeLetter" lediglich das U: =)
Hallo Ah3n0bar6us!
Grüße
bastla
hält die Variable "VolumeLetter" lediglich das U:
... womit sich mit etwas gutem Willen (und nur zur Not - die sinvollere Lösung hast Du ja bereits) vielleicht auch ein If-Statement hätte basteln lassen ... Grüße
bastla
