Quote:

---

break on

$InvCheck = READVALUE ("HKEY_LOCAL_MACHINE\HARDWARE\IT Inventory", "Stamp")
If $InvCheck = 1
Goto End
Else
cls

? "Performing an inventory of this computer... please wait..."
? " Thank you!"
sleep 2

$WMI = "WINMGMTS:{IMPERSONATIONLEVEL=IMPERSONATE}!//@WKSTA"
$ComputerModel = GetObject($WMI).ExecQuery("Select * FROM Win32_ComputerSystem")
$FindBIOSInfo = GetObject($WMI).ExecQuery("Select * FROM Win32_BIOS")
$DiskSet = GetObject($WMI).ExecQuery("SELECT * FROM WIN32_LOGICALDISK WHERE DriveType=3")
$mem = memorysize(0)
$netinfoip = ENUMIPINFO (0, 0, 1)
$netinfonic = ENUMIPINFO (0, 2, 1)

For Each $model in $ComputerModel
$CompModel = $model.model
Next

For Each $tag in $FindBIOSInfo
$servicetag = $tag.SerialNumber
Next

$TotalSpace = 0.0
$FreeSpace = 0.0

For Each $Disk in $DiskSet
$DriveName = $Disk.Name
$FreeSpace = $FreeSpace + $Disk.FreeSpace
$TotalSpace = $TotalSpace + $Disk.Size
$Format = $Disk.FileSystem
Next


$TotalSpaceGigs = $totalspace / 1073741824
$FreeSpaceGigs = $FreeSpace / 1073741824

REDIRECTOUTPUT ("@LServer\inventory$\inventory.csv")

? @Date", "@Time", "@Site", "@LServer", "@WKsta", "$Servicetag", "@WUserID", "@Producttype", "@CSD", "@CPU", "@MHz", "$mem", "$DriveName", "Round ($FreeSpaceGigs,1)", "Round ($TotalSpaceGigs,1)", "$Format", "$netinfoip", "@Address", "$netinfonic

REDIRECTOUTPUT ("@LServer\inventory$\inventory.log")
? "**********Computer: "+@WKsta"**Site: "+@Site"*************"
? @Date
? @Time
? @Site
? @LServer ;logon server
? @WKsta
? $CompModel
? $Servicetag
? @WUserID ;username
? @Producttype" w/ "@CSD
? @CPU
? @MHz"MHz"
? $mem"MB"
? $DriveName
? Round ($FreeSpaceGigs,1)
? Round ($TotalSpaceGigs,1)
? $Format
? $netinfoip
? @Address
? $netinfonic
?
$WMI = 0

WRITEVALUE ("HKEY_LOCAL_MACHINE\HARDWARE\IT Inventory", "Stamp", "1", "REG_SZ")
WRITEVALUE ("HKEY_LOCAL_MACHINE\HARDWARE\IT Inventory", "Date", "@Date", "REG_SZ")

Redirectoutput ("")
cls
? "Inventory Complete!"
sleep 2
:end
exit

---