脚本不能执行。

xjswwh

text = inputbox("Enter the process you want to close")

strComputer = "."
PROCESS_NAME = text
Set objNetwork = Wscript.CreateObjec("Wscript.Network")
currUser = objNetwork.UserName

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE Name = '" & PROCESS_NAME & "'")

counter = 0
For Each objProcess In colProcessList
if objProcess.GetOwner ( User, Domain ) = 0 Then
if LCase(User) = currUser Then
counter = counter + 1
End if
End if
Next
MsgBox counter & " Processes of , " & PROCESS_NAME & " , Have been Found"
这段脚本是获取指定进程的，并统计出存在的个数。
我要问的问题是，在QTP中执行这段脚本时，执行到第四行时，老是报找不到“wscript”对象，请问该怎么解决？谢谢！

xjswwh

成功了，谢谢！

winfood

脚本没有语法问题了，问题在这一行：if LCase(User) = currUser Then
从前面语句中取出来的User变量，经过再和currUser比较，应该是：If LCase(User) = LCase(currUser) Then才对。
只对User变量作LCase操作，不能保证和currUser相等。

xjswwh

按照楼上的的指点，脚本顺利的执行了，但是执行的结果不对，不能达到预期的效果，不能统计出指定的进程的个数，返回的个数总是0。

winfood

Set objNetwork = Wscript.CreateObjec("Wscript.Network")这行代码是错的，WScript不包含在QTP的对象模型中。
应该是：Set objNetwork = CreateObject("WScript.Network")