次のスクリプトは、様々なプロパティにアクセスする方法を示します:
'************************************************************************************
'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 '************************************************************************************