Help Us to Help You – Information Which Helps to Support

Hello community,

often it is difficult to support users which posts questions here, because basically information are missing. Here a tiny script which detects a few technical information which are often of interest in the context of support. Add this information to your post and it is easier to support you. All you have to do is to set the filename – the red marked line -, to drag and drop the script on your session and to copy and paste the information from the file into your post.

The information looks e.g. like this:

Transaction          : SE80
Program              : SAPLSEO_CLEDITOR
ScreenNumber         : 300
CodePage             : 4110
GuiCodePage          : 4110
I18NMode             : False
Language             : EN
IsLowSpeedConnection : False

Help us to help you.

Cheers
Stefan

'-Begin-----------------------------------------------------------------

  '-Directives----------------------------------------------------------
    Option Explicit

  '-Sub Main------------------------------------------------------------
    Sub Main()

      '-Variables-------------------------------------------------------
        Dim SapGuiAuto, application, connection, session, info
        Dim oFSO, oFile, FileName

      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

      Set info = session.Info

      FileName = "C:\Dummy\Info.txt"
      Set oFSO=CreateObject("Scripting.FileSystemObject")
      Set oFile = oFSO.CreateTextFile(FileName, True)
      oFile.Write "Transaction          : " & _
        Info.Transaction & vbCrLf
      oFile.Write "Program              : " & _
        Info.Program & vbCrLf
      oFile.Write "ScreenNumber         : " & _
        CStr(Info.ScreenNumber) & vbCrLf
      oFile.Write "CodePage             : " & _
        CStr(Info.CodePage) & vbCrLf
      oFile.Write "GuiCodePage          : " & _
        CStr(Info.GuiCodePage) & vbCrLf
      oFile.Write "I18NMode             : " & _
        CStr(Info.I18NMode) & vbCrLf
      oFile.Write "Language             : " & _
        CStr(Info.Language) & vbCrLf
      oFile.Write "IsLowSpeedConnection : " & _
        CStr(Info.IsLowSpeedConnection) & vbCrLf
      oFile.Close

    End Sub

  '-Main----------------------------------------------------------------
    Main

'-End-------------------------------------------------------------------