Visual Basic Script to Execute SQL

'************************************************************************************
'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
       '************************************************************************************
       'Delete one record from tdataseg
       '************************************************************************************
       strDeleteSQL = "DELETE FROM TDATASEG_T WHERE LOADID = " & CStr(LoadID) & " AND ENTITY = 'EastSales'"
       'Execute SQL
       objFDMAPI.API.DataWindow.DataManipulation.fExecuteDML CStr(strDeleteSQL)
End If
      '************************************************************************************

'************************************************************************************
'Destroy objects
'************************************************************************************
objFDMAPI.Dispose
Set objFDMAPI = Nothing
WScript.Echo "FDMEE VB API  destroyed."
'************************************************************************************