WScript.sleep 3000

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork2 = WScript.CreateObject("WScript.Network")

'N:の接続があれば解除して再登録
If (objFSO.DriveExists("E:") = True) Then
objNetWork2.RemoveNetworkDrive"E:"
End If
objNetWork2.MapNetworkDrive"E:","\\NAS名\フォルダ名", False, "ログインID", "ログインPW"

'P:の接続があれば解除して再登録
If (objFSO.DriveExists("F:") = True) Then
objNetWork2.RemoveNetworkDrive"F:"
End If
objNetWork2.MapNetworkDrive"F:","\\NAS名\フォルダ名", False, "ログインID", "ログインPW"

'Q:の接続があれば解除して再登録
If (objFSO.DriveExists("G:") = True) Then
objNetWork2.RemoveNetworkDrive"G:"
End If
objNetWork2.MapNetworkDrive"G:","\\NAS名\フォルダ名", False, "ログインID", "ログインPW"

Set objNetwork1 = WScript.CreateObject("WScript.Network")
Set colDrives = objNetwork1.EnumNetworkDrives
WScript.Echo "ネットワーク・ドライブは" & (colDrives.Count / 2) & "個あります。"

'WScript.Echo "ネットワーク・ドライブの一覧を表示します："
'For i = 0 to colDrives.Count - 1 Step 2
'Wscript.Echo colDrives.Item(i) & " → " & colDrives.Item (i + 1)
'Next