<HTML>
<head>
<TITLE>Control Panel Options</TITLE>
<OBJECT ID="oShell"
CLASSID="clsid:13709620-C279-11CE-A49E-444553540000">
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
function controlPanelFunction(sMethod)
DIM ControlPanelParm
select case sMethod
case 0
' Internet Options
ControlPanelParm = "inetcpl.cpl"
case 1
' ODBC Options
ControlPanelParm = "odbccp32.cpl"
case 2
' Modems
ControlPanelParm = "TELEPHON.cpl"
case 3
' Date and Time
ControlPanelParm = "TIMEDATE.cpl"
case 4
' Power Configurations
ControlPanelParm = "powercfg.cpl"
case 5
' Preferences
ControlPanelParm = "prefscpl.cpl"
case 6
' Quicktime
ControlPanelParm = "QUICKTIME.cpl"
case 7
' Microsoft Outlook Internet Settings
ControlPanelParm = "MLCFG32.cpl"
case 8
' Sounds and Multi-media
ControlPanelParm = "MMSYS.cpl"
case 9
' Message Queuing
ControlPanelParm = "msmq.cpl"
case 10
' Scanners and Camera
ControlPanelParm = "STICPL.cpl"
end select
oShell.ControlPanelItem ControlPanelParm
end function
</SCRIPT>
</HEAD>
<BODY>
<CENTER><h1>Control Panel Options Access via HTML and VBScript </h1>
<CENTER><BR><BR><BR>
<INPUT TYPE="button" value="Internet Options" onclick="controlPanelFunction(0)" />
<BR>
<INPUT TYPE="button" value="ODBC" onclick="controlPanelFunction(1)" />
<BR>
<INPUT TYPE="button" value="Modem" onclick="controlPanelFunction(2)" />
<BR>
<INPUT TYPE="button" value="Date and Time" onclick="controlPanelFunction(3)" />
<BR>
<INPUT TYPE="button" value="Power Options" onclick="controlPanelFunction(4)" />
<BR>
<INPUT TYPE="button" value="Preferences" onclick="controlPanelFunction(5)" />
<BR>
<INPUT TYPE="button" value="MS Outlook Internet Settings" onclick="controlPanelFunction(6)" />
<BR>
<INPUT TYPE="button" value="Plugins" onclick="controlPanelFunction(7)" />
<BR>
<INPUT TYPE="button" value="Sounds and Multimedia" onclick="controlPanelFunction(8)" />
<BR>
<INPUT TYPE="button" value="Message Queing" onclick="controlPanelFunction(9)" />
<BR>
<INPUT TYPE="button" value="Scanners and Camera" onclick="controlPanelFunction(10)" />
</BODY>
</HTML>