Set objFS = Wscript.CreateObject("Scripting.FileSystemObject")
Set objWShell=CreateObject("WScript.Shell")
strFilename = ".\install.bat"
set objOutPutFile = objFS.CreateTextFile (strFilename)
strNSIP = inputbox("NS IP Address")
strUser = inputbox("User name")
strPassword = inputbox("Password")
strCompIP = inputbox("Computer to install to: IP address." & vbCRLF & vbCRLF & "Just hit Enter with the box blank to stop.")
while strCompIP <> ""
 objOutPutFile.writeline("net use \\" & strCompIP & "\ipc$ /user:" & strUser& " " & strPassword)
 objOutPutFile.writeline("copy .\altirisagentinstsvc.exe \\" & strCompIP & "\admin$")
 objOutPutFile.writeline("psexec \\" & strCompIP & " -d -e -n 120 altirisagentinstsvc.exe -u ""http://" & strNSIP & "/altiris/ns/nscap/bin/win32/x86/ns client package/aexnsc.exe"" -s " & strNSIP & " -w http://" & strNSIP & "/altiris")
 strCompIP = inputbox("Computer to install to: IP address." & vbCRLF & vbCRLF & "Just hit Enter with the box blank to stop.")
Wend
objOutPutFile.close
set objOutPutFile = nothing
'version 1.0.0 - first pass