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.
OSD Computer Name Dynamically Adjust
in Frontends, HTA's and Web Services
Posted
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.