VB Scripting with Radia Objects

Part 3:

Example 3:

Reading all data from an EDM File

The below script reads all the EDM properties and values from the ZMASTER in the LIB folder.

‘Syntax :

‘GetAllObjectValue(EDM file)

on error resume next
Msgbox GetAllObjectValue(“ZMASTER”)

Function GetAllObjectValue(strObject)
 Set process = GetObject(“winmgmts://./root/novadigm:NVD_Agent”)
 Set method = process.Methods_ (“GetValues”)
 Set inParameters = method.inParameters.SpawnInstance_()
 inParameters.Path = strObject
 Set outParameters = process.ExecMethod_ (“GetValues”, inParameters)
 For i=0 to UBound(outParameters.value)
  GetAllObjectValue = GetAllObjectValue & outParameters.property(i) & ” – ” & outParameters.value(i) & vbcrlf
End Function


0 Responses to “VB Scripting with Radia Objects”

  1. Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )


Connecting to %s

%d bloggers like this: