VBS与IE无法正常工作

Question

我正在尝试从vbs打开IE，它可以从我正在使用的PC上运行（Windows 10 x64），但是当我尝试在我的PC上打开相同的代码时（Windows 10 Pro x64（它显示'Windows 10 Enterprise） '因为我已经破解了许可证））我每次都得到同样的错误：

行：9 性格：1 错误：授权被拒绝：'CreateObject' 错误代码：800A0046

这是我的完整代码：

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Internet Explorer"
strValueName = "Version"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
URL = InputBox("Please enter an URL","PrivateBrowser v"&strValue,"http://google.com")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Toolbar = False
objIE.StatusBar = False
objIE.MenuBar = False
objIE.Navigate URL
objIE.Visible = True

我已经搜索了一段时间，但我找不到解决方案。