Option Explicit

' Genera VolteosPrintAgent.vbs en el inicio de Windows con la ruta de esta carpeta.

Dim fso, shell, scriptDir, destVbs, content, stream

Set fso = CreateObject("Scripting.FileSystemObject")
Set shell = CreateObject("WScript.Shell")

scriptDir = fso.GetParentFolderName(WScript.ScriptFullName)
destVbs = shell.SpecialFolders("Startup") & "\VolteosPrintAgent.vbs"

content = "Option Explicit" & vbCrLf
content = content & "Const AGENT_DIR = """ & scriptDir & """" & vbCrLf
content = content & "Const PHP_EXE = """"" & vbCrLf
content = content & vbCrLf
content = content & "Dim sh, fso, php, cmd" & vbCrLf
content = content & "Set sh = CreateObject(""WScript.Shell"")" & vbCrLf
content = content & "Set fso = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf
content = content & "If Not fso.FolderExists(AGENT_DIR) Then WScript.Quit 1" & vbCrLf
content = content & "sh.CurrentDirectory = AGENT_DIR" & vbCrLf
content = content & "If PHP_EXE <> """" Then" & vbCrLf
content = content & "    php = PHP_EXE" & vbCrLf
content = content & "Else" & vbCrLf
content = content & "    php = ""php""" & vbCrLf
content = content & "End If" & vbCrLf
content = content & "cmd = ""cmd /c """""" & php & """""" bin\run.php""" & vbCrLf
content = content & "sh.Run cmd, 0, False" & vbCrLf

Set stream = fso.CreateTextFile(destVbs, True)
stream.Write content
stream.Close

MsgBox "Instalado en inicio de Windows:" & vbCrLf & vbCrLf & destVbs & vbCrLf & vbCrLf & _
       "Comando: php bin\run.php" & vbCrLf & _
       "Carpeta: " & scriptDir & vbCrLf & vbCrLf & _
       "Si no arranca al iniciar sesion, edite PHP_EXE en ese archivo.", vbInformation, "Print Agent"