[ネットワークドライブの接続状況を取得する] 現在接続されているネットワークドライブを取得します。 【ソースコード】 [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 "ネットワークドライブ