; Inventory Script
If Ingroup ("05407")
? " Running inventory script..."
$ = ReDirectOutput ("\\server\public\IS\kixtartlogs\"+ @WKSTA+".html", 5)
$wmiColl1 = GetObject("WinMgmts:root/cimv2").ExecQuery("Select * FROM Win32_ComputerSystem ")
$wmiColl2 = GetObject("WinMgmts:root/cimv2").ExecQuery("Select * FROM Win32_BIOS ")
$wmiColl3 = GetObject("WinMgmts:root/cimv2").ExecQuery("Select * FROM Win32_Printer ")
$wmiColl4 = GetObject("WinMgmts:root/cimv2").ExecQuery("Select * FROM Win32_Product where "name like '%office professional%'"")
? "<HTML>"
? "<BODY>"
? "<center>"
? "<table border="1">"
? "<tr>"
? " <th>Full Name</th>"
? " <th>UserID</th>"
? " <th>IP Address</th>"
? " <th>Make</th>"
? " <th>Model</th>"
? " <th>Serial Number</th>"
? " <th>Default Printer</th>"
? " <th>Office</th>"
? "</tr>"
? "<tr>"
? "<td>$firstname $lastname</td>"
? "<td>@USERID</td>"
? "<td>" + @IPADDRESS0
? "</td>"
For Each $wmiObj in $wmiColl1
? "<td>" $wmiObj.Manufacturer
? "</td>"
? "<td>" $wmiObj.Model
? " </td>"
Next
For Each $wmiObj in $wmiColl2
? "<td>" Trim($wmiObj.SerialNumber)
? "</td>"
? "<td>" join(split(readvalue("HKEY_USERS\"+@sid+"\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device"),',',1),'')
? "</td>"
? "</tr>"
Next
For Each $wmiObj in $wmiColl4
? "<td>" $wmiObj.Name
? "</td>"
? "</table></font>"
? "<br />"
? "Inventory taken on " @DATE " at " @TIME ". </center>"
? "</BODY>"
? "</HTML>"
$ = RedirectOutput('')
EndIf
