czjt1234

Set wshshell = GetObject("new:72C24DD5-D70A-438B-8A42-98424B88AFB8")

测试可行，这是谁想到的，牛叉啊

czjt1234

WMI 就是一组COM对象，没什么特别

MsgBox TypeName(GetObject("", "WScript.Shell")) 
复制代码

这个可以运行的么

czjt1234

回复 7# jyswjjgdwtdtj


    我在 win7x64sp1  win10v22H2 win11v22H2 均测试通过

czjt1234

Set obj = GetObject("File:C:\Users\Administrator\Desktop\1.htm")
MsgBox TypeName(obj)    'HTMLDocument

Set obj = GetObject("C:\Users\Administrator\Desktop\1.htm")
MsgBox TypeName(obj)    'HTMLDocument

Set obj = GetObject("New:{72C24DD5-D70A-438B-8A42-98424B88AFB8}")
MsgBox TypeName(obj)    'IWshShell3

Set obj = GetObject("New:72C24DD5-D70A-438B-8A42-98424B88AFB8")
MsgBox TypeName(obj)    'IWshShell3

Set obj = GetObject("New:WScript.Shell")
MsgBox TypeName(obj)    'IWshShell3

Set obj = GetObject("CLSID:72C24DD5-D70A-438B-8A42-98424B88AFB8")
MsgBox VarType(obj)     '13 数据对象

Set obj = GetObject("CLSID:{72C24DD5-D70A-438B-8A42-98424B88AFB8}")
MsgBox VarType(obj)     '13 数据对象

Set obj = GetObject("Script:C:\Users\Administrator\Desktop\1.wsc")
MsgBox TypeName(obj)    '一个随机的CLSID
obj.exec()              '该方法来自 1.wsc 中的定义

Set obj = GetObject("Script:http://192.168.0.11/1.wsc")
MsgBox TypeName(obj)    '一个随机的CLSID
obj.exec()              '该方法来自 1.wsc 中的定义

Set obj = GetObject("Script:ftp://a:Aa12345678@192.168.0.11/1.wsc")
MsgBox TypeName(obj)    '一个随机的CLSID
obj.exec()              '该方法来自 1.wsc 中的定义

Set obj = GetObject("Winmgmts:")
MsgBox TypeName(obj)    'SWbemServicesEx

Set obj = GetObject("WinNT:")
MsgBox TypeName(obj)    'Object

Set obj = GetObject("LDAP:")
MsgBox TypeName(obj)    'Object
复制代码

上述在 win7x64sp1  win10v22H2 win11v22H2 均测试通过
其中1.wsc来自5楼
数据对象应该是com对象的接口的指针，vbs不能调用指针

下列各行代码在 win7x64sp1  win10v22H2 win11v22H2 中均报语法错误

Set obj = GetObject("File:http://192.168.0.11/1.wsc")
Set obj = GetObject("http://192.168.0.11/1.wsc")

Set obj = GetObject("File:ftp://a:Aa12345678@192.168.0.11/1.wsc")
Set obj = GetObject("ftp://a:Aa12345678@192.168.0.11/1.wsc")

Set obj = GetObject("progid:WScript.Shell")
复制代码

czjt1234

回复 9# jyswjjgdwtdtj


    你这个语法格式哪来的？看不懂么