Hello out there I need some help. I'm trying add a new user using the
Provisioning API. My program is in VB.NET. When My program trys to
post the Xml code to Google I get this error:
"The remote server returned an error: (400) Bad Request.
Description: An unhandled exception occurred during the execution of
the current web request. Please review the stack trace for more
information about the error and where it originated in the code.
Exception Details: System.Net.WebException: The remote server returned
an error: (400) Bad Request."
Would someone tell me what I'm doing wrong; Here is my code below, Any
help would be much appreciated. Thank you...
Dim strDataToPost As String
Dim myWebRequest As WebRequest
Dim myRequestStream As Stream
Dim myStreamWriter As StreamWriter
Dim myWebResponse As WebResponse
Dim myResponseStream As Stream
Dim myStreamReader As StreamReader
Dim Tokens As String
Dim strToken() As String
Dim strAuth As String
'======================Get Auth
Token=========================================
myWebRequest = WebRequest.Create( _
"https://www.google.com/accounts/ClientLogin";)
With myWebRequest
.Method = "POST"
.ContentType = "application/x-www-form-urlencoded"
End With
strDataToPost =
"[EMAIL PROTECTED]&Passwd=PASS&accountType=HOSTED&service=apps"
myRequestStream = myWebRequest.GetRequestStream()
myStreamWriter = New StreamWriter(myRequestStream)
myStreamWriter.Write(strDataToPost)
myStreamWriter.Flush()
myStreamWriter.Close()
myRequestStream.Close()
myWebResponse = myWebRequest.GetResponse()
myResponseStream = myWebResponse.GetResponseStream()
myStreamReader = New StreamReader(myResponseStream)
Tokens = myStreamReader.ReadToEnd()
strToken = Split(Tokens, "Auth=")
strAuth = RTrim(strToken(1))
myStreamReader.Close()
myResponseStream.Close()
myWebResponse.Close()
'========================Create Xml
File=======================================
Dim XmlFile As String =
Path.Combine(Request.PhysicalApplicationPath, _
"newuser.xml")
Dim fs As New FileStream(XmlFile, FileMode.Create)
Dim w As New XmlTextWriter(fs, Nothing)
w.WriteStartDocument()
w.WriteStartElement("atom:entry")
w.WriteAttributeString("xmlns:atom", Nothing, "http://
www.w3.org/2005/Atom")
w.WriteAttributeString("xmlns:apps", Nothing, "http://
schemas.google.com/apps/2006")
w.WriteStartElement("atom:category")
w.WriteAttributeString("scheme", Nothing, "http://
schemas.google.com/g/2005#kind")
w.WriteAttributeString("term", Nothing, "http://
schemas.google.com/apps/2006#user")
w.WriteEndElement()
w.WriteStartElement("apps:login")
w.WriteAttributeString("userName", Nothing, "SusanJones-1321")
w.WriteAttributeString("password", Nothing, "123$$abc")
w.WriteAttributeString("suspended", Nothing, "false")
w.WriteEndElement()
w.WriteStartElement("apps:quota")
w.WriteAttributeString("limit", Nothing, "2048")
w.WriteEndElement()
w.WriteStartElement("apps:name")
w.WriteAttributeString("familyName", Nothing, "Jones")
w.WriteAttributeString("givenName", Nothing, "Susan")
w.WriteEndElement()
w.WriteEndElement()
w.WriteEndDocument()
w.Close()
'=======================POST Xml File to
Google===================================
Dim xmlData As String =
Path.Combine(Request.PhysicalApplicationPath, _
"newuser.xml")
Dim xmlStream As New FileStream(xmlData, FileMode.Open)
Dim rq As HttpWebRequest
rq = HttpWebRequest.Create("https://apps-apis.google.com/a/
feeds/oneworldcity.com/user/2.0")
With rq
rq.Method = "POST"
rq.ContentType = "application/atom+xml"
.Headers.Add(HttpRequestHeader.Authorization, "GoogleLogin
auth=" & strAuth)
Dim s As Stream = rq.GetRequestStream()
Dim sw As StreamWriter = New StreamWriter(s)
sw.Write(xmlStream)
sw.Flush()
sw.Close()
End With
rq.GetResponse()
File.Delete(xmlData)
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Google Apps APIs" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/google-apps-apis?hl=en
-~----------~----~----~----~------~----~------~--~---
