(VBScript) Parse a URL into its Component Parts

Demonstrates how to parse a URL into it's component parts.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Url")
set url = CreateObject("Chilkat.Url")

urlStr = "https://www.amazon.com/Anarchy-State-Utopia-Robert-Nozick/dp/0465051006/ref=sr_1_1?s=books&ie=UTF8&qid=1430344305&sr=1-1&keywords=nozick#frag123"

success = url.ParseUrl(urlStr)
' Assume success..

outFile.WriteLine("URL: " & urlStr)
outFile.WriteLine("Host: " & url.Host)
outFile.WriteLine("Port: " & url.Port)
outFile.WriteLine("HostType: " & url.HostType)
outFile.WriteLine("Ssl: " & url.Ssl)
outFile.WriteLine("Path: " & url.Path)
outFile.WriteLine("Query: " & url.Query)
outFile.WriteLine("Frag: " & url.Frag)
outFile.WriteLine("----")

urlStr = "http://matt:secret@www.chilkatsoft.com:8080/somepath.asp?test=123&size=2"

success = url.ParseUrl(urlStr)
' Assume success..

outFile.WriteLine("URL: " & urlStr)
outFile.WriteLine("Host: " & url.Host)
outFile.WriteLine("Port: " & url.Port)
outFile.WriteLine("HostType: " & url.HostType)
outFile.WriteLine("Ssl: " & url.Ssl)
outFile.WriteLine("Login: " & url.Login)
outFile.WriteLine("Password: " & url.Password)
outFile.WriteLine("Path: " & url.Path)
outFile.WriteLine("Query: " & url.Query)
outFile.WriteLine("Frag: " & url.Frag)

outFile.Close