[ネットワークドライブの接続状況を取得する]

現在接続されているネットワークドライブを取得します。

【ソースコード】

[tips0100.vbs]
Option Explicit
On Error Resume Next

Dim objWshNetwork   ' WshNetwork オブジェクト
Dim objDrives       ' ドライブ情報
Dim lngLoop         ' ループカウンタ

Set objWshNetwork = WScript.CreateObject("WScript.Network")
If Err.Number = 0 Then
    Set objDrives = objWshNetwork.EnumNetworkDrives
    If Err.Number = 0 Then
        If objDrives.Count > 0 Then
            WScript.Echo "ネットワークドライブ："
            For lngLoop = 0 To objDrives.Count - 1 Step 2
                WScript.Echo "　" & objDrives.Item(lngLoop) & _
                    " => " & objDrives.Item(lngLoop + 1)
            Next
        Else
            WScript.Echo "接続されていません。"
        End If
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshNetwork = Nothing

【実行結果】

C:\> cscript //NoLogo tips0100.vbs
ネットワークドライブ：
　Z: => \\Comp01\Temp