Code: Select all
Set WshShell = WScript.CreateObject ("WScript.Shell")
Set colProcessList = GetObject("Winmgmts:").ExecQuery ("Select * from Win32_Process")
For Each objProcess in colProcessList
If objProcess.name = "notepad.exe" then
vFound = True
End if
Next
If vFound then
msgbox("found")
Else
msgbox("not found")
End If
Code: Select all
If vFound then
result = "Found"
Else
result = "Not Found"
End If
Code: Select all
on mouseUp
do the cVBScript of me as "vbscript"
put the result into tResult
answer tResult
end mouseUp
Code: Select all
execution error
