ping応答の無いNICを再起動する の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• ping応答の無いNICを再起動する へ行く。
• ping応答の無いNICを再起動する の差分を削除

目次~
#contents

**概要 [#tbc803c5]
指定されたIPアドレスのping応答が無い場合にNICの再起動を行うためのスクリプト。無線LANが切断された後に再接続できない事象が発生したために作成。~

**使い方 [#w69ddbc9]
以下の変数を設定する。~
タスクスケジューラなどに登録して使用する。~

|strTarget|Pingにて応答を確認するIPアドレスを指定（応答しない場合に処理を実行）
|strTarget|Pingにて応答を確認するIPアドレスを指定（応答しない場合に処理を実行）|
| Const sConnectionName|再起動を行うインターフェイス名を指定|



**ソース [#p3ba4fde]
 ' ----------------------------------------------
 ' ネットワークインターフェイスの再起動スクリプト
 ' ----------------------------------------------
 ' Ver 1.0
 ' 2011/05/20
 '
 
 Option Explicit
 
 Dim objArgs
 Dim strTarget
 Dim strNIC
 
 strTarget = "192.168.1.254" '検査用IPアドレスを指定
 strNIC = ""
 
 If PingResult(strTarget) = True Then
     'Wscript.Echo "Ping応答あり"
 Else
     'Wscript.Echo "Ping応答なし"
 	Call NICReboot(strNIC)
 End If
 
 'Wscript.Echo "スクリプト終了"
 
 Set objArgs = Nothing
 
 'strTargetにpingを行って成功したらPingResultにTrueを返す
 Function PingResult(strTarget) 
 
     Dim objWMIService
     Dim colItems
     Dim objItem
  
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
     Set colItems = objWMIService.ExecQuery _
         ("Select * from Win32_PingStatus " & _
             "Where Address = '" & strTarget & "'")
     For Each objItem in colItems
         If objItem.StatusCode = 0 Then
             PingResult = True
         Else
             PingResult = False
         End If
     Next
  
     Set objWMIService = Nothing
     Set colItems = Nothing
 End Function
 
 
 Function NICReboot(strNIC)
  'Wscript.Echo "NIC再起動実行"
 Const ssfCONTROLS = 3 
 Const sConPaneName    = "ネットワーク接続"
 Const sConnectionName = "ローカル エリア接続" '対象NICを指定
 Const sDisableVerb    = "無効にする(&B)" 
 Const sEnableVerb     = "有効にする(&A)" 
 
 Dim shellApp
 Dim oControlPanel
 Dim oNetConnections
 Dim folderitem
 Dim oLanConnection
 Dim verb
 
 set shellApp = createobject("shell.application") 
 set oControlPanel = shellApp.Namespace(ssfCONTROLS) 
 set oNetConnections = nothing 
 for each folderitem in oControlPanel.items 
   if folderitem.name = sConPaneName then 
     set oNetConnections = folderitem.getfolder: exit for 
   end if 
 next 
 if oNetConnections is nothing then 
   wscript.quit 
 end if 
 set oLanConnection = nothing 
 for each folderitem in oNetConnections.items 
   if lcase(folderitem.name) = lcase(sConnectionName) then 
     set oLanConnection = folderitem: exit for 
   end if 
 next 
 if oLanConnection is nothing then 
   wscript.quit 
 end if 
 
 for each verb in oLanConnection.verbs 
   if verb.name = sDisableVerb then 
     verb.Doit
     WScript.Sleep 2000
   end if 
 next 
 for each verb in oLanConnection.verbs 
   if verb.name = sEnableVerb then 
     verb.Doit
     WScript.Sleep 2000
   end if 
 next 
 
 
 End Function
 
 'EOF