Skip to main content

Script Example 1: Conversion of Data

This script example demonstrates how to perform a query and modify returned data. The script provides the data collector with the information you would provide if you used the user interface to design the query. However, in this case, the script does it all. The data collector returns a value, and Enterprise Auditor converts and stores it.

This script starts by defining a query using the Perfmon Data Collector. Notice that the script uses the WorkingQuery object, not the Query object. This preserves the Query object, since the script uses it to store results that differ from what the data collector provides.

The script then issues the query by calling WorkingQuery.Execute. When the query completes, the script sets WorkingQuery to view the first row of results by setting the ResultRow property. The script then transfers the value of the System Up Time property into the REMAINDER variable for easier manipulation.

The script then takes the value of REMAINDER, which is in seconds, and converts it to days, hours, minutes, and seconds. The script then records these values in the Query object so that Enterprise Auditor can store the data.

note

This example specifies the hours, minutes, and seconds properties manually using the task dialog. See the Script Properties topic for additional information.

Example of Conversion of Data Script​

The conversation of data script example is:

Sub Task()
Dim DAYS
Dim HRS
Dim MINS
Dim SECS
Dim REMAINDER 
WorkingQuery.Host=Query.Host
WorkingQuery.Source="Perfmon"
WorkingQuery.Paths=1
WorkingQuery.Path(0)="System\System Up Time"
WorkingQuery.AddProperty  "NAME=System Up Time,DATATYPE=NUMERIC,VALUE=,COLUMN=UPTIME"
WorkingQuery.Execute
WorkingQuery.ResultRow=0
REMAINDER=WorkingQuery.ResultData("System Up Time") 
Query.ResultRows=1
Query.ResultRow=0 
'Calculate days/hrs/mins/secs
DAYS=INT(REMAINDER/86400)
REMAINDER=REMAINDER-(DAYS*86400)
HRS=INT(REMAINDER/3600)
REMAINDER=REMAINDER-(HRS*3600)
MINS=INT(REMAINDER/60)
SECS=INT(REMAINDER-(MINS*60)) 
Query.ResultData("SecondsElapsed")=INT(WorkingQuery.ResultData("System Up Time"))
Query.ResultData("Days")=DAYS
Query.ResultData("Hrs")=HRS
Query.ResultData("Mins")=MINS
Query.ResultData("Secs")=SECS
End Sub