Remoteaufruf ist fehlgeschlagen (Code: 800706BE)

  • VBScript

    Remoteaufruf ist fehlgeschlagen (Code: 800706BE)

    Hallo wertes Forum,

    ich habe ein VB-Script, das mir SAP öffnet, anschließend zu einem Excel-Makro weiterleitet und am Ende SAP wieder schließt. Dieses Script ist über Monate gut gelaufen, doch seit einigen Tagen bekomme ich ständig die Fehlermeldung: "Der Remoteaufruf ist fehlgeschlagen.", Code: 800706BE, Quelle: (null).
    Dieses Script habe ich über die Windows Aufgabenplanung eingebunden und lasse es automatisch zweimal im Abstand von ca. 15 Minuten laufen (es sind verschieden Excel-Makros verlinkt).
    Der Fehler tritt soweit ich es aktuell beurteilen kann, immer beim zweiten Durchlauf auf.

    Bei manuellem Start des Scripts ist das Verhalten nicht klar, mal erhalte ich den Fehler, mal läuft der gesamte Ablauf einwandfrei durch.

    Anbei der Code:

    Visual Basic-Quellcode

    1. '***** Parameter für SAP - Anmeldung *****
    2. PFAD = "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe"
    3. myConnection = "RP1 - SSO - ECC - Production"
    4. '******
    6. '***** Auto-Start *****
    7. set wshell = createObject("Wscript.Shell")
    8. err.clear
    10. '10
    11. on error resume next
    12. Number_Session = 0
    13. Set SapGuiAuto = GetObject("SAPGUI")
    14. Set SAP_Application = SapGuiAuto.GetScriptingEngine
    15. Set SAP_Connection = SAP_Application.Children(0)
    16. Set session = SAP_Connection.Children(0)
    17. Number_Session = session.info.sessionnumber
    18. on error goto 0
    20. '20
    21. if Number_Session = 0 then
    22. Number_Process = 0
    23. Dim objWMIService, colItems, objItem, strComputer
    24. strComputer = "."
    25. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    26. Set colItems = objWMIService.InstancesOf("Win32_Process")
    27. For Each objItem In colItems
    28. 'WScript.Echo objItem.ProcessId & ":" & objItem.Name
    29. if right(objItem.Name,12)="saplogon.exe" then Number_Process = Number_Process + 1
    30. '30
    31. Next
    32. Set objWMIService = Nothing
    33. Set colItems = Nothing
    35. If Number_Process = 0 Then
    36. do
    37. wshell.run chr(34) & PFAD & chr(34)
    38. wscript.sleep 4000
    39. error = 0
    40. '40
    41. On Error Resume Next
    42. If Not IsObject(SAP_Application) Then
    43. Set SapGuiAuto = GetObject("SAPGUI")
    44. Set SAP_Application = SapGuiAuto.GetScriptingEngine
    45. End If
    46. error = Err.Number
    47. if error = 0 then exit do
    48. Anzahl = Anzahl + 1
    49. if Anzahl = 5 then exit do
    50. '50
    51. On Error GoTo 0
    52. loop
    53. If error <> 0 Then
    54. MsgBox "SAP Logon ist nicht installiert." , vbInformation
    55. end if
    56. end if
    58. on error resume next
    59. If Not IsObject(SAP_connection) Then
    60. '60
    61. Set connection = SAP_Application.Children(0)
    63. error = err.number
    64. 'msgbox error
    65. End If
    66. If Not IsObject(session) Then
    67. Set session = SAP_connection.Children(0)
    68. error = err.number
    69. 'msgbox error
    70. '70
    71. End If
    72. on error goto 0
    73. if error <> 0 then
    74. Set SAP_Connection = SAP_Application.openconnection(myConnection)
    75. Set session = SAP_Connection.Children(0)
    76. session.findById("wnd[0]").maximize
    77. session.findById("wnd[0]").sendVKey 0
    78. wscript.sleep 2000
    79. else
    80. '80
    81. 'msgbox "Sie sind bereits im SAP angemeldet.", vbinformation, "SAP - Anmeldung"
    82. end if
    84. end if
    86. set objExcel = CreateObject("Excel.Application")
    87. objExcel.Visible = True
    88. set workbook = objExcel.Workbooks.Open("\\denbppfs002\lutz.fricke$\Makros\Neues_Versandreporting\Makros\Neu Makro Versandreporting Rev.16.xlsm")
    89. objExcel.run "A_Ablauf.A_Ablauf"
    90. objExcel.DisplayAlerts = False
    91. objExcel.Workbooks.Close()
    92. objExcel.Quit()
    93. objExcel.DisplayAlerts = True
    95. If Not IsObject(application) Then
    96. Set SapGuiAuto = GetObject("SAPGUI")
    97. Set application = SapGuiAuto.GetScriptingEngine
    98. End If
    99. If Not IsObject(connection) Then
    100. Set connection = application.Children(0)
    101. End If
    103. while connection.children.count > 0
    104. Set asession = connection.Children(0)
    105. asession.findbyid("wnd[0]").close
    106. on error resume next
    107. asession.findById("wnd[1]/usr/btnSPOP-OPTION1").press
    108. on error goto 0
    109. wend

    Den Fehler bekomme ich in Zeile 75: Set session = SAP_Connection.Children(0).

    Hat jemand eine Ahnung, warum ich diesen Fehler mit einem Mal bekomme und was ich dagegen tun kann?

    Ich habe bisher im Netz nur Lösungen zum manuellen Beheben des Problems gefunden. Aufgrund des möglichen manuellen Ablaufs scheint es mir aber kein dauerhaft anstehendes Problem zu sein.

    Sollte jemand eine bessere Idee zum grundsätzlichen Vorgehen haben, bitte auch gerne her damit. Bin im Bereich VB-Script leider auf viel Hilfe angewiesen.

    Vielen Dank für Eure Hilfe,
    Lutz