Get windows product key infromation
2009-01-16 14:14
288 查看
Option Explicit
'-------------------------------------------------------------------------------------
Dim objReg,WshNetwork
Dim Digits (24),HexBuf (100), HexDigitalPID (15)
Dim StartOffset,EndOffset,i,dLen,sLen,KEYSTRING,HN,N,Value
Digits (0) = "B" : Digits (1) = "C": Digits (2) = "D": Digits (3) = "F":
Digits (4) = "G": Digits (5) = "H": Digits (6) = "J": Digits (7) = "K":
Digits (8) = "M": Digits (9) = "P": Digits (10) = "Q": Digits (11) = "R":
Digits (12) = "T": Digits (13) = "V": Digits (14) = "W": Digits (15) = "X":
Digits (16) = "Y": Digits (17) = "2": Digits (18) = "3": Digits (19) = "4":
Digits (20) = "6" : Digits (21) = "7" : Digits (22) = "8": Digits (23) = "9"
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objReg = GetObject("winmgmts://" & WshNetwork.computername & "/root/default:StdRegProv")
objReg.GetBinaryValue &H80000002, "SOFTWARE/Microsoft/Windows NT/CurrentVersion/", "DigitalProductId", HexBuf
StartOffset = 52 : EndOffset =67
For i = StartOffset to EndOffset
HexDigitalPID (i-StartOffset) = HexBuf(i)
Next
dLen = 29 : sLen = 15
KEYSTRING =""
For i=dLen-1 TO 0 Step -1
IF ((i + 1) MOD 6) = 0 Then
KEYSTRING = KEYSTRING & "-"
Else
HN = 0
For N = (sLen -1) TO 0 Step -1
Value = ( (HN *2^8 ) Or HexDigitalPID (N))
HexDigitalPID (N) = Value / 24
HN = (Value MOD 24)
Next
KEYSTRING = KEYSTRING & Digits(HN)
End IF
Next
Wscript.Echo StrReverse(KEYSTRING)
Wscript.quit
'-------------------------------------------------------------------------------------
Dim objReg,WshNetwork
Dim Digits (24),HexBuf (100), HexDigitalPID (15)
Dim StartOffset,EndOffset,i,dLen,sLen,KEYSTRING,HN,N,Value
Digits (0) = "B" : Digits (1) = "C": Digits (2) = "D": Digits (3) = "F":
Digits (4) = "G": Digits (5) = "H": Digits (6) = "J": Digits (7) = "K":
Digits (8) = "M": Digits (9) = "P": Digits (10) = "Q": Digits (11) = "R":
Digits (12) = "T": Digits (13) = "V": Digits (14) = "W": Digits (15) = "X":
Digits (16) = "Y": Digits (17) = "2": Digits (18) = "3": Digits (19) = "4":
Digits (20) = "6" : Digits (21) = "7" : Digits (22) = "8": Digits (23) = "9"
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objReg = GetObject("winmgmts://" & WshNetwork.computername & "/root/default:StdRegProv")
objReg.GetBinaryValue &H80000002, "SOFTWARE/Microsoft/Windows NT/CurrentVersion/", "DigitalProductId", HexBuf
StartOffset = 52 : EndOffset =67
For i = StartOffset to EndOffset
HexDigitalPID (i-StartOffset) = HexBuf(i)
Next
dLen = 29 : sLen = 15
KEYSTRING =""
For i=dLen-1 TO 0 Step -1
IF ((i + 1) MOD 6) = 0 Then
KEYSTRING = KEYSTRING & "-"
Else
HN = 0
For N = (sLen -1) TO 0 Step -1
Value = ( (HN *2^8 ) Or HexDigitalPID (N))
HexDigitalPID (N) = Value / 24
HN = (Value MOD 24)
Next
KEYSTRING = KEYSTRING & Digits(HN)
End IF
Next
Wscript.Echo StrReverse(KEYSTRING)
Wscript.quit
相关文章推荐
- GetWindowsProductKey
- Get your Windows product key from a script
- Get Product ID and Product Name in Magento
- linux内网SSH,SCP登录其他服务器Add correct host key in /root/.ssh/known_hosts to get rid of this message
- Windows 8在Vmware 8 中安装提示:windows cannot read the<product key> setting from the unattend answer
- get top k elements of the same key in hive
- How to Get All Product Images in products list page?
- XP: Get Updates No Matter What or Change your Invalid Product Key
- how to get keyboard key with non blocking in terminal
- ORACLE中IN和OR谁更高效?【WHICH KEY WORD CAN GET BETTER PERFORMANCE? 】 推荐
- get blend 4 RC product key
- Windows 8在Vmware 8 中安装提示:windows cannot read the<product key> setting from the unattend answer
- VM8.0装win8出现的windows cannot read the product key setting from the unattend answer file
- Key Hashes for Facebook Apps - Android application development in Windows
- Get Product ID and Product Name in Magento
- How to Get All Product Images in products list page?
- Windows Vista Brute Force Product Key Keygen for Activation
- GetObjectbyKey in E.F. vs. Querying for a single entity
- How to get position of key/value in LinkedHashMap using its key
- VM8.0下安装遇到了问题“windows cannot read the<product key> setting from the unattend answer file”解决方法