Technology Blogs by Members
Explore a vibrant mix of technical expertise, industry insights, and tech buzz in member blogs covering SAP products, technology, and events. Get in the mix!
cancel
Showing results for 
Search instead for 
Did you mean: 
stefan_schnell
Active Contributor
0 Kudos


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

 

1 Comment
Labels in this area