[ネットワークドライブを切断する]
Z ドライブに割り当てられているネットワークドライブを、強制的に切断します。
ユーザープロファイルからも削除します。
【ソースコード】
[tips0099.vbs]
Option Explicit
On Error Resume Next
Dim objWshNetwork
Dim strDrive
Set objWshNetwork = WScript.CreateObject("WScript.Network")
If Err.Number = 0 Then
strDrive = "Z:"
objWshNetwork.RemoveNetworkDrive strDrive, True, True
If Err.Number = 0 Then
WScript.Echo strDrive & " ドライブを切断しました。"
Else
WScript.Echo "エラー: " & Err.Description
End If
Else
WScript.Echo "エラー: " & Err.Description
End If
Set objWshNetwork = Nothing
【実行結果】
C:\> cscript //NoLogo tips0099.vbs
Z: ドライブを切断しました。