Hi Anirudh, The bug is already solved The Password user of the document was short xml!!
Thanks Sergi Doutres On May 20, 10:28 am, Sergi Doutres <[EMAIL PROTECTED]> wrote: > Hi Anirudh, > Thanks for your response. > > Sergi Doutres > > On May 20, 2:06 am, "Anirudh (Google)" <[EMAIL PROTECTED]> wrote: > > > Hi Sergi, > > > Provisioning API is not available for Google Apps Standard Edition. > > However, there is a bulk upload feature using CSV files for account > > creation and maintenance. Here is some documentation to help > > you:http://www.google.com/support/a/bin/answer.py?hl=en&answer=40057 > > > Also, please make sure you have enough user accounts available with > > your Google Apps account before you do a bulk upload. To request more > > user accounts, use the 'Request more users' option under user > > accounts in your control panel:https://www.google.com/a/facilcar.com > > > For any queries on your Google Apps account, the Google Apps > > discussion group would be the right place to find > > answers:http://groups.google.com/group/apps-discuss > > > Thanks, > > Anirudh > > > On May 16, 8:32 am, Sergi Doutres <[EMAIL PROTECTED]> wrote: > > > > Hi Anirudh, > > > > Thanks for your response, > > > I corrected my code according to your suggestions, but still when I > > > post xml I still have the same problem. > > > Token looks correct... > > > > token=DQAAAIMAAAALsNK- > > > SHyrMB3yfvZW6ShfyV3SFevPK31XdgFlMAm5_y3ML8vTquYEcsU_q6cK_VKcUCbYDvC37w8XBbDSzfR1Ba6HIjiWYa1FE- > > > f6JR91qSYDv9rwGM_VCt4w0ZhqzzNTw2nruDJO6QSDMonUaqj0jIkzj1cC_nOrq8_pSU0rDQSX6fStMfqh1_X4htO-8VA > > > Error en el servidor remoto: (403) Prohibido. (number=5) > > > > Any more suggestions? > > > > Thanks > > > Sergi Doutres > > > > On May 16, 2:46 pm, "Anirudh (Google)" <[EMAIL PROTECTED]> wrote: > > > > > Hi Sergi, > > > > > Thanks for sharing the context of your problem. > > > > > To answer your queries, > > > > 1. Google Authentication API requires URL encoded email and password > > > > values. So, Server.UrlEncode("[EMAIL PROTECTED]") is OK. > > > > 2. The Http Header used is GoogleLogin auth=<token> > > > > > Please confirm if GetToken() call is getting you a token. In case not, > > > > sharing the message/error code you are getting from > > > > the server would help us investigate the exact problem. Here is a link > > > > detailing server > > > > responses:http://code.google.com/apis/accounts/docs/AuthForInstalledApps.html#R... > > > > > Also, in your code, i see a problem with: > > > > > webrequest.Headers.Add(Net.HttpRequestHeader.Authorization, > > > > "Authorization:GoogleLogin auth=" & GetToken()) > > > > > When using the Add() method with two parameters, the "Authorization:" > > > > text is getting duplicated in the header. > > > > You could try running the code by removing the "Authorization:" prefix > > > > form the second parameter. > > > > > webrequest.Headers.Add(Net.HttpRequestHeader.Authorization, > > > > "GoogleLogin auth=" & GetToken()) > > > > > -Anirudh > > > > > On May 15, 8:44 pm, Sergi Doutres <[EMAIL PROTECTED]> wrote: > > > > > > Hi Anirudh, > > > > > > The project I have is for migrating more than 1000 e mail accounts to > > > > > GMail. Im sending you the whole code so you could try it And create > > > > > the problem > > > > > Please let me know what could be the problem. > > > > > > '------------- > > > > > 'GET TOKEN > > > > > '------------- > > > > > > Questions: > > > > > Server.UrlEncode("[EMAIL PROTECTED]") it's ok? > > > > > ----------------------------------------- > > > > > > Public Function GetToken() As String > > > > > > Dim encoding As ASCIIEncoding = New ASCIIEncoding > > > > > > Dim postdata As String = "" > > > > > postdata = postdata & "accountType=HOSTED" > > > > > postdata = postdata & "&Email=" & Server.UrlEncode("[EMAIL > > > > > PROTECTED]") > > > > > postdata = postdata & "&Passwd=" & Server.UrlEncode("pwd") > > > > > postdata = postdata & "&service=apps" > > > > > > Dim data As Byte() = encoding.GetBytes(postdata) > > > > > > 'Prepare web request... > > > > > Dim myrequest As HttpWebRequest = > > > > > HttpWebRequest.Create("https://www.google.com/accounts/ClientLogin";) > > > > > myrequest.Method = "POST" > > > > > myrequest.ContentType = "application/x-www-form-urlencoded" > > > > > myrequest.ContentLength = data.Length > > > > > Dim newstream As Stream = myrequest.GetRequestStream() > > > > > Dim myWriter As New StreamWriter(myrequest.GetRequestStream()) > > > > > > 'Send the data. > > > > > newstream.Write(data, 0, data.Length) > > > > > newstream.Close() > > > > > > 'obtenim el Token > > > > > Dim objresponse As HttpWebResponse = myrequest.GetResponse > > > > > Dim sr As StreamReader = New > > > > > StreamReader(objresponse.GetResponseStream) > > > > > Dim resultat As String = Server.UrlDecode(sr.ReadToEnd) > > > > > > Dim pos As Integer = InStr(resultat, "Auth=") > > > > > resultat = resultat.Substring(pos + 4) > > > > > sr.Close() > > > > > Return resultat > > > > > > End Function > > > > > > '--------------- > > > > > 'SEND XML POST DATA > > > > > '--------------- > > > > > > Questions: > > > > > GoogleLogin auth=asdasd > > > > > or > > > > > GoogleLogin=aasdasd > > > > > or > > > > > auth=aassd > > > > > ----------------------------------------- > > > > > > Protected Sub bt_enviar_Click(ByVal sender As Object, ByVal e As > > > > > System.EventArgs) Handles bt_enviar.Click > > > > > > Dim webrequest As HttpWebRequest = > > > > > HttpWebRequest.Create("https://www.google.com/a/feeds/facilcar.com/user/2.0";) > > > > > webrequest.Method = "POST" > > > > > webrequest.ContentType = "application/atom+xml" > > > > > > 'webrequest.Headers.Add(Net.HttpRequestHeader.Authorization, > > > > > "GoogleLogin > > > > > auth=DQAAAIMAAAA9wi_1qL9_vpNUDcg3ictwOcWqtcxoxgac6GUqtKK1wW_pvYJCgOOQb1zmRsYOuPwd6A3UcW0Kj1Z-8_ClFLMBJjCKsrnI_Q3GsbS68o9oDVq7mqztFTfFY5GU- > > > > > woJANndTXX6Z0SD2Hxl- > > > > > LNQpWkYqiuYKUJhuJpj550brqkUowFC07b0BrMtGAjf31kLm7k") > > > > > webrequest.Headers.Add(Net.HttpRequestHeader.Authorization, > > > > > "Authorization:GoogleLogin auth=" & GetToken()) > > > > > > Dim reader As StreamReader = New StreamReader(Server.MapPath("xml/ > > > > > GrupSerhs.xml")) > > > > > Dim ret As String = reader.ReadToEnd > > > > > reader.Close() > > > > > > Dim writer As StreamWriter = New > > > > > StreamWriter(webrequest.GetRequestStream()) > > > > > writer.WriteLine(ret) > > > > > writer.Close() > > > > > > Dim rsp As WebResponse = Nothing > > > > > Try > > > > > rsp = webrequest.GetResponse() > > > > > Me.lbl_resultat.Text = rsp.GetResponseStream.ToString > > > > > rsp.Close() > > > > > Catch ex As Exception > > > > > Me.lbl_resultat.Text = Err.Description & " (number=" & > > > > > Err.Number & > > > > > ")" > > > > > End Try > > > > > > End Sub > > > > > > Thank you very much > > > > > Sergi Doutres > > > > > > On May 15, 7:46 am, "Anirudh (Google)" <[EMAIL PROTECTED]> wrote: > > > > > > > Hi Sergi, > > > > > > > I tried using your code and could successfully authenticate hosted > > > > > > accounts. > > > > > > Could you please share some more details of the error you are > > > > > > receiving from the authentication service? > > > > > > > You could try to get some more details on the error by probably > > > > > > handling the exceptions around the 'GetResponse' call. > > > > > > > Dim objresponse As HttpWebResponse = Nothing > > > > > > Try > > > > > > objresponse = myrequest.GetResponse > > > > > > > Catch webEx As WebException > > > > > > MsgBox(webEx.Message) > > > > > > > Catch ex As Exception > > > > > > MsgBox(ex.Message) > > > > > > > -Anirudh > > > > > > > On May 13, 9:18 pm, Sergi Doutres <[EMAIL PROTECTED]> wrote: > > > > > > > > Dim mail As String = "email" > > > > > > > Dim pwd As String = "pwd" > > > > > > > Dim encoding As ASCIIEncoding = New ASCIIEncoding > > > > > > > Dim postdata As String = "" > > > > > > > postdata = postdata & "accountType=HOSTED" > > > > > > > postdata = postdata & "&Email=" & Server.UrlEncode(mail) > > > > > > > postdata = postdata & "&Passwd=" & Server.UrlEncode(pwd) > > > > > > > postdata = postdata & "&service=apps" > > > > > > > Dim data As Byte() = encoding.GetBytes(postdata) > > > > > > > > Dim myrequest As HttpWebRequest = > > > > > > > HttpWebRequest.Create("https://www.google.com/accounts/ClientLogin";) > > > > > > > myrequest.Method = "POST" > > > > > > > myrequest.ContentType = > > > > > > > "application/x-www-form-urlencoded" > > > > > > > myrequest.ContentLength = data.Length > > > > > > > Dim newstream As Stream = myrequest.GetRequestStream() > > > > > > > Dim myWriter As New > > > > > > > StreamWriter(myrequest.GetRequestStream()) > > > > > > > > Try > > > > > > > myWriter.Write(postdata) > > > > > > > Catch ex As Exception > > > > > > > Response.Write(Err.Description) > > > > > > > Finally > > > > > > > myWriter.Close() > > > > > > > End Try > > > > > > > > Dim objresponse As HttpWebResponse = myrequest.GetResponse > > > > > > > Dim sr As StreamReader = New > > > > > > > StreamReader(objresponse.GetResponseStream) > > > > > > > Dim resultat As String = Server.UrlDecode(sr.ReadToEnd) > > > > > > > > Dim pos As Integer = InStr(resultat, "Auth=") > > > > > > > resultat = resultat.Substring(pos + 4) > > > > > > > sr.Close() > > > > > > > > return (resultat) --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
