![]() Set SystemSet = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem") If i Mod 5 = 0 And i 0 Then sProductKey = "-" & sProductKey SProductKey = sProductKe圜hars(k) & sProductKey SArrayPID(UBound(sArrayPID)) = pValues(i) 'Insert our value into the end if the array ReDim Preserve sArrayPID( UBound(sArrayPID) + 1 ) 'In that data, positions 52-66 contain our product id info PoRegistry.GetBinaryValue HKEY_LOCAL_MACHINE,sRegistryKeyName,sRegistryValueName,pValues Set oReg=GetObject("winmgmts:!\\.\root\default:StdRegProv") GetKey = temper(prodloc) & "_" & temper(KeyLoc)Ĭonst strKeyPath64 = "SOFTWARE\Wow6432Node\TVG" Set objFSO = CreateObject("Scripting.FileSystemObject")įor i = LBound(arrKeys) To UBound(arrKeys)ĮlseIf(InStr(arrKeys(i),officeCDLine)) Then Requirements:Product Finder (now form Nirsfot)įirst thing we need to do is copy this VBS code into notepad and save it as keys.vbs ![]() Next a VBS writes the keys to the registry.įinally we tie it all together with custom inventory rules. They way this works is we find the keys using nirsoft's keyfinder program. ![]() I’ve been getting a lot of request for this in my trainings, so here it is.Īt the end of this post, you will have all the tools you need to track your Windows product keys and Microsoft office product keys. How to track Windows and Office Product Keys ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |