关于脚本调用外部对像和类型库
时间：2021-09-25 08:17:25|栏目：VBS|点击： 次
先举个例子，最近的flash网马调用:
var Flashver = (new ActiveXObject("ShockwaveFlash.ShockwaveFlash.9")).GetVariable("$version").split(",");
这个ShockwaveFlash.ShockwaveFlash.9从何而来，用exescope打开flash9f.ocx选择typelib，即可看到ShockwaveFlash.ShockwaveFlash.9对像的函数，其中就有GetVariable。这就带来另一个问题，如何知是要打开的是flash9f.ocx呢？如果只是针对这个，可以用IE的组件管理器查看到。
那么我们调用其它的可不可以，像mstsc.exe，3389连接器的组件呢？注册表查找mstsc.exe，找到的HKEY_CLASSES_ROOT\CLSID\{3523c2fb-4031-44e4-9a3b-f1e94986ee7f}\InprocServer32就是C:\WINDOWS\system32\mstscax.dll，然后用exescope打开也可以看到这个组件的函数、属性、方法等。可以简单示例（md，只是能改mstsc.exe的各方面属性值，一直打不开连接界面，谁来改改？）：
Sub ExecuteConnection(strServer, strUser, strPW)
' create the client
Dim objMsRdpClient
Set objMsRdpClient = CreateObject("MsTscAx.MsTscAx.3")
objMsRdpClient.Server = strServer
objMsRdpClient.UserName =strUser
objMsRdpClient.FullScreen = false
objMsRdpClient.AdvancedSettings2.RedirectDrives = False
objMsRdpClient.AdvancedSettings2.RedirectPrinters = False
objMsRdpClient.AdvancedSettings2.RedirectPorts = False
objMsRdpClient.AdvancedSettings2.RedirectSmartCards = False
objMsRdpClient.AdvancedSettings2.ClearTextPassword = strPW
objMsRdpClient.StartConnected = True
WScript.echo "Before connecting"
wscript.echo objMsRdpClient.version
dim intResult
intResult = objMsRdpClient.Connect
WScript.echo "After connecting Result: " & intResult
End Sub
调用组件，不仅可以使用注册表中找到的HKEY_CLASSES_ROOT\CLSID\{3523c2fb-4031-44e4-9a3b-f1e94986ee7f}\ProgID（上边的例子就是CreateObject("MsTscAx.MsTscAx.3")
），也可以用HKEY_CLASSES_ROOT\CLSID，这也就是为什么我们在asp木马中也可以用到的classid，像海阳顶端2006+源码中的：
<object runat="server" id = "ws" scope = "page" classid = "clsid:72C24DD5-D70A-438B-8A42-98424B88AFB8"></object>
<object runat="server" id = "fso" scope = "page" classid = "clsid:0D43FE01-F093-11CF-8940-00A0C9054228"></object>
<object runat="server" id = "ws" scope = "page" classid = "clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B"></object>
<object runat="server" id = "sa" scope = "page" classid = "clsid:13709620-C279-11CE-A49E-444553540000"></object>
当然其它别的网马，基本调用的都是CLSID了，你可以随便找一些网马来看。
不过在vbs中好像不可以直接调用classid，放在wsf文件中就可以，当然是html之类的更无所谓了。
这里只是简单说一下，如果你要看图文的教程，可以看一下这个：
var Flashver = (new ActiveXObject("ShockwaveFlash.ShockwaveFlash.9")).GetVariable("$version").split(",");
这个ShockwaveFlash.ShockwaveFlash.9从何而来，用exescope打开flash9f.ocx选择typelib，即可看到ShockwaveFlash.ShockwaveFlash.9对像的函数，其中就有GetVariable。这就带来另一个问题，如何知是要打开的是flash9f.ocx呢？如果只是针对这个，可以用IE的组件管理器查看到。
那么我们调用其它的可不可以，像mstsc.exe，3389连接器的组件呢？注册表查找mstsc.exe，找到的HKEY_CLASSES_ROOT\CLSID\{3523c2fb-4031-44e4-9a3b-f1e94986ee7f}\InprocServer32就是C:\WINDOWS\system32\mstscax.dll，然后用exescope打开也可以看到这个组件的函数、属性、方法等。可以简单示例（md，只是能改mstsc.exe的各方面属性值，一直打不开连接界面，谁来改改？）：
Sub ExecuteConnection(strServer, strUser, strPW)
' create the client
Dim objMsRdpClient
Set objMsRdpClient = CreateObject("MsTscAx.MsTscAx.3")
objMsRdpClient.Server = strServer
objMsRdpClient.UserName =strUser
objMsRdpClient.FullScreen = false
objMsRdpClient.AdvancedSettings2.RedirectDrives = False
objMsRdpClient.AdvancedSettings2.RedirectPrinters = False
objMsRdpClient.AdvancedSettings2.RedirectPorts = False
objMsRdpClient.AdvancedSettings2.RedirectSmartCards = False
objMsRdpClient.AdvancedSettings2.ClearTextPassword = strPW
objMsRdpClient.StartConnected = True
WScript.echo "Before connecting"
wscript.echo objMsRdpClient.version
dim intResult
intResult = objMsRdpClient.Connect
WScript.echo "After connecting Result: " & intResult
End Sub
调用组件，不仅可以使用注册表中找到的HKEY_CLASSES_ROOT\CLSID\{3523c2fb-4031-44e4-9a3b-f1e94986ee7f}\ProgID（上边的例子就是CreateObject("MsTscAx.MsTscAx.3")
），也可以用HKEY_CLASSES_ROOT\CLSID，这也就是为什么我们在asp木马中也可以用到的classid，像海阳顶端2006+源码中的：
<object runat="server" id = "ws" scope = "page" classid = "clsid:72C24DD5-D70A-438B-8A42-98424B88AFB8"></object>
<object runat="server" id = "fso" scope = "page" classid = "clsid:0D43FE01-F093-11CF-8940-00A0C9054228"></object>
<object runat="server" id = "ws" scope = "page" classid = "clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B"></object>
<object runat="server" id = "sa" scope = "page" classid = "clsid:13709620-C279-11CE-A49E-444553540000"></object>
当然其它别的网马，基本调用的都是CLSID了，你可以随便找一些网马来看。
不过在vbs中好像不可以直接调用classid，放在wsf文件中就可以，当然是html之类的更无所谓了。
这里只是简单说一下，如果你要看图文的教程，可以看一下这个：
