Windows XP VLK 設定置方便的程式

[psac]

因常常需要與兩次臨時幫朋友搗鼓電腦，在手頭上剛好無碟又只有一台電腦也還不能上網的情況之下，遭遇windows XP至使啟動鎖定。因飽受四處奔波以換檔方式拷貝7個文件之苦，於是下決心動手，將取代文件檔案、進行修改註冊表、更換KEY整合到一個傻瓜式方便安裝程序中，以保留以備不時之需。

·因考慮到同樣一份文件檔案,要解壓縮到system32和dllcache兩個目錄下，為了不增加安裝包體積大小容量，使用 InnoSetup 而不是 WinRAR壓縮 製作安裝包。

·安裝程序會將其他版本更換成批量xp VOL許可版，並同時更換KEY（使用了 MRX3F-... 這個所謂工行版的KEY）。

·附安裝指令碼源碼，以供需要自行設定的網友參考研究使用。


; Inno Setup 脚本程式
[Setup]
AppName=Windows XP VLK
AppVerName=Windows XP Volume Key
AppPublisher=Microsoft
AppPublisherURL=http://www.microsoft.com
AppSupportURL=http://www.microsoft.com
AppUpdatesURL=http://www.microsoft.com
VersionInfoVersion=1.0.0.0
MinVersion=0,5.0
Uninstallable=no
CreateAppDir=no
OutputDir=D:\VOL
OutputBaseFilename=VLKey
Compression=none
SolidCompression=yes

[Languages]
Name: "chi"; MessagesFile: "compilerefault.isl"

[Files]
Source: "D:\VOL\vol.vbs"; DestDir: "{sys}"; Flags: ignoreversion
Source: "D:\VOL\oembios.bin"; DestDir: "{sys}"; Flags: ignoreversion
Source: "D:\VOL\oembios.cat"; DestDir: "{sys}"; Flags: ignoreversion
Source: "D:\VOL\oembios.dat"; DestDir: "{sys}"; Flags: ignoreversion
Source: "D:\VOL\oembios.sig"; DestDir: "{sys}"; Flags: ignoreversion
Source: "D:\VOL\dpcdll.dll"; DestDir: "{sys}"; Flags: ignoreversion
Source: "D:\VOL\licdll.dll"; DestDir: "{sys}"; Flags: ignoreversion
Source: "D:\VOL\pidgen.dll"; DestDir: "{sys}"; Flags: ignoreversion
Source: "D:\VOL\oembios.bin"; DestDir: "{sys}\dllcache"; Flags: ignoreversion
Source: "D:\VOL\oembios.cat"; DestDir: "{sys}\dllcache"; Flags: ignoreversion
Source: "D:\VOL\oembios.dat"; DestDir: "{sys}\dllcache"; Flags: ignoreversion
Source: "D:\VOL\oembios.sig"; DestDir: "{sys}\dllcache"; Flags: ignoreversion
Source: "D:\VOL\dpcdll.dll"; DestDir: "{sys}\dllcache"; Flags: ignoreversion
Source: "D:\VOL\licdll.dll"; DestDir: "{sys}\dllcache"; Flags: ignoreversion
Source: "D:\VOL\pidgen.dll"; DestDir: "{sys}\dllcache"; Flags: ignoreversion
; 注意: 不要在任何共享系统文件中使用“Flags: ignoreversion”

[Registry]
Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion"; ValueType: string; ValueName: "ProductId"; ValueData: "55661-640-9597336-23853"
Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion"; ValueType: binary; ValueName: "DigitalProductId"; ValueData: "a4 00 00 00 03 00 00 00 35 35 36 36 31 2d 36 34 30 2d 39 35 39 37 33 33 36 2d 32 33 38 35 33 00 2e 00 00 00 41 32 32 2d 30 30 30 30 31 00 00 00 00 00 00 00 eb 89 68 4c 2b 91 60 1c 48 4d e0 31 4d 98 00 00 00 00 00 00 0b 4c 2e 41 83 78 05 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 36 36 33 32 31 00 00 00 00 00 00 00 aa 16 00 00 6a 17 17 e8 00 03 00 00 16 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 71 23 97 31"
Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion"; ValueType: binary; ValueName: "LicenseInfo"; ValueData: "33 6d f5 72 51 bb ed 5d 95 6b 56 f1 8e 5a 0a 3a d2 a7 bb 70 80 c2 c8 3e bf f7 47 b8 ad e2 2e c7 8c 11 b5 e9 25 58 36 61 c8 86 6c 79 82 44 72 fa a8 23 fa 58 b7 87 9c 26"
Root: HKLM; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion"; ValueType: string; ValueName: "ProductId"; ValueData: "55661-640-9597336-23853"

[Run]
Filename: "{sys}\vol.vbs"; Parameters: "//B //Nologo xxxxx-xxxxx-xxxxx-xxxxx-xxxxx"; Flags: shellexec

[psac]

' WMI Script - vol.vbs

ON ERROR RESUME NEXT

if Wscript.arguments.count<1 then
Wscript.echo "An error has occurred. Please email youname@yahoo.com"
Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
WScript.Echo "Your product key has been successfully updated. Please restart the Keyfinder to verify it."
end if

if err <> 0 then
WScript.Echo "An error has occurred. This was probably caused by the keying of an invalid number. Please check it and try again."
Err.Clear
end if

Next

[kyoshih]

試試看，感謝分享！