welcome to 's blog...


公告

我的分类(专题)

日志更新

最新评论

留言板

链接

搜索


Blog信息




破解 Terminal Service License 限制
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了"


阅读全文 | 回复(0) | 引用通告 | 编辑


发表评论:

    昵称:
    密码: (游客无须输入密码)
    主页:
    标题:



Powered by Oblog.