If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
   Set connection = application.Children(0)
End If
If Not IsObject(session) Then
   Set session = connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject session,     "on"
   WScript.ConnectObject application, "on"
End If

Dim logFilePath
logFilePath = "‪C:\Users\kk_lam\Documents\UiPath\SAP ZBMM016\SAPLog.txt"

Dim fso, logFile
Set fso = CreateObject("Scripting.FileSystemObject")

Set logFile = fso.OpenTextFile(logFilePath, 8, True)

logFile.WriteLine Now & " - Script started"

Dim plantCode
Dim mrpcode
plantCode = WScript.Arguments(0)
mrpcode = WScript.Arguments(1)


logFile.WriteLine Now & " - Plant Code: " & plantCode
logFile.WriteLine Now & " - MRP Code: " & mrpcode

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "T-code"
session.findById("wnd[0]").sendVKey 0

logFile.WriteLine Now & " - Navigated to transaction ZBMM016"

session.findById("wnd[0]/usr/ctxtP_WERK1").text = plantCode
session.findById("wnd[0]/usr/ctxtS_DISPO-LOW").text = mrpcode

logFile.WriteLine Now & " - Set Plant Code to: " & plantCode
logFile.WriteLine Now & " - Set MRP Code to: " & mrpcode

session.findById("wnd[0]/usr/ctxtS_DISPO-LOW").setFocus
session.findById("wnd[0]/usr/ctxtS_DISPO-LOW").caretPosition = 3
session.findById("wnd[0]/tbar[1]/btn[8]").press

logFile.WriteLine Now & " - Executed search"

session.findById("wnd[0]/tbar[1]/btn[33]").press
session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").currentCellRow = 10
session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").firstVisibleRow = 7
session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").selectedRows = "10"
session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").clickCurrentCell

logFile.WriteLine Now & " - Selected row and clicked cell"

session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell 4,"MAKT2"
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").contextMenu
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectContextMenuItem "&XXL"
session.findById("wnd[1]/tbar[0]/btn[0]").press

logFile.WriteLine Now & " - Exported data to Excel"

session.findById("wnd[0]/tbar[0]/btn[15]").press
session.findById("wnd[0]/tbar[0]/btn[15]").press

logFile.WriteLine Now & " - Closed transaction"

logFile.WriteLine Now & " - Script ended"
logFile.Close