Anmeldung an SAP
18.04.2005 14:11:36
Michael
ich würde gerne wissen, ob es auch möglich ist, ohne bestätigung sich am System SAP R/3 anzumelden?
Oder wie ich das Password im unten aufgelisteten Code verbergen kann.
'Anmeldung am SAP R/3 System
' Deklaration der Variablen.
Dim functionCtrl As Object
Dim sapConnection As Object
' Funktionsobjekte erstellen.
Set functionCtrl = CreateObject("SAP.Functions")
Set sapConnection = functionCtrl.Connection
'Logon mit Initialwerten für MiniSap.
sapConnection.Client = "000"
sapConnection.user = "bcuser"
sapConnection.Password = "****"
sapConnection.Language = "DE"
'Überprüfung ob SAP R/3 System erreichbar.
If sapConnection.LogOn(0, False) True Then
MsgBox "Keine Verbindung zum R/3!"
Exit Sub 'Programm beenden.
End If