Jun 10, 2015, updated at 12:37:42 (UTC)

1324

VBS Scrip - Datenbankabfrage für Netz-Laufwerke spezifizieren

Hallo zusammen,

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  
Next

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

Please also mark the comments that contributed to the solution of the article

Content-Key: 274211

Url: https://administrator.de/contentid/274211

Printed on: April 25, 2024 at 10:04 o'clock

9 Comments

Latest comment

Probiers mal mit einer anderen Query

Set colDrives = objWMIService.ExecQuery ("Select * from Win32_NetworkConnection where LocalName = 'U:'",,48)  

Gruß jodel32

Hi Jodel,

bei dieser Abfrage werden keine Werte angezeigt. Wenn ich für

 '" & VolumeLetter & "'

 'U:'

einsetze ändert sich komischer Weise gar nichts. Die Ausgabe bleibt dabei, dass alle Lw angezeigt werden.

Nö hier gehts einwandfrei ...

Ich nehme an, Du hast das "LocalName" übersehen .... (Statt "Name")

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?

Hallo Ah3n0bar6us!

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:

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  
Next

Danke 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!

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

German solved Question VB for Applications Development

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments

Wireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments