vbs能调用的系统对象小结（vb调用过程）这都可以？

随心笔谈12个月前发布 admin

91 0 0

ChatGPT3.5-4 免费使用

vbs能调用系统对象：

文件系统对象相关: (“scripting.filesystemobject”)

字典相关: (“scripting.dictionary”)

脚本外壳相关: (“wscript.shell”)

windows外壳相关: (“shell.application”)

正则表达式相关: (“vbscript.regexp”)

asp相关: (“mswc.adrotator”) (“mswc.nextlink”) (“mswc.myinfo”)

公用对话框相关: (“mscomdlg.commondialog”)?

编码与密码相关: (“scriptpw.password”)? (?”scripting.encoder”?)

邮件发送的组件相关： (“jmail.message”) (“cdonts.newmail”) (“cdo.configuration”) (“eudora.euapplication.1”) (“novellgroupwaresession”)

水晶报表相关: ?(“crystalruntime.application”)?

ie浏览器相关:? (“internetexplorer.application”)?

windows媒体播放相关:? (“wmplayer.ocx”) (“wmplayer.ocx.7”?)

助手角色相关: (“agent.control”)

ado相关: (“adodb.connection”) (“adodb.command”) (“adodb.recordset”) (“adodb.record”) (“adodb.stream”) (“dao.dbengine.35”) (“adox.catalog”) (“adox.table”)

sql相关: (“sqldmo.sqlserver”) (“sqldmo.login”) (“sqldmo.backup”) (“sqldmo.user”) (“sqldmo.backupdevice”) (“sqldmo.database”) (“sqldmo.restore”) (“sqldmo.application”) office相关: (“word.application”) (“excel.application”) (“powerpoint.application”) (“excel.sheet”) (“frontpage.application”) (“access.application”) (“msgraph.application”) (“outlook.application”)

图像图形相关: (“aspimage.jpeg”) (“persits.jpeg”) (“activeimage.images.1”)? (“jsdraw.ops”) (“jsiptc.jpgedit”) (“gflax.gflax”) (“photoshop.application”)

语音朗读相关: (“speech.voicetext”) (“speech.voicetext.1”) (“sapi.spvoice”) (“sapi.spfilestream”) (“texttospeech.texttospeech”) (“texttospeech.texttospeech.1”) (“activevoice.activevoice”) (“activevoice.activevoice.1”)

操作系统相关: (“jsdlgbox.browser”) (“jsbin.binaryops”) (“jsform.window”) (“jslistvw.list”) (“jssys3.ops”) (“jssys3.iniedit”)? (“tli.tliapplication”) (“autoitx3.control”) (“windowsinstaller.installer”) (“virtualserver.application”) (“useraccounts.commondialog”) (“mosearch.gatherlog.1”) (“mscomdlg.commondialog”)

wmi相关: (“wbemscripting.swbemdatetime”) (“wbemscripting.swbemlocator”) (“wbemscripting.swbemnamedvalueset”) (“wbemscripting.swbemsink”,?”sink_”)? (“wbemscripting.swbemrefresher”) (“wbemscripting.swbemlasterror”) (“wbemscripting.swbemobjectpath”)

web,net相关: (“winhttp.winhttprequest”) (“winhttp.winhttprequest.5.1”) (“msxml2.serverxmlhttp”) (“microsoft.xmlhttp”) (“microsoft.xmldom”) (“msxml2.xmlhttp.4.0”) (“wscript.network”) (“asphttp.conn”) (“inetctls.inet”) (“post.clspost”) (“webget.web”) (“netcommocx.netcomm”,?”com_”)? (“mswinsock.winsock”) (“rcbdyctl.setting”)==================================其他罕见的类型库,如果你用得着,也可以列入常用库:

消息队列: (“msmq.msmqmessage”) (“msmq.msmqqueueinfo”) (“msmq.msmqquery”)

索引服务: (“ixsso.query”) (“ixsso.util”)

信使服务: (“messenger.msgrobject”) (“messenger.messengerapp”) (“msnmessenger.messengerapp”)

打印和传真: (“winprint.winprintx”) (“winfax.sdksend”)? (faxserver.faxserver) (“fmfaxapi.application”) (“oleprn.dsprintqueue.1”)

数据库会话: (“accpac.xapisession”)

报表与pdf发布: (“impromptu.application.30”)

条形码与标签: (“bartender.application”)

邮件群发: (“notes.notessession”) (“notes.notesuiworkspace”) (“notes.notesuiworkspace”)

网络会议: (“netmeeting.app.1”)

ms编程: (“msproject.application”) (“sourcesafe.0”)

路由与映射: (“mappoint.application”)

矢量绘图: (“visio.application”)

建模: (“rose.application”)

再谈CreateObject函数，VBS到底能调用哪些对象？

VBS的CreateObject函数到底能够创建哪些对象，几乎是每个VBS新手都困惑的问题，他们总是热衷于寻找“VBS对象大全”。

