code:

---

; script main
If Exist (c:\hardinvn.000)
	Return
Else
EndIf
Gosub GetWMIInfo
Open (2, "\\nt-xxxxxx\logs$\HardwareInventory\hardinve.csv", 4) = 0
WriteLine (2, @WKSTA + "," + $WMIManufacturer
 + "," + $WMIModel + "," + $WMIModelVersion + ","
 + $WMIManufacturer2 + "," + $WMIBiosSernum + ","
 + $WMICPUCurrentClockSpeed + "," + 
$WMITotalPhysicalMemory + "," + $WMICDriveSize + "," + $WMICDriveFreeSpace + "," + 
$WMIDisplayDescription + "," + $WMINICName + "," 
+ $WMISoundCard + "," + $WMICDRom + "," + @PRODUCTTYPE + "," + @CSD + @CRLF)
;Else
;	? "Failed to open file"
Close (2)
Open (1, c:\hardinvn.000, 5)
Close (1)
Return
Exit  
; main end 

;*************************** 
;* sub GetWMIInfo * 
;*************************** 
:GetWMIInfo 
If @INWIN$ = 1 
$WMIManufacturer = Rtrim(WMIQuery("Manufacturer", "Win32_ComputerSystem")) 
$WMIModel = Rtrim(WMIQuery("Model", "Win32_ComputerSystem"))
$WMIManufacturer2 = Rtrim(WMIQuery("Version", "Win32_ComputerSystemProduct")) 
$WMIBiosVersion = Rtrim(WMIQuery("Version", "Win32_BIOS")) 
$WMIBiosSernum = Rtrim(WMIQuery("SerialNumber", "Win32_BIOS")) 
$WMISMBIOSVersion = Rtrim(WMIQuery("SMBIOSVersion", "Win32_BIOS")) 
$WMICPUCurrentClockSpeed = Rtrim(WMIQuery("CurrentClockSpeed", "Win32_Processor"))
$WMITotalPhysicalMemory = Rtrim(WMIQuery("TotalPhysicalMemory", "Win32_LogicalMemoryConfiguration"))
$WMICDrive = Rtrim(WMIQuery("Caption", "Win32_LogicalDisk"))
		If InStr($WMICDrive,"|")
			For Each $Return in Split($WMICDrive,"|")
			If $Return	$WMICDrive=$Return		EndIf
			Next
		EndIf
$WMICDriveSize = Rtrim(WMIQuery("Size", "Win32_LogicalDisk"))
		If InStr($WMICDriveSize,"|")
			For Each $Return in Split($WMICDriveSize,"|")
			If $Return	$WMICDriveSize=$Return		EndIf
			Next
		EndIf
$WMICDriveFreeSpace = Rtrim(WMIQuery("FreeSpace", "Win32_LogicalDisk"))
		If InStr($WMICDriveFreeSpace,"|")
			For Each $Return in Split($WMICDriveFreeSpace,"|")
			If $Return	$WMICDriveFreeSpace=$Return		EndIf
			Next
		EndIf 
$WMIDisplayDescription = Rtrim(WMIQuery("Description", "Win32_DisplayControllerConfiguration")) 
$WMINICName = Rtrim(WMIQuery("Caption", "Win32_NetworkAdapterConfiguration"))
		If InStr($WMINICName,"|")
			For Each $Return in Split($WMINICName,"|")
			If $Return	$WMINICName=$Return		EndIf
			Next
		EndIf
$WMISoundCard = Rtrim(WMIQuery("Caption", "Win32_SoundDevice"))
$WMICDRom = Rtrim(WMIQuery("Caption", "Win32_CDROMDrive"))
		If InStr($WMICDRom,"|")
			For Each $Return in Split($WMICDRom,"|")
			If $Return	$WMICDRom=$Return		EndIf
			Next
		EndIf
EndIf 
Return 

;*************************** 
;* function WMIQuery * 
;*************************** 
Function WMIQuery($what, $where) 
Dim $strQuery, $objEnumerator, $value 
$strQuery = "Select $what From $where" 
$SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}") 
$objEnumerator = $SystemSet.ExecQuery($strQuery) 
For Each $objInstance in $objEnumerator 
If @Error = 0 AND $objInstance <> "" 
$junk = Execute("$$value = $$objInstance.$what") 
$WMIQuery = "$value" + "|" + "$WMIQuery" 
EndIf 
Next 
$WMIQuery = Left($WMIQuery, Len($WMIQuery) - 1) 
EndFunction
  

---