StrPopupMsg = strOS & vbNewLine & vbNewLine Set wshShell=CreateObject("wscript.shell") StrRegistered = objOperatingSystem.RegisteredUser StrSerial = objOperatingSystem.SerialNumber StrBuild = objOperatingSystem.BuildNumber Set colOperatingSystems = objWMIService.ExecQuery _įor Each objOperatingSystem in colOperatingSystems Set oReg = GetObject("winmgmts:!\\" & strComputer & "\root\cimv2")
StrKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion" VBScript by Hackoo below const HKEY_LOCAL_MACHINE = &H80000002 Sometimes, the registry values change or get removed so in that case, I would use extra third-party software if that is not a limitation or of concern. There are many different VBScripts well known to get your product key and most of them are based on the registry since the registry stores your product key formatted in a specific way (semi-encrypted but not really if you will). You can get the product key that is on your computer with a VBScript as shown here authored by Hackoo. However, if you entered a product key or have a digital liscence connected to the computer, this won't work. Or in Administrator Powershell $(Get-WmiObject -query 'select * from SoftwareLicensingService').OA3xOriginalProductKey If you are running windows on a genuine windows copy that is connected to the motherboard (an OEM key), you can use this command i windows administrator command prompt: wmic path softwareLicensingService get OA3xOriginalProductKey
0 kommentar(er)
