Set args = WScript.Arguments
Dim kickstartInstallationId, securityKey, updateKickstartInstallationStatusUrl

' Make sure we have the 3 arguments

If args.Count >= 3 Then
	kickstartInstallationId = args(0)
	securityKey = args(1)
	updateKickstartInstallationStatusUrl = args(2)
Else
    WScript.Echo "Missing arguments"
	WScript.Quit
End If
WScript.Echo "kickstartInstallationId:" + kickstartInstallationId
WScript.Echo "securityKey:" + securityKey
WScript.Echo "updateKickstartInstallationStatusUrl:" + updateKickstartInstallationStatusUrl

Set oX = CreateObject("MSXML2.ServerXMLHTTP.3.0")
Dim statusUrl
statusUrl = updateKickstartInstallationStatusUrl & "?kickstartInstallationId=" & kickstartInstallationId
statusUrl = statusUrl & "&securityKey=" & securityKey & "&percentComplete=30&message=Configuring%20Server"
oX.Open "GET", statusUrl, False
oX.Send
WScript.Echo oX.responseText & vbCRLF