'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