WScript对象要怎么样才能在QTP下使用?

zhaoping

WScript对象可以不声明而直接在vbs中使用，却不能直接用于QTP中,调试不通过.不知道具体有没有办法,让WScript对象也能在QTP下使用?

zhaoping

Dim oShell
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
Set oShell =CreateObject ("WSCript.shell")
For Each objComputer in colComputers
oShell.Echo objComputer.Name
Next
Set oShell = Nothing

zhaoping

这样改了还是不行,目前通过CMD方式调用VBS是可以的,不知道还有没有别的方法?