php运行vbs脚本,Win10 运行vbs脚本报错，如何解决？

[Bash shell] 纯文本查看 复制代码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 = "13.x"

FakeClass.Put_