破解 Terminal Service License 限制

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了"