Visual Basic Script to Copy a File to the Inbox

************************************************************************************
'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
'************************************************************************************
If objFDMAPI.API.State.LocName = "MT_COMMA7" Then
       ************************************************************************************
       'Copy file to Inbox
       ************************************************************************************
       strFileDir = "C:\"
       strFileName = "CopyThisFile.txt"

       'Create FileSystemObject
       Set objFSO = CreateObject("Scripting.FileSystemObject")

       If objFSO.FileExists(strFileDir & strFileName) Then
              'Copy the file
       End If

       Set objFSO = Nothing
End If
'************************************************************************************