Newbe: Bitte um Hilfe bei Script

From: Reinhard Pagitsch (reinhard.pagitsch_at_isis-papyrus.com)
Date: 06/22/04


Date: Tue, 22 Jun 2004 14:54:41 +0200

Hallo,

Ich habe hier ein Script das mir für einen bestimmten Process
Performancewerte ausgeben soll.
So nun möchte ich aber das das Script sich beendet wenn der Process
terminiert.
Und so wie ich das sehe werden auch die Daten nicht automatisch
upgedatet.
Gibt es hier eine Funktion/Methode die die
Win32_PerfRawData_PerfProc_Process Tabelle
updated?
Ich hab in der WMI/WSH SDK Doku leider nichts gefunden.

Hier ist der Code:
-----------------
'Arguments: the Process ID to trace
'Time interval 1 second
On Error Resume Next
strComputer = "."
Set objArgs = WScript.Arguments
Arg = objArgs(0)
Query = "Select * from Win32_PerfRawData_PerfProc_Process where
IDProcess = " & Arg
Queryx = "Select * from Win32_PerfFormattedData_PerfProc_Process where
IDProcess = " & Arg

Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colItems = objWMIService.ExecQuery(Query,,48)
Do While colItems
 For Each objItem in colItems
         myTime = Date & " " & Time
'die nächsten 2 Zeilen sollen in einer sein
  str = myTime & ";" & objItem.PercentPrivilegedTime & ";" &
objItem.PercentProcessorTime & ";" & objItem.PercentUserTime & ";" &
objItem.ElapsedTime & ";" & objItem.PageFileBytes & ";" &
objItem.VirtualBytes
  Wscript.Echo str

 Next
 WScript.Sleep 1000
 Set colItems = objWMIService.ExecQuery(Query,,48)
Loop

-----------------------------

Danke,
Reinhard

--
QA
ISIS Information Systems
Austria tel: (+43) 2236 27551 150  Fax: 2236 21081
Visit our web site http://www.isis-papyrus.com