Have tried a number of variations with no success... i think i am missing something here... and i am pulling my hair out!
Here is the code i am currently working with...
<head>
<title>test</title>
<hta:application
ID="objHTA"
VERSION="1.0"
applicationName="test"
/>
<style>
html, form, body, span {
margin:0;
font-family:Arial, Helvetica, sans-serif;
border:0px;
background-color: ghostwhite;
}
#content, #DiscriptionArea, #dName, #Options, td {
font-size:12px;
padding:5px;
}
#title {
text-align:center;
color: #FFFFFF;
background-color: #3366FF;
font-size:18px;
font-weight: bold;
border:0px;
}
#content{
position:absolute;
left:0px;
width:100%;
height:100%;
/*overflow:auto;*/
}
#dName, #dDisc {
background-color: #EAEAFF;
font-weight: bold;
border-top:solid 1px black;
}
#dDisc {
border-top:solid 1px black;
font-weight: normal;
font-style: italic;
}
#options {
background-color: #FFFFCC;
}
</style>
<script language="vbscript">
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Dim Act : Set Act = CreateObject("Wscript.Shell")
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim strComputer : strComputer = "."
Dim ObjWMI, Ts, objItem, colItems, SysName, Lst
Set ObjWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'/----------------------------------------------------------------------->
Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", WmiVar)
'/----------------------------------------------------------------------->
Sub GetServices
strTITLE = "<table width='100%' height='40px'><tr><td align='center' valign='middle' id='title'>" & _
objHTA.applicationName & " "& objHTA.Version & "</td></tr></table>"
strNAME = "<table border='0' style='border-collapse: collapse' " & _
"bordercolor='#111111' width='100%'>"
Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_Service")
For Each objItem In colItems
intNumber = intNumber +1
strNAME = strNAME & "<tr>"
strNAME = strNAME & "<td id='dName' nowrap>" & objItem.DisplayName & _
"</td><td rowspan='2' id='dDisc'>" & objItem.Description & _
"</td></tr><tr><td id='options'>" &_
"<input type='radio' name='object1' value='Disable' OnClick='getOption(this)'>Disable" &_
"<input type='radio' name='object1' value='Automatic' OnClick='getOption(this)'>Automatic" & _
"<input type='radio' name='object1' value='Manual' OnClick='getOption(this)'>Manual</td></tr>" & _
"<tr><td> </td></tr>"
NumTotalServices = intNumber
Next
Title.InnerHTML = strTitle
strName = strName & "</table>"
content.InnerHTML = strNAME
'MsgBox NumTotalServices
End Sub
sub getOption(optobj)
msgbox optobj.name + ": " + optobj.value
end sub
Sub GetDisc
Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_Service")
For Each objItem In colItems
strDISC = strDISC & objItem.Description & "<br><br>"
Next
DiscriptionArea.InnerHTML = strDISC
End Sub
Sub ClearDisc
Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_Service")
For Each objItem In colItems
strDISC = strDISC
Next
DiscriptionArea.InnerHTML = strDISC
End Sub
Sub Radios()
Const cMAX = 1
Dim arrCTF(3)
Dim intCTF
Dim strCTF
Dim arrDIC(3)
arrDIC(1) = "Automatic"
arrDIC(2) = "Disable"
arrDIC(3) = "Manual"
Dim intDIC
Set objDIC = CreateObject("Scripting.Dictionary")
For intDIC = 1 To UBound(arrDIC)
objDIC.Add arrDIC(intDIC), intDIC
Next
Dim iMAX : iMAX = 0
Dim i, o, s
For i = 1 To cMAX
For Each o In Eval("document.form1.object" & i)
If o.Checked = True Then
iMAX = iMAX + 1
intCTF = objDIC.Item(o.Value)
arrCTF(intCTF) = arrCTF(intCTF) & "object" & i & vbCrLf
End If
Next
Next
'*
If iMAX = cMAX Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
For intDIC = 1 To UBound(arrDIC)
strCTF = arrDIC(intDIC) & ".txt"
Set objCTF = objFSO.CreateTextFile(strCTF,True)
objCTF.Write arrCTF(intDIC)
Set objCTF = Nothing
s = s & "<li>" & strCTF & " : " & Replace(arrCTF(intDIC),vbCrLf," ") & vbCrLf
Next
Else
Alert("Only " & iMAx & " of " & cMAX & " radio buttons checked!")
Exit Sub
End If
'*
document.write s
End Sub
'/----------------------------------------------------------------------->
Sub Window_Onload
Set colItems = objWMI.ExecQuery("Select * From Win32_DesktopMonitor")
For Each objItem In colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
intLeft = (intHorizontal - 800) / 2
intTop = (intVertical - 600) / 2
window.resizeTo 800,600
window.moveTo intLeft, intTop
GetServices
window.focus()
'playSound
End Sub
Sub playSound
strSoundFile = ".\whats_going_on.wav"
Set objShell = CreateObject("Wscript.Shell")
strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
objShell.Run strCommand, 0, True
End Sub
</script>
</head>
<body>
<form name="form1">
<div id="title"></div>
<span id="text"><p>Selection what option you would like for each service.</p>
<table width="50%" border="0" align="center" cellpadding="5">
<tr>
<th width="50%" align="right"><input type="button" value="Create Configuration Files" onclick="Radios()"></th>
<th width="50%" align="left"><input type="reset" value="Reset/Clear All Values" ></th>
</tr>
</table>
</span>
<span id="content"></span>
</form>
</body>
