mirror of
https://github.com/sbrow/ps.git
synced 2025-12-29 18:47:38 -05:00
206b94dcac
* Moved scripts / runner to separate package
allows future replacement with PS Plugin.
* Fixed issues with Refresh and removed "layer" function.
* Added github documentation via godocdown.
* Reduced number of calls to Panic.
* Updated Tests
* Updated documentation.
* Fixed warnings.
* .gitignore now ignores .test and .out files.
13 lines
428 B
Plaintext
13 lines
428 B
Plaintext
Function IsProcessRunning( strComputer, strProcess )
|
|
Dim Process, strObject
|
|
IsProcessRunning = False
|
|
strObject = "winmgmts://" & strComputer
|
|
For Each Process in GetObject( strObject ).InstancesOf( "win32_process" )
|
|
If UCase( Process.name ) = UCase( strProcess ) Then
|
|
IsProcessRunning = True
|
|
Exit Function
|
|
End If
|
|
Next
|
|
End Function
|
|
wScript.Echo IsProcessRunning(".", "Photoshop.exe")
|