Skip to Content
0
Former Member
Feb 01, 2005 at 11:41 PM

how to add a user to Sap Business One 6.5 with service pack1 using DI aPI

18 Views

hi,

I am was unable to add a user to Sap Business One 6.5 with service pack1 using DI aPI . following is the code.

i am getting an errocode =-5002 which is your OUSR.Password should be greater than 4 . but i have 8 character.

please help me . i am in desparate need.

Private Sub CreateUser()

Dim oUser As SAPbobsCOM.Users

Dim a As Long

Dim errMsg As String

' Set connection properties

oCompany.Server = "vishal"

oCompany.DbUserName = "sa"

oCompany.DbPassword = "pass"

oCompany.CompanyDB = "SBODemo_US"

oCompany.UserName = "manager"

oCompany.Password = "manager"

'Try to connect

lRetCode = oCompany.Connect()

If lRetCode <> 0 Then ' if the connection failed

oCompany.GetLastError(lErrCode, sErrMsg)

MsgBox("Connection Failed - " & sErrMsg, MsgBoxStyle.Exclamation, "Default Connection Failed")

End If

If oCompany.Connected Then ' if connected

Me.Text = Me.Text & " - Connected to " & oCompany.CompanyDB

End If

oUser = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUsers)

oUser.UserName = "abc1"

oUser.UserCode = "amx_ctx2"

oUser.UserPassword = "1234"

a = oUser.Add()

Call oCompany.GetLastError(a, errMsg)

If (0 <> a) Then

MsgBox("Found error:" + Str(a) + "," + errMsg)

End If

End Sub