【VBS】ネットワークドライブに再接続できませんでしたなんて言わないよ絶対

WScript.sleep 2000
Set objNetwork = CreateObject("WScript.Network")
objNetWork.MapNetworkDrive "Z:", "\\192.168.1.10\NAS"

' --------------------------------
' 定数
' --------------------------------
Const SERVER_IP = "192.168.1.10" ' NASのIPアドレス
Const DRIVE_LETTER = "Z:"        ' ネットワークドライブのドライブレター
Const SHARED_FOLDER = "NAS"      ' 共有フォルダ名
Const USER_NAME = "user"         ' アクセスするユーザー名
Const USER_PASS = "password"     ' ユーザーパスワード
Const WAIT_TIME = 2000           ' pingを打つまでの待機時間(ミリ秒)

' -------------------------------------
' ネットワークドライブの割り当て
' -------------------------------------
if fncPing(SERVER_IP) Then
  Dim connectFolder: connectFolder = "\\" + Server_IP + "\" + SHARED_FOLDER
  Set objFSO = CreateObject("Scripting.FileSystemObject")

' ドライブレターが使用されているか
  if Not objFSO.DriveExists(DRIVE_LETTER) Then
    Set objNetwork = CreateObject("WScript.Network")
    objNetWork.MapNetworkDrive DRIVE_LETTER, connectFolder, false, USER_NAME, USER_PASS
    Set objNetwork = Nothing
  Else
    MsgBox "「" + DRIVE_LETTER + "」" + " はすでに使用されています",,"エラー"
  End if
Else
  MsgBox "「" + SERVER_IP + "」" + "から応答がありません",,"エラー"
End if

' -------------------------------------
' pingが返ってくるか
' -------------------------------------
Function fncPing(host)
  WScript.sleep WAIT_TIME
  Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
  Set colItems = objWMI.ExecQuery("select * from Win32_PingStatus where address ='" & host & "'")

  For Each objItem In colItems
    If objItem.StatusCode = 0 Then
      fncPing = True
    Else
      fncPing = False
    End If
  Next

Set objItem = Nothing
Set colItems = Nothing
Set objWMI = Nothing
End Function