Link to home
Start Free TrialLog in
Avatar of Alok-Agarwal
Alok-AgarwalFlag for India

asked on

Equivalent of .Net Code in VBScript

Hi ,

I need to have VBScript equivalent code for below .Net code. Kindly let me know how to go about this.

  Public Sub UploadFile(ByVal localFile As String, ByVal uploadUrl As String)

        Try
            Dim ByPassUrls() As String
            Dim loNetworkCredentials As NetworkCredential

            loNetworkCredentials = New NetworkCredential(Util.GetSetting("NetworkCredentialUserid"), _
                                                     Util.GetSetting("NetworkCredentialPassword"), _
                                                     Util.GetSetting("NetworkCredentialDomain"))

            Dim proxy As New WebProxy(Util.GetSetting("WebProxyName"), _
                                    Util.GetSetting("WebProxyPortNumber"), ByPassUrls, loNetworkCredentials)

            Dim req As HttpWebRequest
            req = WebRequest.Create(uploadUrl)

            req.Method = "POST"
            req.Proxy = proxy
            req.Credentials = loNetworkCredentials

            req.AllowWriteStreamBuffering = True

            req.ContentType = "application/x-wmflatfile"

            Dim reqStream As Stream

            reqStream = req.GetRequestStream()
            Dim wrtr As StreamWriter
            wrtr = New StreamWriter(reqStream)

            Dim rdr As StreamReader

            rdr = New StreamReader(localFile)

            Dim inLine As String

            inLine = rdr.ReadLine()

            While inLine <> ""
                wrtr.WriteLine(inLine)
                inLine = rdr.ReadLine()
            End While

            rdr.Close()

            wrtr.Close()
            Dim objResponse As WebResponse
            objResponse = req.GetResponse()

            Dim result As String
            Dim sr As StreamReader
            sr = New StreamReader(objResponse.GetResponseStream())
            result = sr.ReadToEnd()
            sr.Close()

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub
Avatar of Alok-Agarwal
Alok-Agarwal
Flag of India image

ASKER

Basically I am trying to understand if there are equivalent objects in VBScript corresponding to objects that have been used in the above sub.
ASKER CERTIFIED SOLUTION
Avatar of cubaman_24
cubaman_24
Flag of Spain image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Hi,

Thanks for the inputs. Is it possible to provide more details. Sorry , but I am not able to understand from the above few lines how the achieve the complete functionality that I provided in my original post.

Thanks
Hello:
I gave you the points to start doing you job.But I'm not going to do it for you ;-)
Read the documentation about xmlhttp objects and its methods here
http://msdn.microsoft.com/en-us/library/ms535874%28v=vs.85%29.aspx

Best regards.