WOOHOO... Thanx to all those who contributed... I can finally see the light!!!! [Wink]

I finally got the information that I wanted, thanx again for the help. There's still a need for beta and a few more lines to run this only once on the machine, which I do know how to do.... [Smile] He's the beta form of the script for referance....

;**********************************************
; script main
Gosub GetWMIInfo
Open (2, "\\ntxxxxxxxx\logs$\HardwareInventory\hardinve.txt", 4) = 0
WriteLine (2, @WKSTA + "," + $WMIManufacturer + "," + $WMIModel + "," + $WMIModelVersion + "," + $WMIManufacturer2 + "," + $WMIBiosSernum + "," + $WMICPUCurrentClockSpeed + "," + $WMITotalPhysicalMemory + "," + $WMICDriveSize + "," + $WMICDriveFreeSpace + "," + $WMIDisplayDescription + "," + $WMINICName + "," + $WMISoundCard + "," + $WMICDRom + @CRLF)
;Else
; ? "Failed to open file"
Close (2)

;Get $x
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

******************************************

Finally have the aim, sort of, with that little lawn dart.
_________________________
penny = the target the playing field = three football fields side by side you = only allowed to stand on the outside of the playing field tool you get to use to find the penny = a ONE INCH LAWN DART get the level of difficulty?