[YouHim]

вот там, где Вы подчеркнули connected - Вы уверены, что при обрыве связи указанный скрипт 100% без ошибок меняет это значение на disconnected? »

Пока что 100% не уверен, так как нужно ждать реального разрыва. Эмуляция обрыва с помощью файрволла показала, что данное значение меняется. Пришлось засесть на несколько часов за изучение vbs. В результате сваял вот такой скрипт:

Код:

strComputer = "." 
Set WshShell = WScript.CreateObject("WScript.Shell")
	Command ="d:\Portable\Script\restart_modem\devcon.exe disable USB\VID_1076*"
	Command1="d:\Portable\Script\restart_modem\devcon.exe enable USB\VID_1076*"
	Command2="d:\Portable\Script\restart_modem\devcon.exe restart USB\VID_1076*"
	Command3="d:\Portable\Script\restart_modem\SW_WiMaxCM.lnk"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _   
 "SELECT * FROM Win32_NetworkAdapter WHERE Name = 'GCT WiMAX USB Network Device'",,48) 
For Each objItem in colItems 
rem       Wscript.Echo "NetConnectionStatus: " & objItem.NetConnectionStatus
status =  objItem.NetConnectionStatus

if status<>2 Then
	WshShell.Run "taskkill /IM SW_WiMaxCM.exe", 0
	WshShell.Run Command
	WScript.Sleep 2000
	WshShell.Run Command1
	WScript.Sleep 5000
	WshShell.Run Command2
	t = now()
	Set FSO = CreateObject("Scripting.FileSystemObject") 
    	Set f = FSO.OpenTextFile("log.txt", 8, True) 
    	f.WriteLine t 
    	WshShell.Run Command3
	Wscript.Echo  "GCT WiMAX USB Network Device restarted"
Else
End if
Next

Запускать буду через планировщик. С эмуляцией обрывов работает отлично, буду надеяться, что реальный обрыв он тоже отработает. За быдлокод прошу не пинать, это первый мой vbs скрипт
Diskretor, за wget, спасибо. Попробую и ее поковырять на досуге.