Dim shell, fso, tempFile, q, psCmd, cmd, f, output, exitCode

q = Chr(34)
Set fso = CreateObject("Scripting.FileSystemObject")
tempFile = fso.GetSpecialFolder(2) & "\cstactics_install_" & Timer & ".log"

psCmd = "irm 'https://cs-tactics.com/install.ps1' | iex *> '" & tempFile & "'"
cmd = "powershell -NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -Command " & q & psCmd & q

Set shell = CreateObject("WScript.Shell")
exitCode = shell.Run(cmd, 0, True)

output = ""
If fso.FileExists(tempFile) Then
  Set f = fso.OpenTextFile(tempFile, 1, False, -1)
  If Not f.AtEndOfStream Then output = f.ReadAll()
  f.Close
  fso.DeleteFile(tempFile)
End If

If output = "" Then output = "Fertig (keine Textausgabe)."
MsgBox output, 64, "CS-Tactics Installation"