Break on

$rc = Open(1,"c:\xpsystems.txt",5)
$rc = Open(2,"c:\nonxpsystems.txt",5)
$rc = Open(3,"c:\notonline.txt",5)

$computers = COMNetView(domainname)

For Each $computer in $computers
	$online = Ping($computer,0,4,2500)
	If $online = "1"
		$winver = ReadValue("\\" + $computer + "\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName")
		If $winver = "Microsoft Windows XP"
			$rc = WriteLine(1,$computer + ";" + $winver + @CRLF)
		Else
			$rc = WriteLine(2,$computer + ";" + $winver + @CRLF)
		EndIf
	Else
		$rc = WriteLine(3,$computer + " is not online." + @CRLF)
	EndIf
Next

$rc = Close(1)
$rc = Close(2)
$rc = Close(3)

BREAK on
 
$objConnection = CreateObject("ADODB.Connection")
$objCommand =   CreateObject("ADODB.Command")
$objConnection.Provider = "ADsDSOObject"
$objConnection.Open("Active Directory Provider")
$objCommand.ActiveConnection = $objConnection

$objCommand.CommandText = 
   "SELECT Name,OperatingSystem FROM " 
   + "'LDAP://"
   + GetObject("LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")).distinguishedName
   + "'"
   + " WHERE objectCategory='computer'"
 
$objCommand.Properties("Page Size").Value = 100
$objCommand.Properties("Search Scope").Value = 2
$objCommand.Properties("Cache Results").Value = (not 1)
 
$objRecordSet = $objCommand.Execute()
$objRecordSet.MoveFirst
while not $objRecordSet.EOF
   $objRecordSet.Fields("Name").Value+" "+$objRecordSet.Fields("operatingSystem").Value+@CRLF
   $objRecordSet.MoveNext
Loop
 
Exit 0