Add input box

[Former Member]

Hello,

I was wondering what code I can use to add an input box to my code below that will prompt me to enter the Plant right before the line in Bold below??

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 session.findById("wnd[0]").maximize session.findById("wnd[0]/tbar[0]/okcd").text = "/nih08" session.findById("wnd[0]").sendVKey 0 session.findById("wnd[0]/tbar[1]/btn[17]").press session.findById("wnd[1]/usr/txtV-LOW").text = "equipment List" session.findById("wnd[1]/usr/txtV-LOW").caretPosition = 14 session.findById("wnd[1]/tbar[0]/btn[8]").press session.findById("wnd[0]/usr/ctxtDATUV").text = ""

session.findById("wnd[0]/usr/ctxtSWERK-LOW").text = "9835"

session.findById("wnd[0]/usr/ctxtDATUV").setFocus session.findById("wnd[0]/usr/ctxtDATUV").caretPosition = 0 session.findById("wnd[0]/tbar[1]/btn[8]").press session.findById("wnd[0]/mbar/menu[0]/menu[10]/menu[2]").select session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").select session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").setFocus session.findById("wnd[1]/tbar[0]/btn[0]").press session.findById("wnd[1]").sendVKey 4 session.findById("wnd[1]/tbar[0]/btn[0]").press