Does anyone have a HTA or powershell front end that i can use , or suggestions on how to use a current one out there, my requirements are pretty simple i think.
We have about 100 different sites in 4 different countries, and we now name our computers with the following format OFFICE-Serial
where office is a 7 digit identifier for the office, and serial is the last 7 digits of the serial number.
Lets say i have the following.
>England
>>Manchester
>>London
>> South London
>Scotland
>>Inverness
>>Edinburgh
Names would be
MANCHE-SERIAL
STHLOND-SERIAL
etc.
I would like a drop down first to select the country, and then a drop down to select the site with results only from the country in question
I would then need OSDComputer Name to prefix 7 digits of this name and then append "-" + serial number.
Can anyone help me with this? i have this which is from technet and i have modified a bit, but dont know vb well enough to modify.
<!--Script Settings
<ScriptSettings xmlns="http://tempuri.org/ScriptSettings.xsd">
<ScriptPackager>
<process />
<arguments />
<extractdir>%TEMP%</extractdir>
<files />
<usedefaulticon>true</usedefaulticon>
<showinsystray>false</showinsystray>
<altcreds>false</altcreds>
<efs>true</efs>
<ntfs>true</ntfs>
<local>false</local>
<abortonfail>true</abortonfail>
<product />
<version>1.0.0.1</version>
<versionstring />
<comments />
<company />
<includeinterpreter>false</includeinterpreter>
<forcecomregistration>false</forcecomregistration>
<consolemode>false</consolemode>
<EnableChangelog>false</EnableChangelog>
<AutoBackup>false</AutoBackup>
<snapinforce>false</snapinforce>
<snapinshowprogress>false</snapinshowprogress>
<snapinautoadd>2</snapinautoadd>
<snapinpermanentpath />
<cpumode>1</cpumode>
<hidepsconsole>false</hidepsconsole>
</ScriptPackager>
</ScriptSettings>
endregion-->
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html">
<meta content="text/html; charset=ISO-8859-1" http-equiv="content-type">
<title>Imaging Solutions v2.3</title>
<HTA:APPLICATION
ID="maging Solutions"
APPLICATIONNAME="Imaging Solutions"
BORDER="none"
CAPTION="yes"
CONTEXTMENU="no"
ICON="icon.ico"
INNERBORDER="no"
NAVIGABLE="true"
SCROLL="no"
SCROLLFLAT="yes"
SELECTION="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
TITLEBAR="no"
VERSION="2.2"/>
<script type="text/vbscript">
'******************************************************************************'
' Global Variables '
'******************************************************************************'
dim varPanel
varPanel = 1
dim logHTA
logHTA = "\\cm1\source files\\" & strSerialNum & ".log"
Dim oTSProgressUI
Set oTSProgressUI = CreateObject("Microsoft.SMS.TSProgressUI")
oTSProgressUI.CloseProgressDialog()
Dim strComputer
strComputer = "."
Dim strSerialNum
Dim strUser
Dim oTSEnvironment
Set oTSEnvironment = CreateObject("Microsoft.SMS.TSEnvironment")
'******************************************************************************'
' Window Onload Event '
'******************************************************************************'
Sub Window_OnLoad
'******************************************************************************'
' ComputerName Field Default Value '
'******************************************************************************'
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSMBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS")
For Each objSMBIOS in colSMBIOS
strSerialNum = objSMBIOS.SerialNumber
Next
window.document.getElementById("ComputerName").value = strSerialNum
End Sub
'******************************************************************************'
' Size & Positioning '
'******************************************************************************'
winWidth=800
winHeight=600
window.resizeto winWidth,winHeight
centerX=(screen.width-winWidth)/2
centerY=(screen.height-winHeight)/2
window.moveto centerX,centerY
posX=0
posY=0
move=0
'******************************************************************************'
' Function for Dragging Window '
'******************************************************************************'
Function setPos()
posX=window.event.screenX
posY=window.event.ScreenY
move=1
End Function
Function moving()
If move=1 Then
moveX=0
moveY=0
moveX=window.event.screenX-posX
moveY=window.event.screenY-posY
window.moveto(window.screenLeft+moveX),(window.screenTop+moveY)
setPos()
End if
End Function
Function stopMoving()
move=0
End Function
'******************************************************************************'
' Function to Close HTA '
'******************************************************************************'
Function closeHTA()
self.close
End Function
'******************************************************************************'
' Validate Variables '
'******************************************************************************'
Sub runValidation
If varPanel = 1 Then
If ComputerName.value = "" Then
msgbox("Please Enter a Computer Name")
ElseIf Username.value = "" Then
msgbox("Please Enter a Username")
Else
runInstall
End If
ElseIf varPanel = 2 Then
runRefresh
ElseIf varPanel = 3 Then
runBackup
End If
End Sub
'******************************************************************************'
' Configure Task Sequence Variables '
'******************************************************************************'
Sub runInstall
'msgbox("Test: " & varPanel)'
'************************************************************'
' Image Version '
'************************************************************'
If ImageChoice.value = "1" Then
oTSEnvironment("swn_OSPicker") = "Win7EntSP1x64"
'msgbox("OSImage Picker: " & oTSEnvironment("swn_OSPicker"))'
End If
'************************************************************'
' Computer Name '
'************************************************************'
oTSEnvironment("OSDComputerName") = computername.value
'msgbox("ComputerName TSValue: " & oTSEnvironment("OSDCOMPUTERNAME"))'
'************************************************************'
' AD OU '
'************************************************************'
If ADOU.value = "1" Then
oTSEnvironment("swn_ADOU") = "laptops"
'msgbox("AD OU TSValue: " & oTSEnvironment("swn_ADOU"))'
ElseIf ADOU.value = "2" Then
oTSEnvironment("swn_ADOU") = "laptopsnouac"
'msgbox("AD OU TSValue: " & oTSEnvironment("swn_ADOU"))'
ElseIf ADOU.value = "3" Then
oTSEnvironment("swn_ADOU") = "desktops"
'msgbox("AD OU TSValue: " & oTSEnvironment("swn_ADOU"))'
ElseIf ADOU.value = "4" Then
oTSEnvironment("swn_ADOU") = "desktopsnouac"
'msgbox("AD OU TSValue: " & oTSEnvironment("swn_ADOU"))'
ElseIf ADOU.value = "5" Then
oTSEnvironment("swn_ADOU") = "vdiworkstations"
'msgbox("AD OU TSValue: " & oTSEnvironment("swn_ADOU"))'
End If
'************************************************************'
' Set Primary User '
'************************************************************'
oTSEnvironment("SMSTSUdaUsers") = Username.value
'************************************************************'
' Job Role Picker '
'************************************************************'
' For Each oJobRole in rJobRole'
' If oJobRole.Checked Then'
' oTSEnvironment("swn_JobRole") = oJobRole.value'
' msgbox("You slected " & oJobRole.value & ".")'
' End If'
' Next'
'************************************************************'
' Applications - Non-Licensed '
'************************************************************'
'************************************************************'
' Applications - Licensed '
'************************************************************'
closeHTA()
End Sub
Sub runRefresh
msgbox("Test" & varPanel)
End Sub
Sub runBackup
msgbox("Test" & varPanel)
End Sub
'******************************************************************************'
' Dump Variables '
'******************************************************************************'
Sub dumpvariables
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(logHTA,8,True)
For each varTSVar in oTSEnvironment.GetVariables
objFile.WriteLine varTSVar & " = " & oTSEnvironment(varTSVar)
Next
objFile.Close
End Sub
'******************************************************************************'
' Panel Browsing - Change page and set variables '
'******************************************************************************'
Sub setPanel1
Panel(1)
varPanel = 1
End Sub
Sub setPanel2
Panel(2)
varPanel = 2
End Sub
Sub setPanel3
Panel(3)
varPanel = 3
End Sub
</script>
<script type="text/javascript">
'******************************************************************************'
' Panel Switching '
'******************************************************************************'
var panels = new Array("","panel1","panel2","panel3");
function panel(tab) {
for (i=1; i<panels.length; i++) {
if (i == tab) {
document.getElementById("tab"+i).className = "tabs tabs1";
document.getElementById("panel"+i).style.display = "block";
}
else {
document.getElementById("tab"+i).className = "tabs tabs0";
document.getElementById("panel"+i).style.display = "none";
}
}
}
</script>
<style type="text/css">
/* Layout Styles - for designing the overall template */
html,body {
margin:0;
padding:5px;
position:relative;
}
html {
border: 2px solid #00A6DE;
}
#divheader {
width:100%;
height:50px;
position: relative;
}
#divcontent {
width: 100%;
}
#divtopnav {
height: 33px;
width: 100%;
position: relative;
}
#divbody {
min-height: 414px;
height: 100%;
width:100%;
position: relative;
}
#divbottomnav {
height: 29px;
width: 100%;
position: relative;
}
#divfooter {
height:50px;
width:100%;
position: relative;
}
body,td,th,h1 {
font-family: "Trebuchet MS", Arial, Helvetica, sans-serif;
font-size: 10px;
}
/* Logo Styles - for branding */
#logo1 {
width: 112px;
height: 49px;
float: left;
}
#tagline {
position: absolute;
bottom: 0px;
right: 0px;
font-size: 16px;
font-weight:600;
float: right;
}
#logo2 {
position: absolute;
bottom: 0px;
right: 0px;
width: 87px;
height: 43px;
float: right;
}
/* Navigation Styles - for creating navigation bar */
#topnav {
width: 100%;
float: left;
background-color: #f2f2f2;
border-bottom: 1px solid #ccc;
border-right: 1px solid #ccc;
border-top: 1px solid #ccc;
}
#topnav ul {
list-style: none;
width: 100%;
margin: 0 auto;
padding: 0;
}
#topnav li {
float: left;
}
#topnav li a {
display: block;
padding: 8px 15px;
text-decoration: none;
font-weight: bold;
color: #003050;
border-right: 1px solid #ccc;
}
#topnav li:first-child a {
border-left: 1px solid #ccc;
}
#topnav li a:hover {
color: #00A6DE;
background-color: #fff;
}
#topnav li a:active {
color: #00A6DE;
background-color: #FFF;
}
/* ------------------------ */
#bottomnav {
position: absolute;
bottom: 0px;
width: 100%;
float: left;
background-color: #F2F2F2;
border-bottom: 1px solid #ccc;
border-left: 1px solid #ccc;
border-top: 1px solid #ccc;
border-right: 1px solid #ccc; /* Remove this line if using more than one nav button */
}
#bottomnav ul {
list-style: none;
width: 100%;
margin: 0 auto;
padding: 0;
}
#bottomnav li {
float: right;
}
#bottomnav li a {
display: block;
padding: 6px 12px;
text-decoration: none;
font-weight: bold;
color: #003050;
border-left: 1px solid #ccc;
}
#bottomnav li:first-child a {
border-right: 1px solid #ccc;
}
#bottomnav li a:hover {
color: #FFF;
background-color: #CCC;
}
/* Body Styles - for managing content in the body panels */
.bodypanel {
height: 100%;
padding: 0px;
position: relative;
width: 100%;
z-index: 0;
}
#divbodysub {
padding-top: 5px;
}
#divcontainer {
width:773px;
border: 1px solid #CCCCCC;
float:left;
padding: 0px;
height: 105px;
}
#divcontainersplit {
width:386px;
border: 1px solid #CCCCCC;
float:left;
padding: 0px;
height: 105px;
}
#divcontainersplit:first-child {
border-right: 0px;
}
.divcontainersub {
padding: 2px;
}
.containertitle {
text-align:center;
background-color: #F2F2F2;
border-bottom: 1px solid #CCCCCC;
}
/* Input Styles - for changing the look of input fields */
.inputlabels {
}
.inputfields {
font-family: "Trebuchet MS", Arial, Helvetica, sans-serif;
font-size: 10px;
border: 1px solid #00a6de;
}
.helpbutton {
padding-left: 2px;
}
</style>
</head>
<body>
<div class="pagewrap">
<div id="divheader" onmousedown="VBScript:Call setPos()" onmousemove="VBScript:Call moving()" onmouseup="VBScript:Call stopMoving()">
<div>
<img id="logo1" src="images/logo/logo.png" />
</div>
<div id="tagline">
Imaging Solutions v2.3
</div>
</div>
<!-- BEGIN Browsing Tabs -->
<div id="divcontent">
<div id="divtopnav">
<div id="topnav">
<ul>
<li id="tab1" onclick="setpanel1"><a href="#" tabindex="1002">Install</a></li>
<li id="tab2" onclick="setpanel2"><a href="#" tabindex="1003">Refresh</a></li>
<li id="tab3" onclick="setpanel3"><a href="#" tabindex="1004">Backup</a></li>
</ul>
</div>
</div>
<!-- END Browsing Tabs -->
<!-- BEGIN Install Page -->
<div id="divbody">
<div id="panel1" class="bodypanel" style="display:block;">
<div id="divbodysub">
Description: This page is for install-only scenarios of a specific OS. No backups or user data migration will occur on the machine.
</div>
<div id="divbodysub">
<label for="ImageName">Choose the OS Image:</label>
<select id="ImageName" class="inputfields" tabindex="1" name="ImageChoice" size="1">
<option value="1">Win 7 Ent x64</option>
</select><img class="helpbutton" src="images/help.png"images/Metrostation/MB_0011_info3_blue.png"" width="16" height="16" alt="Choose the image to use">
<script type="text/javascript">ImageName.focus();</script>
</div>
<div id="divbodysub" style="float:left">
<div id="divcontainersplit">
<div class="containertitle">
Computer Information
</div>
<div class="divcontainersub">
<label for="ComputerName">Computer Name:</label>
<input id="ComputerName" class="inputfields" name="ComputerName" tabindex="2" type="text" size="57" maxlength="15" disabled="true">
</div>
<div class="divcontainersub">
<label for="ADOU">Active Directory OU:</label>
<select id="ADOU" class="inputfields" tabindex="3" name="ADOU" size="1" style="width:278px;">
<option value="1">Laptops</option>
<option value="2">Desktops</option>
<option value="3">Servers</option>
</select>
</div>
<div id="divcontainersplit">
<div class="containertitle">
Locale
</div>
<div class="divcontainersub">
<label for="ADOU">Select Region:</label>
<select id="ADOU" class="inputfields" tabindex="3" name="ADOU" size="1" style="width:278px;">
<option value="1">Scotland</option>
<option value="2">Wales</option>
<option value="3">Ireland</option>
<option value="4">England</option>
</select>
</div>
</div>
<div id="divcontainersplit">
<div class="containertitle">
Locale
</div>
<div class="divcontainersub">
<label for="ADOU">Select Region:</label>
<select id="ADOU" class="inputfields" tabindex="3" name="ADOU" size="1" style="width:278px;">
<option value="1">London</option>
<option value="2">Manchester</option>
</select>
</div>
</div>
<div id="divcontainersplit">
<div class="containertitle">
User Information
</div>
<div class="divcontainersub">
<label for="Username">Domain\Username:</label>
<input id="Username" class="inputfields" name="Username" tabindex="4" type="text" size="55"/>
</div>
<div class="divcontainersub">
<div>
Job Role:
</div>
<div class="divcontainersub">
The username entered in the above field will determine what role based applications are installed based on the Job Role collection they are apart of.</li>
</div>
</div>
</div>
<div id="divbodysub">
<div id="divcontainer" >
<div class="containertitle">
Applications - Non-Licensed
</div>
<div class="divcontainersub">
<!-- <input type="checkbox" name="7zip" value="7zip" tabindex="9">7-zip
<input type="checkbox" name="iTunes" value="iTunes" tabindex="10">iTunes
-->
</div>
</div>
</div>
<div id="divbodysub">
<div id="divcontainer" >
<div class="containertitle">
Applications - Licensed
</div>
<div class="divcontainersub">
<!-- <input type="checkbox" name="AdobeAcro9Pro" value="AdobeAcro9Pro" tabindex="51">Adobe Acrobat v9 Pro
<input type="checkbox" name="Cygnet8" value="Cygnet8" tabindex="52">Cygnet v8
-->
</div>
</div>
</div>
</div>
</div>
<!-- END Install Page -->
<!-- BEGIN Refresh Page -->
<div id="panel2" class="bodypanel" style="display:none;">
<div id="divbodysub">
Description: This page is for the reinstallation of an OS to a machine that has been previously imaged. This process gives some options for data backup.
</div>
<div id="divbodysub">
<label for="ImageName">Choose the OS Image:</label>
<select id="ImageName" class="inputfields" tabindex="1" name="ImageName" size="1">
<option value="1">Win 7 Ent x64</option>
<option value="2">Other</option>
</select><img class="helpbutton" src="images/help.png" width="15" height="15" alt="Choose the image to use">
</div>
</div>
<!-- END Refresh Page -->
<!-- BEGIN Backup Page -->
<div id="panel3" class="bodypanel" style="display:none;">
Backup
</div>
</div>
<!-- END Backup Page -->
<div id="divbottomnav">
<div id="bottomnav">
<ul>
<li onclick="close ()"><a href="#" tabindex="1001">Quit</a></li>
<li onClick="runValidation"><a href="#" tabindex="1000">Run</a></li>
</ul>
</div>
</div>
</div>
<div id="divfooter">
<div>
<img id="logo2" src="images/logo/sublogo.png" />
</div>
</div>
</div>
</body>
</html>
We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.
Hi Guys,
Does anyone have a HTA or powershell front end that i can use , or suggestions on how to use a current one out there, my requirements are pretty simple i think.
We have about 100 different sites in 4 different countries, and we now name our computers with the following format OFFICE-Serial
where office is a 7 digit identifier for the office, and serial is the last 7 digits of the serial number.
Lets say i have the following.
>England
>>Manchester
>>London
>> South London
>Scotland
>>Inverness
>>Edinburgh
Names would be
MANCHE-SERIAL
STHLOND-SERIAL
etc.
I would like a drop down first to select the country, and then a drop down to select the site with results only from the country in question
I would then need OSDComputer Name to prefix 7 digits of this name and then append "-" + serial number.
Can anyone help me with this? i have this which is from technet and i have modified a bit, but dont know vb well enough to modify.
<!--Script Settings <ScriptSettings xmlns="http://tempuri.org/ScriptSettings.xsd"> <ScriptPackager> <process /> <arguments /> <extractdir>%TEMP%</extractdir> <files /> <usedefaulticon>true</usedefaulticon> <showinsystray>false</showinsystray> <altcreds>false</altcreds> <efs>true</efs> <ntfs>true</ntfs> <local>false</local> <abortonfail>true</abortonfail> <product /> <version>1.0.0.1</version> <versionstring /> <comments /> <company /> <includeinterpreter>false</includeinterpreter> <forcecomregistration>false</forcecomregistration> <consolemode>false</consolemode> <EnableChangelog>false</EnableChangelog> <AutoBackup>false</AutoBackup> <snapinforce>false</snapinforce> <snapinshowprogress>false</snapinshowprogress> <snapinautoadd>2</snapinautoadd> <snapinpermanentpath /> <cpumode>1</cpumode> <hidepsconsole>false</hidepsconsole> </ScriptPackager> </ScriptSettings> endregion--> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html"> <meta content="text/html; charset=ISO-8859-1" http-equiv="content-type"> <title>Imaging Solutions v2.3</title> <HTA:APPLICATION ID="maging Solutions" APPLICATIONNAME="Imaging Solutions" BORDER="none" CAPTION="yes" CONTEXTMENU="no" ICON="icon.ico" INNERBORDER="no" NAVIGABLE="true" SCROLL="no" SCROLLFLAT="yes" SELECTION="no" SHOWINTASKBAR="yes" SINGLEINSTANCE="yes" SYSMENU="yes" TITLEBAR="no" VERSION="2.2"/> <script type="text/vbscript"> '******************************************************************************' ' Global Variables ' '******************************************************************************' dim varPanel varPanel = 1 dim logHTA logHTA = "\\cm1\source files\\" & strSerialNum & ".log" Dim oTSProgressUI Set oTSProgressUI = CreateObject("Microsoft.SMS.TSProgressUI") oTSProgressUI.CloseProgressDialog() Dim strComputer strComputer = "." Dim strSerialNum Dim strUser Dim oTSEnvironment Set oTSEnvironment = CreateObject("Microsoft.SMS.TSEnvironment") '******************************************************************************' ' Window Onload Event ' '******************************************************************************' Sub Window_OnLoad '******************************************************************************' ' ComputerName Field Default Value ' '******************************************************************************' Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSMBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS") For Each objSMBIOS in colSMBIOS strSerialNum = objSMBIOS.SerialNumber Next window.document.getElementById("ComputerName").value = strSerialNum End Sub '******************************************************************************' ' Size & Positioning ' '******************************************************************************' winWidth=800 winHeight=600 window.resizeto winWidth,winHeight centerX=(screen.width-winWidth)/2 centerY=(screen.height-winHeight)/2 window.moveto centerX,centerY posX=0 posY=0 move=0 '******************************************************************************' ' Function for Dragging Window ' '******************************************************************************' Function setPos() posX=window.event.screenX posY=window.event.ScreenY move=1 End Function Function moving() If move=1 Then moveX=0 moveY=0 moveX=window.event.screenX-posX moveY=window.event.screenY-posY window.moveto(window.screenLeft+moveX),(window.screenTop+moveY) setPos() End if End Function Function stopMoving() move=0 End Function '******************************************************************************' ' Function to Close HTA ' '******************************************************************************' Function closeHTA() self.close End Function '******************************************************************************' ' Validate Variables ' '******************************************************************************' Sub runValidation If varPanel = 1 Then If ComputerName.value = "" Then msgbox("Please Enter a Computer Name") ElseIf Username.value = "" Then msgbox("Please Enter a Username") Else runInstall End If ElseIf varPanel = 2 Then runRefresh ElseIf varPanel = 3 Then runBackup End If End Sub '******************************************************************************' ' Configure Task Sequence Variables ' '******************************************************************************' Sub runInstall 'msgbox("Test: " & varPanel)' '************************************************************' ' Image Version ' '************************************************************' If ImageChoice.value = "1" Then oTSEnvironment("swn_OSPicker") = "Win7EntSP1x64" 'msgbox("OSImage Picker: " & oTSEnvironment("swn_OSPicker"))' End If '************************************************************' ' Computer Name ' '************************************************************' oTSEnvironment("OSDComputerName") = computername.value 'msgbox("ComputerName TSValue: " & oTSEnvironment("OSDCOMPUTERNAME"))' '************************************************************' ' AD OU ' '************************************************************' If ADOU.value = "1" Then oTSEnvironment("swn_ADOU") = "laptops" 'msgbox("AD OU TSValue: " & oTSEnvironment("swn_ADOU"))' ElseIf ADOU.value = "2" Then oTSEnvironment("swn_ADOU") = "laptopsnouac" 'msgbox("AD OU TSValue: " & oTSEnvironment("swn_ADOU"))' ElseIf ADOU.value = "3" Then oTSEnvironment("swn_ADOU") = "desktops" 'msgbox("AD OU TSValue: " & oTSEnvironment("swn_ADOU"))' ElseIf ADOU.value = "4" Then oTSEnvironment("swn_ADOU") = "desktopsnouac" 'msgbox("AD OU TSValue: " & oTSEnvironment("swn_ADOU"))' ElseIf ADOU.value = "5" Then oTSEnvironment("swn_ADOU") = "vdiworkstations" 'msgbox("AD OU TSValue: " & oTSEnvironment("swn_ADOU"))' End If '************************************************************' ' Set Primary User ' '************************************************************' oTSEnvironment("SMSTSUdaUsers") = Username.value '************************************************************' ' Job Role Picker ' '************************************************************' ' For Each oJobRole in rJobRole' ' If oJobRole.Checked Then' ' oTSEnvironment("swn_JobRole") = oJobRole.value' ' msgbox("You slected " & oJobRole.value & ".")' ' End If' ' Next' '************************************************************' ' Applications - Non-Licensed ' '************************************************************' '************************************************************' ' Applications - Licensed ' '************************************************************' closeHTA() End Sub Sub runRefresh msgbox("Test" & varPanel) End Sub Sub runBackup msgbox("Test" & varPanel) End Sub '******************************************************************************' ' Dump Variables ' '******************************************************************************' Sub dumpvariables Set objFSO=CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(logHTA,8,True) For each varTSVar in oTSEnvironment.GetVariables objFile.WriteLine varTSVar & " = " & oTSEnvironment(varTSVar) Next objFile.Close End Sub '******************************************************************************' ' Panel Browsing - Change page and set variables ' '******************************************************************************' Sub setPanel1 Panel(1) varPanel = 1 End Sub Sub setPanel2 Panel(2) varPanel = 2 End Sub Sub setPanel3 Panel(3) varPanel = 3 End Sub </script> <script type="text/javascript"> '******************************************************************************' ' Panel Switching ' '******************************************************************************' var panels = new Array("","panel1","panel2","panel3"); function panel(tab) { for (i=1; i<panels.length; i++) { if (i == tab) { document.getElementById("tab"+i).className = "tabs tabs1"; document.getElementById("panel"+i).style.display = "block"; } else { document.getElementById("tab"+i).className = "tabs tabs0"; document.getElementById("panel"+i).style.display = "none"; } } } </script> <style type="text/css"> /* Layout Styles - for designing the overall template */ html,body { margin:0; padding:5px; position:relative; } html { border: 2px solid #00A6DE; } #divheader { width:100%; height:50px; position: relative; } #divcontent { width: 100%; } #divtopnav { height: 33px; width: 100%; position: relative; } #divbody { min-height: 414px; height: 100%; width:100%; position: relative; } #divbottomnav { height: 29px; width: 100%; position: relative; } #divfooter { height:50px; width:100%; position: relative; } body,td,th,h1 { font-family: "Trebuchet MS", Arial, Helvetica, sans-serif; font-size: 10px; } /* Logo Styles - for branding */ #logo1 { width: 112px; height: 49px; float: left; } #tagline { position: absolute; bottom: 0px; right: 0px; font-size: 16px; font-weight:600; float: right; } #logo2 { position: absolute; bottom: 0px; right: 0px; width: 87px; height: 43px; float: right; } /* Navigation Styles - for creating navigation bar */ #topnav { width: 100%; float: left; background-color: #f2f2f2; border-bottom: 1px solid #ccc; border-right: 1px solid #ccc; border-top: 1px solid #ccc; } #topnav ul { list-style: none; width: 100%; margin: 0 auto; padding: 0; } #topnav li { float: left; } #topnav li a { display: block; padding: 8px 15px; text-decoration: none; font-weight: bold; color: #003050; border-right: 1px solid #ccc; } #topnav li:first-child a { border-left: 1px solid #ccc; } #topnav li a:hover { color: #00A6DE; background-color: #fff; } #topnav li a:active { color: #00A6DE; background-color: #FFF; } /* ------------------------ */ #bottomnav { position: absolute; bottom: 0px; width: 100%; float: left; background-color: #F2F2F2; border-bottom: 1px solid #ccc; border-left: 1px solid #ccc; border-top: 1px solid #ccc; border-right: 1px solid #ccc; /* Remove this line if using more than one nav button */ } #bottomnav ul { list-style: none; width: 100%; margin: 0 auto; padding: 0; } #bottomnav li { float: right; } #bottomnav li a { display: block; padding: 6px 12px; text-decoration: none; font-weight: bold; color: #003050; border-left: 1px solid #ccc; } #bottomnav li:first-child a { border-right: 1px solid #ccc; } #bottomnav li a:hover { color: #FFF; background-color: #CCC; } /* Body Styles - for managing content in the body panels */ .bodypanel { height: 100%; padding: 0px; position: relative; width: 100%; z-index: 0; } #divbodysub { padding-top: 5px; } #divcontainer { width:773px; border: 1px solid #CCCCCC; float:left; padding: 0px; height: 105px; } #divcontainersplit { width:386px; border: 1px solid #CCCCCC; float:left; padding: 0px; height: 105px; } #divcontainersplit:first-child { border-right: 0px; } .divcontainersub { padding: 2px; } .containertitle { text-align:center; background-color: #F2F2F2; border-bottom: 1px solid #CCCCCC; } /* Input Styles - for changing the look of input fields */ .inputlabels { } .inputfields { font-family: "Trebuchet MS", Arial, Helvetica, sans-serif; font-size: 10px; border: 1px solid #00a6de; } .helpbutton { padding-left: 2px; } </style> </head> <body> <div class="pagewrap"> <div id="divheader" onmousedown="VBScript:Call setPos()" onmousemove="VBScript:Call moving()" onmouseup="VBScript:Call stopMoving()"> <div> <img id="logo1" src="images/logo/logo.png" /> </div> <div id="tagline"> Imaging Solutions v2.3 </div> </div> <!-- BEGIN Browsing Tabs --> <div id="divcontent"> <div id="divtopnav"> <div id="topnav"> <ul> <li id="tab1" onclick="setpanel1"><a href="#" tabindex="1002">Install</a></li> <li id="tab2" onclick="setpanel2"><a href="#" tabindex="1003">Refresh</a></li> <li id="tab3" onclick="setpanel3"><a href="#" tabindex="1004">Backup</a></li> </ul> </div> </div> <!-- END Browsing Tabs --> <!-- BEGIN Install Page --> <div id="divbody"> <div id="panel1" class="bodypanel" style="display:block;"> <div id="divbodysub"> Description: This page is for install-only scenarios of a specific OS. No backups or user data migration will occur on the machine. </div> <div id="divbodysub"> <label for="ImageName">Choose the OS Image:</label> <select id="ImageName" class="inputfields" tabindex="1" name="ImageChoice" size="1"> <option value="1">Win 7 Ent x64</option> </select><img class="helpbutton" src="images/help.png"images/Metrostation/MB_0011_info3_blue.png"" width="16" height="16" alt="Choose the image to use"> <script type="text/javascript">ImageName.focus();</script> </div> <div id="divbodysub" style="float:left"> <div id="divcontainersplit"> <div class="containertitle"> Computer Information </div> <div class="divcontainersub"> <label for="ComputerName">Computer Name:</label> <input id="ComputerName" class="inputfields" name="ComputerName" tabindex="2" type="text" size="57" maxlength="15" disabled="true"> </div> <div class="divcontainersub"> <label for="ADOU">Active Directory OU:</label> <select id="ADOU" class="inputfields" tabindex="3" name="ADOU" size="1" style="width:278px;"> <option value="1">Laptops</option> <option value="2">Desktops</option> <option value="3">Servers</option> </select> </div> <div id="divcontainersplit"> <div class="containertitle"> Locale </div> <div class="divcontainersub"> <label for="ADOU">Select Region:</label> <select id="ADOU" class="inputfields" tabindex="3" name="ADOU" size="1" style="width:278px;"> <option value="1">Scotland</option> <option value="2">Wales</option> <option value="3">Ireland</option> <option value="4">England</option> </select> </div> </div> <div id="divcontainersplit"> <div class="containertitle"> Locale </div> <div class="divcontainersub"> <label for="ADOU">Select Region:</label> <select id="ADOU" class="inputfields" tabindex="3" name="ADOU" size="1" style="width:278px;"> <option value="1">London</option> <option value="2">Manchester</option> </select> </div> </div> <div id="divcontainersplit"> <div class="containertitle"> User Information </div> <div class="divcontainersub"> <label for="Username">Domain\Username:</label> <input id="Username" class="inputfields" name="Username" tabindex="4" type="text" size="55"/> </div> <div class="divcontainersub"> <div> Job Role: </div> <div class="divcontainersub"> The username entered in the above field will determine what role based applications are installed based on the Job Role collection they are apart of.</li> </div> </div> </div> <div id="divbodysub"> <div id="divcontainer" > <div class="containertitle"> Applications - Non-Licensed </div> <div class="divcontainersub"> <!-- <input type="checkbox" name="7zip" value="7zip" tabindex="9">7-zip <input type="checkbox" name="iTunes" value="iTunes" tabindex="10">iTunes --> </div> </div> </div> <div id="divbodysub"> <div id="divcontainer" > <div class="containertitle"> Applications - Licensed </div> <div class="divcontainersub"> <!-- <input type="checkbox" name="AdobeAcro9Pro" value="AdobeAcro9Pro" tabindex="51">Adobe Acrobat v9 Pro <input type="checkbox" name="Cygnet8" value="Cygnet8" tabindex="52">Cygnet v8 --> </div> </div> </div> </div> </div> <!-- END Install Page --> <!-- BEGIN Refresh Page --> <div id="panel2" class="bodypanel" style="display:none;"> <div id="divbodysub"> Description: This page is for the reinstallation of an OS to a machine that has been previously imaged. This process gives some options for data backup. </div> <div id="divbodysub"> <label for="ImageName">Choose the OS Image:</label> <select id="ImageName" class="inputfields" tabindex="1" name="ImageName" size="1"> <option value="1">Win 7 Ent x64</option> <option value="2">Other</option> </select><img class="helpbutton" src="images/help.png" width="15" height="15" alt="Choose the image to use"> </div> </div> <!-- END Refresh Page --> <!-- BEGIN Backup Page --> <div id="panel3" class="bodypanel" style="display:none;"> Backup </div> </div> <!-- END Backup Page --> <div id="divbottomnav"> <div id="bottomnav"> <ul> <li onclick="close ()"><a href="#" tabindex="1001">Quit</a></li> <li onClick="runValidation"><a href="#" tabindex="1000">Run</a></li> </ul> </div> </div> </div> <div id="divfooter"> <div> <img id="logo2" src="images/logo/sublogo.png" /> </div> </div> </div> </body> </html>Share this post
Link to post
Share on other sites