DEBS_PATH = WScript.Arguments.Named.Item("p")
DEBSCU_CODE = WScript.Arguments.Named.Item("r")    
MQSERVER_CTU = WScript.Arguments.Named.Item("s")    
BATFILE = WScript.Arguments.Named.Item("t")    

Dim fso, tf
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(DEBS_PATH & "\agents\" & BATFILE &".bat", True)
tf.WriteLine "Title " & BATFILE
tf.WriteLine "set MQSERVER=" & MQSERVER_CTU
tf.WriteLine "cd /D " & DEBS_PATH & "\agents"
tf.WriteLine BATFILE &".exe " & DEBS_PATH & "\agents\" & BATFILE &".ini 2>>"  & DEBS_PATH & "\log\" & BATFILE &".log"
tf.Close



