Function FindLANaddress($AddressToFind)
	$nul=setoption("NoMacrosinstrings","on")
	$nul=setoption("NoVarsinstrings","on")
	For $i = 0 to 5
   $ret = execute("$IP=@IPADDRESS" + $i)
   If InStr($IP,$AddressToFind)
		$FindLANaddress = $IP
   EndIf
	Next
	$nul=setoption("NoMacrosinstrings","OFF")
	$nul=setoption("NoVarsinstrings","OFF")
EndFunction

Function Ping($CompIP, optional $Logout)
	$Count = 6000
	DO
		SHELL '%Comspec% /C ping -n 1 ' + $CompIP + ' | find /C "10.30" > nul'				
		IF ( @error = 0 AND NOT $Logout) OR (@error = 1 and $Logout)
			$Ping = 1					
			EXIT 0			
		ENDIF			
		SLEEP 1
	$Count = $Count -1
	UNTIL $Count = 0
EndFunction

$ServerToPing = "Server1"
IF Ping($ServerToPing) = 1 AND FindLANaddress("10. 90.  7") 
...

$objSysInfo = CreateObject("ADSystemInfo") 
$strComputerDN = $objSysInfo.computerName 
$strUserDN = $objSysInfo.userName 

$strUserOU=Split($strUserDN,"OU=")
$strUserOU[0]=""
$strUserOU=Join($strUserOU,"OU=")

$strComputerOU=Split($strComputerDN,"OU=")
$strComputerOU[0]=""
$strComputerOU=Join($strComputerOU,"OU=")


"Information from ADSystemInfo"+@CRLF
"-----------------------------"+@CRLF
"           User DN: "+$strUserDN+@CRLF
"    User container: "+$strUserOU+@CRLF
"       Computer DN: "+$strComputerDN+@CRLF
"Computer container: "+$strComputerOU+@CRLF
@CRLF

"Information from AD User & Computer objects"+@CRLF
"-------------------------------------------"+@CRLF
$objComputer = GetObject("LDAP://" + $strComputerDN)
$objUser = GetObject("LDAP://" + $strUserDN)

"           User cn: "+$objUser.cn+@CRLF
"         User mail: "+$objUser.mail+@CRLF
"       Computer OS: "+$objComputer.operatingSystem+@CRLF