TeamViewer 13 破解疑似商業應用 5分鐘限制 重置ID號vbs指令碼
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