全てのマウントされているネットワークドライブを表示する

こちらのサイトのサンプルスクリプトがおそらくコピペミス等でおかしかったので自分で利用したついでに記載しておきます。

'全てのマウントされているネットワークドライブを表示する
'EnumNetworkDrives.vbs

Option Explicit

Dim objWshNetwork
Set objWshNetwork = WScript.CreateObject("WScript.Network")

Dim objNetworkDrives
Set objNetworkDrives = objWshNetwork.EnumNetworkDrives

Dim strDrivesList
strDrivesList = ""

Dim I
For I = 0 To objNetworkDrives.Count - 1 Step 2
WScript.StdOut.WriteLine objNetworkDrives.Item(I) & _
" " & objNetworkDrives.Item(I + 1)
Next

Set objWshNetwork = Nothing

実行する場合はコマンドプロンプトを起動して以下のように。

Cscript EnumNetworkDrives.vbs