|
aku1 发表于 2008-2-14 9:37:02 |
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSLicensing\HardwareID\ClientHWID" '破解 Terminal Service License 限制
Option Explicit
Dim strComputer,oReg,strKeyPath,Bkey
On ERROR RESUME NEXT
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\MSLicensing\Store\LICENSE000"
oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath
msgbox "可以正常使用Citrix Client了"
| 
