[ネットワークプリンタの接続を解除する]

ネットワークプリンタ（\\Comp01\Lp01）を強制的に削除します。
ユーザープロファイルに変更内容を保存します。

【ソースコード】

[tips0102.vbs]
Option Explicit
On Error Resume Next

Dim objWshNetwork   ' WshNetwork オブジェクト
Dim strPrinterName  ' プリンタ名

Set objWshNetwork = WScript.CreateObject("WScript.Network")
If Err.Number = 0 Then
    strPrinterName = "\\Comp01\Lp01"
    objWshNetwork.RemovePrinterConnection strPrinterName, True, True
    If Err.Number = 0 Then
        WScript.Echo strPrinterName & "を削除しました。"
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshNetwork = Nothing

【実行結果】

C:\> cscript //NoLogo tips0102.vbs
\\Comp01\Lp01 を削除しました。