对象的注册信息 HKEY_CLASSES_ROOT\CLSID\{GUID} 下可能会有这样的一些子键：Control 说明该组件是一个 ActiveX 控件、Programmable 说明该组件支持自动化、Insertable 说明该组件可以被嵌入到一个 OLE 文档容器中。能找到 Programmable，说明支持自动化，也就是支持 IDispatch 接口，所以它可以被脚本语言使用。不过这种方式比较老了，现在已经被一个的组件类属代替，即 Implemented Categories 子键下面的 GUID 形式的子键。比如 HKEY_CLASSES_ROOT\CLSID\{72C24DD5-D70A-438B-8A42-98424B88AFB8}\Implemented Categories\{40FC6ED5-2438-11CF-A3DB-080036F12502}，看一下 HKEY_CLASSES_ROOT\Component Categories\{40FC6ED5-2438-11CF-A3DB-080036F12502} 下的 409 字符串值为 Automation Objects，也就是“自动化对象”。

也就是说，如果注册表中一个对象的ProgID对应的CLSID下包含有子键Programmable或者Implemented Categories\{40FC6ED5-2438-11CF-A3DB-080036F12502}，那么这个对象就能用CreateObject函数创建。

假设上面的说法正确，那么我们可以用下面的脚本获取“VBS对象大全”：

Option Explicit

Const HKEY_CLASSES_ROOT=&H80000000
Dim arrProgID, strProgID, strCLSID
Dim objReg, objFso, objFile, objShell

Set objReg=GetObject(“winmgmts:\\.\root\default:StdRegProv”)
Set objFso=CreateObject(“Scripting.FileSystemObject”)
Set objShell=CreateObject(“WScript.Shell”)

Set objFile=objFso.OpenTextFile(“ProgID.txt”, 2, True)

‘By Demon
‘http://demon.tw

objReg.EnumKey HKEY_CLASSES_ROOT, “”, arrProgID
For Each strProgID In arrProgID
If GetCLSID(strProgID, strCLSID) Then
If IsProgrammable(strCLSID) Or IsAutomationObject(strCLSID) Then
objFile.WriteLine strProgID
End If
End If
Next
objShell.Run “ProgID.txt”

Function RegKeyExists(hKey, strSubKey)
Dim a, n
n=objReg.EnumKey(hKey, strSubKey, a)
If n=0 Then
RegKeyExists=True
Else
RegKeyExists=False
End If
End Function

Function IsAutomationObject(strCLSID)
Dim strSubKey
IsAutomationObject=False
strSubKey=”CLSID” & strCLSID & “\Implemented Categories”
If RegKeyExists(HKEY_CLASSES_ROOT, strSubKey) Then
strSubKey=strSubKey & “{40FC6ED5-2438-11CF-A3DB-080036F12502}”
If RegKeyExists(HKEY_CLASSES_ROOT, strSubKey) Then
IsAutomationObject=True
End If
End If
End Function

Function IsProgrammable(strCLSID)
IsProgrammable=RegKeyExists(HKEY_CLASSES_ROOT, _
“CLSID” & strCLSID & “\Programmable”)
End Function

Function GetCLSID(strProgID, strCLSID)
Dim s
GetCLSID=False
If RegKeyExists(HKEY_CLASSES_ROOT, strProgID & “\CLSID”) Then
objReg.GetStringValue HKEY_CLASSES_ROOT, strProgID & “\CLSID”, “”, s
If Not IsNull(s) Then
strCLSID=s
GetCLSID=True
End If
End If
End Function

上面的脚本显示在我的系统中存在1000多个对象可以调用。哇！VBS居然可以调用那么多对象！别高兴得太早，我前面说了“假设上面的说法正确”。实际上，UMU的说法并不完全正确，Programmable或者Implemented Categories为{40FC6ED5-2438-11CF-A3DB-080036F12502}的对象也不一定能够用CreateObject创建，比如我系统中有一个ComCtl3.Band就属于这种情况；另外，某些对象并没有Programmable或者Implemented Categories，但是照样可以用CreateObject创建，比如说WindowsInstaller.Installer。

所以不能单纯依靠注册表的是非存在Programmable或者Implemented Categories来判断，那么如果来判断呢？一种方法是根据《VBS技术内幕：CreateObject函数》里面说的，写一个C++程序来模拟CreateObject函数，判断对象是否支持IDispatch接口。不过这样太麻烦了，比较简单的方法是让CreateObject函数自己来判断：

Option Explicit

Const HKEY_CLASSES_ROOT=&H80000000
Dim arrProgID, strProgID, strCLSID
Dim objReg, objFso, objFile, objShell, O

Set objReg=GetObject(“winmgmts:\\.\root\default:StdRegProv”)
Set objFso=CreateObject(“Scripting.FileSystemObject”)
Set objShell=CreateObject(“WScript.Shell”)

Set objFile=objFso.OpenTextFile(“ProgID.txt”, 2, True)

‘By Demon
‘http://demon.tw

objReg.EnumKey HKEY_CLASSES_ROOT, “”, arrProgID
For Each strProgID In arrProgID
If GetCLSID(strProgID, strCLSID) Then
If IsCreatable(strProgID) Then
objFile.WriteLine strProgID
End If
End If
Next
objShell.Run “ProgID.txt”

Function IsCreatable(strProgID)
On Error Resume Next
Dim O
Set O=CreateObject(strProgID)
If Err.Number=0 Then
IsCreatable=True
Else
IsCreatable=False
End If
Set O=Nothing
Err.Clear
End Function

Function RegKeyExists(hKey, strSubKey)
Dim a, n
n=objReg.EnumKey(hKey, strSubKey, a)
If n=0 Then
RegKeyExists=True
Else
RegKeyExists=False
End If
End Function