The guys here will probably have a much better script but just so you can get an idea of how mine works I'll post it below (Amended a bit mind but you will get the idea)
It searches from my pc and will report back on software installed, OS version, service pack, IE etc if you want you could make it search on Ip by doing a search here for "Check Remote IP "
It starts by doing a new view in a bat file the executes the script.

Code:
  

net view /domain:domain >c:\Temp\ListPc.Txt


Code:
 

$Winword6 = "c_drive\MSoffice\Winword\winword.exe"

$Excel5 = "c_drive\MSoffice\Excel\Excel.exe"

$Word97 = "C_Drive\Program Files\Microsoft Office\Office\Winword.exe"

$Excel97 = "C_Drive\Program Files\Microsoft Office\Office\Excel.exe"


Open (1,"\\comp\listpc")

Do
  	$CompName=ReadLine(1)
	$compname = SubStr($compname,1,8)
	$compname = Trim($compname)


	$CompName=ReadLine(1)

; gets operating system
$os_version = ReadValue("$compname\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName")
; gets internet explorer version
$os_version_ie = ReadValue("$compname\hkey_local_machine\software\microsoft\internet explorer","version")
; gets service pack version
$os_service = ReadValue("$compname\hkey_local_machine\software\microsoft\windows nt\currentversion","csdversion")
; below shows the size of the hard drive
$diskspace = GetDiskSpace("$compname\c_drive\") /1024

     
    WriteProfileString("%systemdrive%\temp\Results.txt","$compname"," disk space remaining (in mb) "," $diskspace")
     WriteProfileString("%systemdrive%\temp\Results.txt","$compname"," $os_version "," $os_service")
     WriteProfileString("%systemdrive%\temp\Results.txt","$compname"," Internet Explorer "," $os_version_ie ")
    
If Exist     ("$compname\c_drive\program files\adobe\acrobat 4.0\reader\acrord32.exe")
WriteProfileString("%systemdrive%\temp\Results.txt","$compname"," Adobe Reader "," Version 4 is installed") 
EndIf
    
If Exist     ("$compname\c_drive\program files\adobe\acrobat 5.0\reader\acrord32.exe")
WriteProfileString("%systemdrive%\temp\Results.txt","$compname"," Adobe Reader "," Version 5 is installed") 
EndIf

If Exist ("$compname\c_drive\program files\adobe\acrobat 6.0\reader\acrord32.exe")
WriteProfileString("%systemdrive%\temp\Results.txt","$compname"," Adobe Reader "," Version 6 is installed") 
EndIf
     
If Exist ("$compname\c_drive\windows\system32\adobe\svg viewer")
WriteProfileString("%systemdrive%\temp\Results.txt","$compname"," Adobe  "," SVG viewer is installed")
EndIf


 If Exist("$CompName\$Winword6")=1
			WriteProfileString("%systemdrive%\Temp\ListPc.Txt","$Compname","Word ver 6"," Installed")
		EndIf
		
	If Exist("$CompName\$Excel5")=1
			WriteProfileString("%systemdrive%\Temp\ListPc.Txt","$Compname","Excel 5"," Installed")
		EndIf		
		
	If Exist("$CompName\$Word97")=1	
		WriteProfileString("%systemdrive%\Temp\ListPc.Txt","$Compname"," Word 97 "," Installed")
			EndIf
		 
	If Exist("$CompName\$Excel97")=1	
		WriteProfileString("%systemdrive%\Temp\ListPc.Txt","$Compname"," Excel 97 "," Installed")
			EndIf



Until $CompName = ""


My script is much larger then that but you get a general idea

_________________________
If at first you don't succeed, try again. Then quit. There's no use being a damn fool about it. - W.C Fields