Type Mismatch error.

**MBroome** · Aug 16th, 2012, 10:28 AM

I'm receiving a type mismatch error , line 30, char 2 on my HTA, Can someone give me a hand? I would really appreciate it! Thank you in advance!
code is as follows:
-----------------------------------------------------------------------------------------------
<HTML>
<HEAD>
<TITLE>© 2012 - UMMC</TITLE>
<HTA:APPLICATION
APPLICATIONNAME="HTASetInstallOS"
ID="objNewOS"
VERSION="1.0.0"
BORDER="thin"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
SINGLEINSTANCE="yes"/>
</HEAD>
<SCRIPT LANGUAGE="VBScript">

Sub Window_OnLoad()
' Set Window Size and Location
Window.resizeTo 450,225
Window.moveTo (screen.width - document.body.clientwidth)/2, (screen.height - document.body.clientheight)/2

' Set TSProgressUI Object
Set objTSProgressUI = CreateObject("Microsoft.SMS.TSProgressUI")
objTSProgressUI.CloseProgressDialog()
End Sub

Sub SetInstallOS()
' Set TSEnvironment Object
Set objTSEnvironment = CreateObject("Microsoft.SMS.TSEnvironment")

' Set Task Sequence Variable InstallOS to XP which is 2, or W7 which is 1
If Radio = "XP" Then
objTSEnvironment("InstallOS") = "2"
ElseIf Radio = "W7" Then
objTSEnvironment("InstallOS") = "1"
End If

' Close Window
Window.Close()
End Sub

</SCRIPT>
<BODY>
<TABLE BORDER='0' WIDTH='100%' ID='AppTable' STYLE="font:12 pt calibri;table-layout:fixed">
<TR><TD STYLE='font-size:16pt' COLSPAN='3'><B>Operating System Choice</B></TD></TR>
<TR HEIGHT='47'><TD ID='YesNoLabel' COLSPAN='2' VALIGN='top'>Select Operating System to be installed.</TD>
<TD ID = 'OSVersionBox' COLSPAN='1'><input type="radio" name="Radio" value="2">Windows XP<BR><input type="radio" name="Radio" value="1">Windows 7</TD></TR>
<TR HEIGHT='47'><TD COLSPAN='2'></TD>
<TD COLSPAN='1'><BUTTON style="width:120;height:25" input id=runbutton name="Ok_button" onClick="SetInstallOS">Ok</BUTTON></TD></TR>
</TABLE>
</BODY>
</HTML>

----------------------------------------------------------------------------------

Any ideas??

**His Nibbs** · Aug 18th, 2012, 01:31 PM

Please post your code within [CODE ] [/CODE ] tags without the spaces.

Try:

Code:

If Radio(0).Checked Then
  Msgbox "XP"
'objTSEnvironment("InstallOS") = "2"
ElseIf Radio(1).Checked Then
'objTSEnvironment("InstallOS") = "1"
  Msgbox "W7"
End If

Thread: Type Mismatch error.

Thread Tools

Display

Type Mismatch error.

Re: Type Mismatch error.

Posting Permissions