Computer Inventory Site

Instructions:

Rt Click this link and save as wmic-inv.bat

Run "cmd /u" and execute script

cd desktop

Run powerscript and paste the below script

Inventory Data Upload

User: Room:

Facility: Area:

Select inventory file to upload:

function Get-WindowsKey { ## function to retrieve the Windows Product Key from any PC ## by Jakob Bindslet (jakob@bindslet.dk) param ($targets = ".") $hklm = 2147483650 $regPath = "Software\Microsoft\Windows NT\CurrentVersion" $regValue = "DigitalProductId" Foreach ($target in $targets) { $productKey = $null $win32os = $null $wmi = [WMIClass]"\\$target\root\default:stdRegProv" $data = $wmi.GetBinaryValue($hklm,$regPath,$regValue) $binArray = ($data.uValue)[52..66] $charsArray = "B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9" ## decrypt base24 encoded binary data For ($i = 24; $i -ge 0; $i--) { $k = 0 For ($j = 14; $j -ge 0; $j--) { $k = $k * 256 -bxor $binArray[$j] $binArray[$j] = [math]::truncate($k / 24) $k = $k % 24 } $productKey = $charsArray[$k] + $productKey If (($i % 5 -eq 0) -and ($i -ne 0)) { $productKey = "-" + $productKey } } $win32os = Get-WmiObject Win32_OperatingSystem -computer $target $obj = New-Object Object $obj | Add-Member Noteproperty Computer -value $target $obj | Add-Member Noteproperty Caption -value $win32os.Caption $obj | Add-Member Noteproperty CSDVersion -value $win32os.CSDVersion $obj | Add-Member Noteproperty OSArch -value $win32os.OSArchitecture $obj | Add-Member Noteproperty BuildNumber -value $win32os.BuildNumber $obj | Add-Member Noteproperty RegisteredTo -value $win32os.RegisteredUser $obj | Add-Member Noteproperty ProductID -value $win32os.SerialNumber $obj | Add-Member Noteproperty ProductKey -value $productkey $obj } } Get-WindowsKey > ProductKeys.txt function Get-OfficeKey { function Search-RegistryKeyValues { param( [string]$path, [string]$valueName ) Get-ChildItem $path -recurse -ea SilentlyContinue | % { if ((Get-ItemProperty -Path $_.PsPath -ea SilentlyContinue) -match $valueName) { $_.PsPath } } } # find registry key that has value "digitalproductid" # 32-bit versions $key = Search-RegistryKeyValues "hklm:\software\microsoft\office" "digitalproductid" if ($key -eq $null) { # 64-bit versions $key = Search-RegistryKeyValues "hklm:\software\Wow6432Node\microsoft\office" "digitalproductid" if ($key -eq $null) {Write-Host "MS Office is not installed.";break} } $valueData = (Get-ItemProperty $key).digitalproductid[52..66] # decrypt base24 encoded binary data $productKey = "" $chars = "BCDFGHJKMPQRTVWXY2346789" for ($i = 24; $i -ge 0; $i--) { $r = 0 for ($j = 14; $j -ge 0; $j--) { $r = ($r * 256) -bxor $valueData[$j] $valueData[$j] = [math]::Truncate($r / 24) $r = $r % 24 } $productKey = $chars[$r] + $productKey if (($i % 5) -eq 0 -and $i -ne 0) { $productKey = "-" + $productKey } } $obj1 = New-Object Object $obj1 | Add-Member Noteproperty "Key" -value "Value" $obj1 | Add-Member Noteproperty "MS Office Product Key" -value $productkey $obj1 } Get-OfficeKey >> ProductKeys.txt Write-Host "MS Office Product Key:" $productKey

Computer:

User:	Room:
Facility:	Area:
Select inventory file to upload:
function Get-WindowsKey { ## function to retrieve the Windows Product Key from any PC ## by Jakob Bindslet (jakob@bindslet.dk) param ($targets = ".") $hklm = 2147483650 $regPath = "Software\Microsoft\Windows NT\CurrentVersion" $regValue = "DigitalProductId" Foreach ($target in $targets) { $productKey = $null $win32os = $null $wmi = [WMIClass]"\\$target\root\default:stdRegProv" $data = $wmi.GetBinaryValue($hklm,$regPath,$regValue) $binArray = ($data.uValue)[52..66] $charsArray = "B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9" ## decrypt base24 encoded binary data For ($i = 24; $i -ge 0; $i--) { $k = 0 For ($j = 14; $j -ge 0; $j--) { $k = $k * 256 -bxor $binArray[$j] $binArray[$j] = [math]::truncate($k / 24) $k = $k % 24 } $productKey = $charsArray[$k] + $productKey If (($i % 5 -eq 0) -and ($i -ne 0)) { $productKey = "-" + $productKey } } $win32os = Get-WmiObject Win32_OperatingSystem -computer $target $obj = New-Object Object $obj \| Add-Member Noteproperty Computer -value $target $obj \| Add-Member Noteproperty Caption -value $win32os.Caption $obj \| Add-Member Noteproperty CSDVersion -value $win32os.CSDVersion $obj \| Add-Member Noteproperty OSArch -value $win32os.OSArchitecture $obj \| Add-Member Noteproperty BuildNumber -value $win32os.BuildNumber $obj \| Add-Member Noteproperty RegisteredTo -value $win32os.RegisteredUser $obj \| Add-Member Noteproperty ProductID -value $win32os.SerialNumber $obj \| Add-Member Noteproperty ProductKey -value $productkey $obj } } Get-WindowsKey > ProductKeys.txt function Get-OfficeKey { function Search-RegistryKeyValues { param( [string]$path, [string]$valueName ) Get-ChildItem $path -recurse -ea SilentlyContinue \| % { if ((Get-ItemProperty -Path $_.PsPath -ea SilentlyContinue) -match $valueName) { $_.PsPath } } } # find registry key that has value "digitalproductid" # 32-bit versions $key = Search-RegistryKeyValues "hklm:\software\microsoft\office" "digitalproductid" if ($key -eq $null) { # 64-bit versions $key = Search-RegistryKeyValues "hklm:\software\Wow6432Node\microsoft\office" "digitalproductid" if ($key -eq $null) {Write-Host "MS Office is not installed.";break} } $valueData = (Get-ItemProperty $key).digitalproductid[52..66] # decrypt base24 encoded binary data $productKey = "" $chars = "BCDFGHJKMPQRTVWXY2346789" for ($i = 24; $i -ge 0; $i--) { $r = 0 for ($j = 14; $j -ge 0; $j--) { $r = ($r * 256) -bxor $valueData[$j] $valueData[$j] = [math]::Truncate($r / 24) $r = $r % 24 } $productKey = $chars[$r] + $productKey if (($i % 5) -eq 0 -and $i -ne 0) { $productKey = "-" + $productKey } } $obj1 = New-Object Object $obj1 \| Add-Member Noteproperty "Key" -value "Value" $obj1 \| Add-Member Noteproperty "MS Office Product Key" -value $productkey $obj1 } Get-OfficeKey >> ProductKeys.txt Write-Host "MS Office Product Key:" $productKey