様々なプロパティにアクセスするVisual Basicスクリプト

次のスクリプトは、様々なプロパティにアクセスする方法を示します:

'************************************************************************************

'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

'************************************************************************************