I have created a small hta app to ask the user which OS they would like to install XP or Vista? How do I get the HTA to launch. I have pasted the code that I use to call the hta and the code of the Hta below. I get the log entry and they it just hangs. I can run the hta from the command line manually without errors. Any ideas? And how do I post code so it looks decent? Thanks Dan Userexit.vbs [code] ologging.createentry "userexit - usergui hta called " & "mshta.exe " & oUtility.ScriptDir & "\usergui.hta " & Chr(34) & "#" & setmodelalias & Chr(34) , logtypeinfo WS.run "mshta.exe " & oUtility.ScriptDir & "\usergui.hta " & Chr(34) & "#" & setmodelalias & Chr(34),0,True If oEnvironment.Item("WizardComplete") <> "Y" ThenoLogging.CreateEntry "ERROR - The Deployment Wizard was cancelled or did not complete successfully - Notifying User (Error Number = " & Err.Number & ") (Error Description: " & Err.Description & ").", LogTypeErrorMsgBox "The Deployment Wizard was cancelled or did not complete successfully. The deployment will not proceed."Exit FunctionEnd Ifologging.createentry "userexit - **** operating systsem is " & setmodelalias, logtypeinfo [\code] Usergui.hta [code] <HTML> <HEAD> <TITLE>HTA Application Template< font>TITLE> <HTA:APPLICATION ID="usergui" APPLICATIONNAME="usergui" BORDER="thick" BORDERSTYLE="complex" CAPTION="yes" CONTEXTMENU="no" INNERBORDER="yes" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes" NAVIGABLE="no" SCROLL="no" SHOWINTASKBAR="yes" SINGLEINSTANCE="yes" SYSMENU="yes" VERSION="1.0" WINDOWSTATE="maximized"/> < font>HEAD> <script language="vbscript" type="text/vbscript" src="ZTIUtility.vbs">< font>script> <script language="vbscript" type="text/vbscript"> Dim model Sub Window_Onload ologging.createentry "userexit - usergui hta started" , logtypeinfo self.resizeTo 300,200 'size of window in pixels width,height self.moveto 10,10 getarg() lit1.innerhtml= "Please Select the Operating system to install for your " & model End Sub Sub getarg() MsgBox usergui.commandline Dim args : args = Split(usergui.commandline,"#") model = Left(args(1),Len(args(1))-1) End Sub Sub OK_button oEnvironment.Item("WizardComplete") = "Y" setmodelalias = document.os_form.os_select.value & setmodelalias MsgBox document.os_form.os_select.value & vbcr & setmodelalias ologging.createentry "userexit - usergui hta setmodelalias " & setmodelalias , logtypeinfo window.Close End Sub < font>SCRIPT> <BODY> <div ID=lit1>< font>div> <form name="OS_form"> <select name="OS_select" onchange =ok_button> <option value="XP">XP< font>option> <option value="Vista">Vista< font>option> < font>select><br /> < font>form> <input id=runbutton class="button" type="button" value="OK" name="man" onClick="OK_button"> < font>BODY> < font>HTML> [\code] |