

CODE: [Copy to clipboard]tasklist.exe|find /i "qq.exe"&&echo 存在
CODE: [Copy to clipboard]Set objWMI = Getobject("Winmgmts:")
Set Process=objWMI.ExecQuery("Select * From Win32_Process Where Name='QQ.exe'")
For Each objProcess In Process
MsgBox "存在"
Next
CODE: [Copy to clipboard]Set objWMI = Getobject("Winmgmts:")
Set Process=objWMI.ExecQuery("Select * From Win32_Process Where Name='QQ.exe'")
For Each objProcess In Process
Name = objProcess.Name
Next
If StrComp(Name,"QQ.exe",1) = 0 Then
MsgBox "存在"
Else
MsgBox "不存在"
End If
| Quote: | |
|
CODE: [Copy to clipboard]运行就正常了。strComputer = "."
Set objWMI = Getobject("Winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
...
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |