TeamViewer 13 破解疑似商业应用 5分钟限制 重置ID号vbs脚本

发布于 2019-09-26 作者 风铃 28次 浏览 版块 前端


intHighNumber = 99999

intLowNumber = 10000

intNumbers = 1

 Randomize

 intNumber = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)

strnum = "01234567-8910-ABCD-1111-093F03C"
strnum = strnum & Cstr(intNumber)

Set oLocation = CreateObject("WbemScripting.SWbemLocator")
Set oServices = oLocation.ConnectServer(, "root\cimv2")
Set FakeClass = oServices.Get

FakeClass.Path_.Class = "Win33_ComputerSystemProduct"

FakeClass.Properties_.add "Caption", 8
FakeClass.Properties_.add "Description", 8
FakeClass.Properties_.add "IdentifyingNumber", 8
FakeClass.Properties_.add "Name", 8
FakeClass.Properties_.add "SKUNumber", 8
FakeClass.Properties_.add "UUID", 8
FakeClass.Properties_.add "Vendor", 8
FakeClass.Properties_.add "Version", 8
FakeClass.Properties_("Name").Qualifiers_.add "key", false
FakeClass.Put_

Set FakeClass = GetObject("Winmgmts:root\cimv2:Win33_ComputerSystemProduct").SpawnInstance_

FakeClass.Caption = "http://www.teamviewer.com"
FakeClass.Description = "class for teamviewer"
FakeClass.IdentifyingNumber = "www.teamviewer.com"
FakeClass.Name = "Teamviewer"
FakeClass.SKUNumber = ""
FakeClass.UUID = strnum
FakeClass.Vendor = "Teamviewer"
FakeClass.Version = "10.x"
FakeClass.Put_

Wscript.Echo strnum

---------------------------------------------------------------------

重置工具下载:

将工具放到TeamViewer目录下执行

链接:https://pan.baidu.com/s/1k9uuDhafrPpLWkZbQRxTiA 
提取码:x0yp

 

收藏
暂无回复