?
Solved

Equivalent of .Net Code in VBScript

Posted on 2011-05-09
4
Medium Priority
?
358 Views
Last Modified: 2013-11-26
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
0
Comment
Question by:Alok-Agarwal
  • 2
  • 2
4 Comments
 
LVL 5

Author Comment

by:Alok-Agarwal
ID: 35719624
Basically I am trying to understand if there are equivalent objects in VBScript corresponding to objects that have been used in the above sub.
0
 
LVL 8

Accepted Solution

by:
cubaman_24 earned 2000 total points
ID: 35720269
It would be something like this.
Best regards.
sub get_html (up_http, down_http)
dim xmlhttp
set xmlhttp = createobject("msxml2.xmlhttp.3.0")
xmlhttp.open "get", up_http, false
xmlhttp.send

Open in new window

0
 
LVL 5

Author Comment

by:Alok-Agarwal
ID: 35721038
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
0
 
LVL 8

Expert Comment

by:cubaman_24
ID: 35721355
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.
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
In real business world data are crucial and sometimes data are shared among different information systems. Hence, an agreeable file transfer protocol need to be established.
The viewer will learn how to use and create keystrokes in Netbeans IDE 8.0 for Windows.
The viewer will learn how to use and create new code templates in NetBeans IDE 8.0 for Windows.
Suggested Courses

862 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question