Break on

$wmiColl = GetObject("WinMgmts:root/cimv2").ExecQuery("Select * FROM Win32_NetworkAdapter")

For Each $wmiObj in $wmiColl
	If InStr($wmiObj.name, "Wireless")
		;NetConnectionStatus returns 0 for not connected and 2 for connected.
		If $wmiObj.NetConnectionStatus = "2"
			;do all kinds of stuff.
			;maybe ping a server in the on the network you want it to connect to
			;and if ping is successful run the login script
			;because users might connect to a wifi network at home.
		Else
			;wifi is not connected.
		EndIf
	Else
		;not a wifi connection.
	EndIf
Next

break on

$Query = "SELECT TargetInstance.Name FROM __InstanceOperationEvent WITHIN 4 WHERE TargetInstance ISA 'Win32_NetworkAdapterConfiguration' and targetInstance.IPEnabled = true"

$objEvents = GetObject("winmgmts:\\.\root\cimv2").ExecNotificationQuery($query)

While 1
? 'waiting'
	$objConnectEvent = $objEvents.nextevent
? 'event'
	sleep 5
	$aIPAddress = $objConnectEvent.TargetInstance.IPAddress
	For Each $sAddress in $aIPAddress
? $sAddress
			sleep 5
? 'pinging'
			$Res = wmiPing('server',5000)
			If not @error
? $res
				$question=messagebox("Do you want to Start the Logon Script?","Network Detected",36)
				if $question = 6
					shell 'cmd /c start kix32 \\server\netlogon\kixtart.kix'
				endif
			endif
	Next
loop



Function wmiPing($Address,Optional $Timeout,Optional $BlockSize)
   Dim $Query,$oWMI,$oItem,$cItems
      $Query = "Select ResponseTime,StatusCode From Win32_PingStatus Where Address='" + $Address + "'"
   If $Timeout
      $Query = $Query + " And TimeOut=" + $Timeout
   EndIf
   If $BlockSize
      $Query = $Query + " And BufferSize=" + $BlockSize
   EndIf
   $oWMI = GetObject("winmgmts:root\cimv2")
   $cItems = $oWMI.ExecQuery($Query)
   For Each $oItem In $cItems
      If (VarTypeName($oItem.StatusCode) = 'Null') Or $oItem.StatusCode
         Exit 1
      Else
         $wmiPing = $oItem.ResponseTime
      EndIf
   Next
EndFunction

 
$ = SetConsole ("Hide")
Break on

If KeyExist ("HKLM\Software\MyMobile")
	;Do nothing
		Else
	$ = WriteValue ("HKLM\Software\MyMobile","LastRunDate","",REG_SZ)
EndIf

$wmiColl = GetObject("WinMgmts:root/cimv2").ExecQuery("Select * FROM Win32_NetworkAdapter")

:StartAgain


For Each $wmiObj in $wmiColl
$test = $wmiObj.name
	If InStr($test, "Wireless")
		;NetConnectionStatus returns 0 for not connected and 2 for connected.
		If $wmiObj.NetConnectionStatus = 2
			If Exist ("\\SERVER\Folder\Mobile.bat")
					$LastRunDate = ReadValue ("HKLM\Software\MyMobile","LastRunDate")
						If $LastRunDate = @DATE 
							; Do nothing
						Else
							Shell "%COMSPEC% /c \\Server\Folder\Mobile.bat"
							$ = WriteValue ("HKLM\Software\MyMobile","LastRunDate","@DATE",REG_SZ)
						EndIf 
			EndIf
		EndIf
		Sleep 60
	EndIf
Next
Goto StartAgain