VBScript, как проверить, что диск отображается

Question

Я пытаюсь проверить, сопоставлен ли диск определенному месту, и сопоставить его там, если его нет.Как я могу проверить, где сопоставлен диск?Я планирую остановить сценарий, если он сопоставлен с неправильной точкой, и использовать subst D: C:\folder, если он не сопоставлен (что я и хотел), или просто продолжить, если он сопоставлен с тем местом, где я хочу (на данный момент C:\folder)

Answer 1

Взято из http://msdn.microsoft.com/en-us/library/t9zt39at(v=vs.85).aspx

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections

WScript.Echo "Network drive mappings:"

For i = 0 to oDrives.Count - 1 Step 2
    WScript.Echo "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1)
Next

WScript.Echo 

WScript.Echo "Network printer mappings:"
For i = 0 to oPrinters.Count - 1 Step 2
    WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
Next