Set args = WScript.Arguments
Dim kickstartInstallationId, securityKey, completeKickstartInstallationUrl, scriptFolder

' Make sure we have the 3 arguments

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

' Remove remaining scripts and files
scriptFolder = "C:\Windows\Setup\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(scriptFolder)
	
For Each oFile In oFolder.files
	WScript.Echo "Removing " + oFile.Name
	fso.DeleteFile(scriptFolder + oFile.Name)
Next

' Mark installation as complete
WScript.Echo "kickstartInstallationId:" + kickstartInstallationId
WScript.Echo "securityKey:" + securityKey
WScript.Echo "completeKickstartInstallationUrl:" + completeKickstartInstallationUrl

Set oX = CreateObject("MSXML2.ServerXMLHTTP.3.0")
Dim statusUrl
statusUrl = completeKickstartInstallationUrl & "?kickstartInstallationId=" & kickstartInstallationId
statusUrl = statusUrl & "&securityKey=" & securityKey
oX.Open "GET", statusUrl, False
oX.Send
WScript.Echo oX.responseText & vbCRLF