![]() Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: List all connected network drives
|
||
|
Dim oWshNetwork : Set oWshNetwork = WScript.CreateObject("WScript.Network")
Dim sList Dim oDrives : Set oDrives = oWshNetwork.EnumNetworkDrives For iCount = 0 to oDrives.count - 1 step 2 sList = sList & "Drive: " & oDrives.item(iCount) sList = sList & " Source: " & oDrives.item(iCount+1) & vbcr Next msgbox(sList) | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||