(以“== VBScript == <source lang="vb"> set wshShell = CreateObject("WScript.Shell") </source> === Sub/Function === <source lang="vb"> Sub foo(arg1, arg2) ... End Sub fo...”为内容创建页面) |
(没有差异)
|
2016年11月1日 (二) 16:51的最新版本
VBScript
set wshShell = CreateObject("WScript.Shell")
Sub/Function
Sub foo(arg1, arg2)
...
End Sub
foo 1, 2
Function bar(arg1, arg2)
...
bar = retVal
End Function
ret = bar(3, 4)
wshShell.Run """Hello.exe"" world", 0
Check if started
From stackoverflow
sComputerName = "."
Set objWMIService = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2")
sQuery = "SELECT * FROM Win32_Process WHERE Name LIKE '%" + procName + "%'"
Set objItems = objWMIService.ExecQuery(sQuery)
'iterate all item(s)
For Each objItem In objItems
started = true
Next