http://dieseyer.de • all rights reserved • © 2011 v11.4

'v2.5*****************************************************
' File: NetzLaufWerkeDetails.vbs
' Autor: dieseyer@gmx.de
' dieseyer.de
'
' zeigt Netzlaufwerk mit zugeordnetem Laufwerksbuchstaben
'*********************************************************

Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSHNetzWerk = WScript.CreateObject("WScript.NetWork")
Set WSHLaufWerk = WSHNetzWerk.EnumNetworkDrives()

TextX = "Liste der Netzwerlaufwerke:" & vbCRLF

For i = 0 To WSHLaufWerk.Count -1 Step 2
TextX = TextX & vbCRLF ' neue Zeile
TextX = TextX & i & vbTab
if WSHLaufWerk.Item(i) <> "" Then
TextX = TextX & WSHLaufWerk.Item(i) & vbTab
TextX = TextX & fso.getDrive(WSHLaufWerk.Item(i)).ShareName
End If
Next

MsgBox TextX, , WScript.ScriptName

http://dieseyer.de • all rights reserved • © 2011 v11.4