[ネットワークドライブを割り当てる]

Z ドライブにリモートドライブ（\\Comp01\Temp）を永続的に接続します。

【ソースコード】

[tips0098.vbs]
Option Explicit
On Error Resume Next

Dim objWshNetwork   ' WshNetwork オブジェクト
Dim strDrive        ' ドライブ名
Dim strPubFolder    ' 共有フォルダ名
Dim strUserName     ' 接続するユーザー名
Dim strPassword     ' パスワード

Set objWshNetwork = WScript.CreateObject("WScript.Network")
If Err.Number = 0 Then
    strDrive = "Z:"
    strPubFolder = "\\Comp01\Temp"
    strUserName = "Administrator"
    strPassword = "Password"
    objWshNetwork.MapNetworkDrive strDrive, strPubFolder, _
        True, strUserName, strPassword
    If Err.Number = 0 Then
        WScript.Echo strDrive & " ドライブに " & _
            strPubFolder & " を割り当てました。"
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshNetwork = Nothing

【実行結果】

C:\> cscript //NoLogo tips0098.vbs
Z: ドライブに \\Comp01\Temp を割り当てました。