こちらのサイトのサンプルスクリプトがおそらくコピペミス等でおかしかったので自分で利用したついでに記載しておきます。
'全てのマウントされているネットワークドライブを表示する '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