Hola a todos.
Estoy intentando cambiar la password de un usuario SAP usando VB y necesito ayuda
Dim sapConn As Object 'Declare variant
Dim theFunc As Object
Dim returnFunc As Object
Set sapConn = CreateObject("SAP.Functions") 'Create ActiveX object
sapConn.Connection.user = "SAP*"
sapConn.Connection.password = "minisap"
sapConn.Connection.client = "000"
sapConn.Connection.ApplicationServer = "127.0.0.1"
sapConn.Connection.Language = "EN"
If sapConn.Connection.Logon(0, True) <> True Then 'Try Logon
MsgBox "Logged on to SAP"
End If
Set theFunc = sapConn.Add("BAPI_USER_CHANGE")
theFunc.Exports("UserName") = "miusuario"
theFunc.Exports("password") = "nuevapassword123"
theFunc.Exports("passwordX") = "X"
returnFunc = theFunc.Call
If returnFunc = True Then
MsgBox "SAP Data found."
Else
MsgBox "SAP Data NOT found."
End If
al ejecutar me manda el error
Structure member not found "nuevapassword123"
Estoy intentando cambiar la password de un usuario SAP usando VB y necesito ayuda
Dim sapConn As Object 'Declare variant
Dim theFunc As Object
Dim returnFunc As Object
Set sapConn = CreateObject("SAP.Functions") 'Create ActiveX object
sapConn.Connection.user = "SAP*"
sapConn.Connection.password = "minisap"
sapConn.Connection.client = "000"
sapConn.Connection.ApplicationServer = "127.0.0.1"
sapConn.Connection.Language = "EN"
If sapConn.Connection.Logon(0, True) <> True Then 'Try Logon
MsgBox "Logged on to SAP"
End If
Set theFunc = sapConn.Add("BAPI_USER_CHANGE")
theFunc.Exports("UserName") = "miusuario"
theFunc.Exports("password") = "nuevapassword123"
theFunc.Exports("passwordX") = "X"
returnFunc = theFunc.Call
If returnFunc = True Then
MsgBox "SAP Data found."
Else
MsgBox "SAP Data NOT found."
End If
al ejecutar me manda el error
Structure member not found "nuevapassword123"