What's wrong with my code pls:

Private Sub com_Click()

Const RAS_MaxPhoneNumber = &H8

Private Type RAS_USER_0
Privilege As Long
szPhoneNumber(RAS_MaxPhoneNumber) As Byte
End Type

Dim strServer() As Byte
Dim username() As Byte
Dim RasUser_Struc As RAS_USER_0


strServer = StrConv(txtSer & Chr&(0),vbUnicode)
strUser = StrConv(txtUser & Chr&(0),vbUnicode)
RasUser_Struc.Privilege = &H8 Or &H1

res = RasAdminUserSetInfo(strServer(), username(), RasUser_Struc) ''''''''''''Gets an error of 1722


End Sub



cecile

The more u read, the more u do not know