VB如何调用vbs文件？

'执行的时候都是传的 vbs脚本代码，不是传的 文件名字
Dim s
Dim tmp As String, VBS_Code As String

Set s = CreateObject("MSScriptControl.ScriptControl")
s.Language = "VBScript"

Open "C:\Inetpub\AdminScripts\adsutil.vbs" For Input As #1

Do
Line Input #1, tmp
VBS_Code = VBS_Code & vbCrLf & tmp
Loop While Not EOF(1)

Close 1

s.AddCode VBS_Code
s.executestatement "msgbox 123"
'MsgBox s.Eval("w3svc/1/root/Printers/DefaultDoc")
s.Reset

没那么简单的~

给你两种方案：
一个是你自己用VB实现那个VBS文件的效果
另外一个就是对CScript.exe匿名管道读取

你这是子过程代码sub runvbs（）
你编个private sub form_click（）来调用这个过程
call runcbs（）
还有用shell语句可以启动windows很多应用程序
如
x=shell （C:\Inetpub\AdminScripts\adsutil.vbs）

Private Sub runvbs()
Shell("c:\\Inetpub\AdminScripts\adsutil.vbs")

msgbox"w3svc/1/root/printers/defaultDoc"

End Sub