'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