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-------------------------------------------------------------------
Bluesky
