Can someone help?
I've written the following:
*********************************************************************************
Sub CreateUser()
Dim objES As EnterpriseServer.EnterpriseServerProxyConfiguratorobjES = New EnterpriseServer.EnterpriseServerProxyConfigurator
objES.EnterpriseServerUrl = m_URL
objES.Username = m_Username
objES.Password = m_Password
Dim userService As EnterpriseServer.esUsers
userService =
New EnterpriseServer.esUsers
Try
objES.Configure(userService)
Dim dnpUser As EnterpriseServer.UserInfo
dnpUser =
New EnterpriseServer.UserInfo
'User Info
dnpUser.UserId = 0
dnpUser.Role = DotNetPanel.EnterpriseServer.UserRole.User
dnpUser.StatusId = 1
dnpUser.OwnerId = 1
dnpUser.IsDemo =
False
dnpUser.IsPeer =
False
dnpUser.EcommerceEnabled =
False
'account info
dnpUser.FirstName =
"First Name"
dnpUser.LastName =
"Last Name"
dnpUser.Email =
"first@last.tld"
dnpUser.SecondaryEmail =
"second@last.tld"
dnpUser.HtmlMail =
True
dnpUser.Username =
"TestUser1"
dnpUser.Password =
"Password"
'contact info
dnpUser.CompanyName =
"Company Name"
dnpUser.Address =
"Address"
dnpUser.City =
"City"
dnpUser.Country =
"Country"
dnpUser.State =
"State"
dnpUser.Zip =
"12345"
dnpUser.PrimaryPhone =
"5551231234"
dnpUser.SecondaryPhone =
"5551231235"
dnpUser.Fax =
"5551231236"
dnpUser.InstantMessenger =
"IMID"
Dim intResult As IntegerintResult = userService.AddUser(dnpUser, False)
dnpUser =
NothingCatch ex As Exception
lblError.Text = ex.Message
End Try
userService =
Nothing
objES =
Nothing
**********************************************************************************************
However, when I attempt to run this, I wind up with the following error:
Server did not recognize the value of HTTP Header SOAPAction: http://officepark/dotnetpanel/enterpriseserver/AddUser.
This happens regardless of which method I call. What did I forget?