Visual Basic Script to Access Various Properties

The following script shows how to access various properties:

'************************************************************************************
'REVIEW INPUT PARAMETERS
'************************************************************************************
If WScript.Arguments.Count <> 5  Then
       Wscript.Echo "You must supply 5 runtime variables." & vbNewLine & "Usage: HFM_LOAD.vbs LoadID CSS_Token OracleInstancePath JavaHomePath OLE_DB_PROVIDER"
       WSCript.Quit -1
Else
       LoadID = Wscript.Arguments.Item(0)
       CSSToken = WScript.Arguments.Item(1)
       OracleInstancePath = WScript.Arguments.Item(2)
       JavaHomePath = WScript.Arguments.Item(3)
       Provider = WScript.Arguments.Item(4)
End If
'************************************************************************************

'************************************************************************************
'Initialize FDMEE VB API
'************************************************************************************
Set objFDMAPI = CreateObject("fdmapi.clsAppServerDM")
WScript.Echo "FDMEE VB API created."
blnInit = objFDMAPI.fInitializeMainAPI(CStr(LoadID), CStr(CSSToken), CStr(OracleInstancePath), CStr(JavaHomePath), CStr(Provider))
If blnInit Then 
       WScript.Echo "FDMEE VB API initialized."
Else
       WScript.Quit -1
       WScript.Echo "fInitializeMainAPI failed."
End If
'************************************************************************************

'************************************************************************************
'Sample Code
'************************************************************************************

WScript.Echo "AppID = " & objFDMAPI.API.State.AppID
WScript.Echo "CatKey = " & objFDMAPI.API.State.CatKey
WScript.Echo "CatName = " & objFDMAPI.API.State.CatName
WScript.Echo "DataValue = " & objFDMAPI.API.State.DataValue
WScript.Echo "EndPeriodKey = " & objFDMAPI.API.State.EndPeriodKey

'Need to test this during Export process
WScript.Echo "ExportFlag = " & objFDMAPI.API.State.ExportFlag
WScript.Echo "ExportMode = " & objFDMAPI.API.State.ExportMode
WScript.Echo "FileDir = " & objFDMAPI.API.State.FileDir
WScript.Echo "FileName = " & objFDMAPI.API.State.FileName
'WScript.Echo "GblnPOVLocal = " & objFDMAPI.API.State.GblnPOVLocal
WScript.Echo "GdtePOVPerKey = " & objFDMAPI.API.State.GdtePOVPerKey
WScript.Echo "GlngPOVCatKey = " & objFDMAPI.API.State.GlngPOVCatKey
WScript.Echo "GlngPOVLocKey = " & objFDMAPI.API.State.GlngPOVLocKey
WScript.Echo "GlngPOVLocType = " & objFDMAPI.API.State.GlngPOVLocType
WScript.Echo "GstrDateMask = " & objFDMAPI.API.State.GstrDateMask
WScript.Echo "GstrMethodID = " & objFDMAPI.API.State.GstrMethodID
WScript.Echo "GstrMsg = " & objFDMAPI.API.State.GstrMsg
WScript.Echo "GstrPOVCat = " & objFDMAPI.API.State.GstrPOVCat
WScript.Echo "GstrPOVLoc = " & objFDMAPI.API.State.GstrPOVLoc
WScript.Echo "GstrPOVPer = " & objFDMAPI.API.State.GstrPOVPer
WScript.Echo "ImportFlag = " & objFDMAPI.API.State.ImportFlag
WScript.Echo "ImportFormat = " & objFDMAPI.API.State.ImportFormat

WScript.Echo "ImportMode = " & objFDMAPI.API.State.ImportMode
WScript.Echo "LoadID = " & objFDMAPI.API.State.LoadID
WScript.Echo "LocKey = " & objFDMAPI.API.State.LocKey
WScript.Echo "LocName = " & objFDMAPI.API.State.LocName
WScript.Echo "MultiPeriodLoad = " & objFDMAPI.API.State.MultiPeriodLoad
WScript.Echo "PeriodKey = " & objFDMAPI.API.State.PeriodKey
WScript.Echo "RuleID = " & objFDMAPI.API.State.RuleID
WScript.Echo "RuleName = " & objFDMAPI.API.State.RuleName
WScript.Echo "Scenario = " & objFDMAPI.API.State.Scenario
WScript.Echo "SourceName = " & objFDMAPI.API.State.SourceName
WScript.Echo "SourceType = " & objFDMAPI.API.State.SourceType
WScript.Echo "TargetAppDB = " & objFDMAPI.API.State.TargetAppDB
WScript.Echo "TargetAppName = " & objFDMAPI.API.State.TargetAppName

If objFDMAPI.API.POVMgr.PPOVLocation = "LOCATION_NAME" Then
       'Enter Sample Code HERE
Else
       'Enter Sample Code HERE
End IF
'************************************************************************************

'************************************************************************************
'Destroy objects
'************************************************************************************
objFDMAPI.Dispose
Set objFDMAPI = Nothing
'************************************************************************************