SAP connection

SAP connection - VB/VBA/VBS - Programmation

Marsh Posté le 27-06-2017 à 17:55:09    

Bonjour
je cherche un script en VBS me permettant de me connecter à SAP
 
j'ai essayé ce code, trouvé là
http://scn.sap.com/thread/3763970
 
mais cela ne fonctionne pas pour moi
 

Code :
  1. REM Directives
  2.     Option Explicit
  4.   REM Variables!  Must declare before using because of Option Explicit
  5.     Dim WSHShell, SAPGUIPath, SID, InstanceNo, WinTitle, SapGuiAuto, application, connection, session
  7.   REM Main
  8.     Set WSHShell = WScript.CreateObject("WScript.Shell" )
  9.     If IsObject(WSHShell) Then
  11.       REM Set the path to the SAP GUI directory
  12.         SAPGUIPath = "C:Program Files (x86)SAPFrontEndSAPgui"
  14.       REM Set the SAP system ID
  15.         SID = "PAC"
  16.         'SID = "PAC"
  17.       REM Set the instance number of the SAP system
  18.         InstanceNo = "00"
  20.       REM Starts the SAP GUI
  21.         WSHShell.Exec SAPGUIPath & "SAPgui.exe " & SID & " " & _
  22.           InstanceNo
  24.       REM Set the title of the SAP GUI window here
  25.         WinTitle = "PAC"
  27.       While Not WSHShell.AppActivate(WinTitle)
  28.         WScript.Sleep 250
  29.       Wend
  31.       Set WSHShell = Nothing
  32.     End If
  34.     REM Remove this if you need to test the above script and want a message box at the end launching the login screen.
  35.     REM MsgBox "Here now your script..."
  37. If Not IsObject(application) Then
  38.    Set SapGuiAuto  = GetObject("SAPGUI" )
  39.    Set application = SapGuiAuto.GetScriptingEngine
  40. End If
  41. If Not IsObject(connection) Then
  42.    Set connection = application.Children(0)
  43. End If
  44. If Not IsObject(session) Then
  45.    Set session    = connection.Children(0)
  46. End If
  47. If IsObject(WScript) Then
  48.    WScript.ConnectObject session,     "on"
  49.    WScript.ConnectObject application, "on"
  50. End If
  51. session.findById("wnd[0]" ).maximize
  52. session.findById("wnd[0]/usr/txtRSYST-BNAME" ).text = "user"
  53. session.findById("wnd[0]/usr/pwdRSYST-BCODE" ).text = "pwd"
  54. session.findById("wnd[0]/usr/pwdRSYST-BCODE" ).setFocus
  55. session.findById("wnd[0]/usr/pwdRSYST-BCODE" ).caretPosition = 10
  56. session.findById("wnd[0]" ).sendVKey 0


vous auriez une idée d'ou viens le problème ?
j'ai cette erreur :  hostname PAC unknow  :??:   alors que j'ai bien un SID avec PAC

Reply

Marsh Posté le 27-06-2017 à 17:55:09   

Reply

Marsh Posté le 28-06-2017 à 20:59:10    

tout script VBS ou VBA permettant de me connecter a SAP, je prends aussi  :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed