Так нельзя Run("explorer.exe") потому что запускается не оболочка а открывается проводник.
Следующий код включен в автозагрузку групповой политикой после логина пользователя.
Этот код работает только почему то не все грузится в трей
#include <Process.au3>
#include <File.au3>
#NoTrayIcon
ProcessWait ("explorer.exe")
ProcessClose("explorer.exe")
$connect = _GetNetworkConnect()
If $connect Then
Else
Run(@WindowsDir & "\cmps.exe")
;Сеть Отсутствует
Exit
EndIf
$varPing = Ping("192.168.0.8",400)
If @error > 0 Then
;Пинг Отсутствует
Run(@WindowsDir & "\cmps.exe")
Exit
Else
;Пинг Нормальный
$rc = _RunDos('NET TIME \\192.168.0.1 /SET /Y')
Run(@WindowsDir & "\cmp.exe")
EndIf
Func _GetNetworkConnect()
Local Const $NETWORK_ALIVE_LAN = 0x1 ;net card connection
Local $aRet, $iResult
$aRet = DllCall("sensapi.dll", "int", "IsNetworkAlive", "int*", 0)
If BitAND($aRet[1], $NETWORK_ALIVE_LAN) Then $iResult &= "" & @LF
Return $iResult
EndFunc
