mirror of
https://github.com/pandorafms/pandorafms.git
synced 2025-04-08 18:55:09 +02:00
954488bd1a
* pc: Added to repository. Generic PC agent for Unix/Win32 (still in alpha). git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@6339 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
' ps.vbs
|
|
' Returns the status of the given processes.
|
|
' -----------------------------------------
|
|
|
|
Option Explicit
|
|
'On Error Resume Next
|
|
|
|
' Variables
|
|
Dim objWMIService, objItem, colItems, argc, ps, i
|
|
|
|
' Get and hash process information
|
|
Set objWMIService = GetObject ("winmgmts:\\.\root\cimv2")
|
|
Set colItems = objWMIService.ExecQuery ("Select * from Win32_Process")
|
|
Set ps = CreateObject("Scripting.Dictionary")
|
|
For Each objItem in colItems
|
|
if Not ps.Exists(objItem.Name) Then
|
|
ps.Add objItem.Name, 1
|
|
End If
|
|
Next
|
|
|
|
' Parse command line parameters and check each process
|
|
argc = Wscript.Arguments.Count
|
|
For i = 0 To argc - 1
|
|
Wscript.StdOut.WriteLine "<module>"
|
|
Wscript.StdOut.WriteLine " <name><![CDATA[" & Wscript.Arguments(i) & "]]></name>"
|
|
Wscript.StdOut.WriteLine " <description><![CDATA[Process " & Wscript.Arguments(i) & " status]]></description>"
|
|
If argc = 0 Or ps.Exists(Wscript.Arguments(i)) Then
|
|
Wscript.StdOut.WriteLine " <data><![CDATA[" & 1 & "]]></data>"
|
|
Else
|
|
Wscript.StdOut.WriteLine " <data><![CDATA[" & 0 & "]]></data>"
|
|
End If
|
|
Wscript.StdOut.WriteLine "</module>"
|
|
Wscript.StdOut.flush
|
|
Next
|