Solved

Getting Service Pack information with a hta

Posted on 2009-05-03
8
258 Views
Last Modified: 2012-05-06
Hi guys hope you are all well.
Guys i have the following hta, which does work, but has a little problem that id love your help on.

When it loads, it loads without error. I click the button to run the query, and it runs successfully, but displays the output in a new window, and not on the same "screen" as the onload screen.

So, basically,

============================================= get_service_pack.hta

text text

<Ge3t Service Pack > button    <----- when i click this, the screen is wiped, and then i get the results,
When what i want is for the <Get Service Pack> button to remain there, with results underneath it.

Any help grealy appreciated.
============================== get_service_pack.hta
 
<html>
<!-------------------------------------------------------------------------
  Get the Service Pack of a list of systems from servfers.txt
---------------------------------------------------------------------------->
 
<head>
<title>Service Pack Information</title>
<HTA:APPLICATION ID="oHTA"
    APPLICATIONNAME="Service Pack Information"
    SINGLEINSTANCE="yes"
    NAVIGABLE="yes"
   >
 
<style type="text/css">
 
html {
font-family:arial;
font-size:smaller;
 
}
 
table {
border-collapse:collapse;
border:solid 1px black;
font-family:arial;
font-size:0.8em;
}
 
tr, td {
border:solid 1px black;
}
 
</style>
 
 
</head>
 
<body>
 
<p><h2 align=center><font color=red>Service Pack Information</font></h2>
<div align=right>S Test  04/05/2009</div><hr size=1>
This hta application uses VBScript and WMI to enumerate the service pack for systems in a text file.<p>
 
<script language="VBScript">
 
'This will open the current document for writing to:
 
 
Sub GetServicePack
 
'document.open
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const intForReading = 1
strComputersFile = "servers.txt"
Set objComputers = objFSO.OpenTextFile(strComputersFile, intForReading, False)
 
 
 
document.writeln "<center><table width='40%' border=1 bgcolor='white'><tr><td style='background:c0c0c0'>" & "<b>System</b>" & "</td><td style='background:c0c0c0'>" & "<b>Service 
 
Pack</b>" & "</td></tr>"
 
'document.writeln "<center><table border=1 bgcolor='c0c0c0'>"
 
While Not objComputers.AtEndOfStream
	strComputer =   objComputers.ReadLine
 
        'If you can connect to the machine, then get the Service pack:
        If Ping(strComputer) = True Then
 
        On Error Resume Next
                Set objWMIService = GetObject("winmgmts:" _
                & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
                If Err.Number = 0 Then On Error GoTo 0
 
                'Get Service Pack:
                '-----------------------------------------------------
                Set colSpack = objWMIService.ExecQuery _
                ("Select * from Win32_OperatingSystem")
 
                For Each objSpack in colSpack
                        strSpack = objSpack.ServicePackMajorVersion
                Next
 
 		document.writeln "<tr><td>" & strComputer & "</td><td>" & strSpack & "</td></tr>"
	Else
 
		document.writeln "<tr><td>" & strComputer & "</td><td style='background:black;'>" & "<font color='red'>Unreachable</font>" & "</td></tr>"
 
		'document.writeln strComputer & vbTab & vbTab & "Unreachable"
 
        End If
 
  
Wend
 
objComputers.Close
document.writeln "</table></center>"
 
document.close
 
End Sub
 
Function Ping(strComputer)
 Dim objShell, boolCode
 Set objShell = CreateObject("WScript.Shell")
 boolCode = objShell.Run("Ping -n 1 -w 300 " & strComputer, 0, True)
 If boolCode = 0 Then
  Ping = True
 Else
  Ping = False
 End If
End Function
 
 
</script>
 
 
<input id=getsp  class="button" type="button" value="Get Service Pack" name="getsp_button"  onClick="GetServicePack">
 
 
</body>
</html>

Open in new window

0
Comment
Question by:Simon336697
  • 5
  • 3
8 Comments
 
LVL 14

Expert Comment

by:yehudaha
ID: 24293032
hey

i'm not a hta expert but here a code from : advance vbscript for system adminstrator
<html>
 
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Computer Inventory Tool</title>
<script language="vbscript">
 
Sub btnOK_onClick
    Dim arrComputers, strComputer, objWMIService, colItems, objItem, strHTML
    
    'get the computer names into a string
    'and split it into an array
    arrComputers = Split(txtComputers.InnerText,vbcrlf)
    
    'create the starting HTML
    strHTML = "<table border=1>" & VbCrLf
    strHTML = strHTML & "<tr>" & VbCrLf
    strHTML = strHTML & "<td>Computer</td>" & VbCrLf
   If chkBuild.value = "ON" Then
     strHTML = strHTML & "<td>Build</td>" & VbCrLf
   End If
   If chkServicePack.value = "ON" Then
     strHTML = strHTML & "<td>Service Pack</td>" & VbCrLf
   End If
   If chkVersion.value = "ON" Then
     strHTML = strHTML & "<td>Version</td>" & VbCrLf
   End If
   If chkSerialNumber.value = "ON" Then
     strHTML = strHTML & "<td>Serial Number</td>" & VbCrLf
   End If
    
    'read through the array
    For Each strComputer In arrComputers
    
     'add a table row to the HTML
     strHTML = strHTML & "<tr>" & VbCrLf
         
     'query the computer
     On Error Resume Next
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & _
      "\root\cimv2")
     If Err = 0 Then
      'no error connecting - query the info
      Set colItems = objWMIService.ExecQuery("SELECT * " & _
       "FROM Win32_OperatingSystem")
       
      'build the output HTML cells
      For Each objItem In colItems
       strHTML = strHTML & "<td>" & strComputer & "</td>" & VbCrLf
       If chkBuild.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.BuildNumber & "</td>" & VbCrLf
       End If
       If chkServicePack.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.ServicePackMajorVersion & "</td>" & VbCrLf
       End If
       If chkVersion.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.Version & "</td>" & VbCrLf
       End If
       If chkSerialNumber.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.SerialNumber & "</td>" & VbCrLf
       End If
      Next
      
      'finish the HTML row
      strHTML = strHTML & "</tr>"
     Else
      'error connecting
      strHTML = strHTML & "<tr>" & VbCrLf
      strHTML = strHTML & "<td>" & strComputer & "</td>" & VbCrLf
      strHTML = strHTML & "<td>?</td>" & VbCrLf
      strHTML = strHTML & "</tr>" & VbCrLf
     End If
     On Error GoTo 0
     
    Next
    
    'close the table
    strHTML = strHTML & "</table>" & VbCrLf
    
    'display the table
    DisplayOutputInIE(strHTML)
End Sub
 
Sub DisplayOutputInIE(strHTML)
 Dim objIE
 Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Navigate "about:blank"
 objIE.Document.body.innerhtml = strHTML
 objIE.Visible = True
End Sub
 
Sub btnLoadFromFile_onClick()
    Dim objFSO, objTS, strFile
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    strFile = InputBox("Path and filename to load?")
    If objFSO.FileExists(strFile) Then
        Set objTS = objFSO.OpenTextFile(strFile)
        txtComputers.innerText = objTS.ReadAll
        objTS.Close 
    Else
        MsgBox("File does not exist.")
    End If
End Sub
 
</script>
<hta:application>
</head>
 
<body>
 
<p align="center"><b>Computer Inventory Tool</b></p>
<p align="left">Inventory the following computers (one per line):<br>
<textarea id="txtComputers" rows="4" name="txtComputers" cols="40"></textarea><input type="button" value="Load From File" id="btnLoadFromFile" name="btnLoadFromFile"></p>
<p align="left">Inventory this information:<br>
<input type="checkbox" id="chkServicePack" name="chkServicePack" value="ON">Service pack major 
version<br>
<input type="checkbox" id="chkBuild" name="chkBuild" value="ON">Windows build<br>
<input type="checkbox" id="chkVersion" name="chkVersion" value="ON">Version<br>
<input type="checkbox" id="chkSerialNumber" name="chkSerialNumber" value="ON">Serial number</p>
<p align="left"><input id="btnOK" type="button" value="OK" name="btnOK"></p>
 
</body>
 
</html>

Open in new window

0
 
LVL 1

Author Comment

by:Simon336697
ID: 24293056
Hi yehudaha,
Mate thanks so much for that. That gives me something to work with :>)
yehudaha,
Im not sure if you can help on this, but that code you posted, when I run it, it returns the results in a different window. Is it possible to return those results in the SAME window?
0
 
LVL 14

Expert Comment

by:yehudaha
ID: 24293091
i hope this will do it  
<!--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 />
    <includeinterpreter>false</includeinterpreter>
    <forcecomregistration>false</forcecomregistration>
    <consolemode>false</consolemode>
    <EnableChangelog>false</EnableChangelog>
    <AutoBackup>false</AutoBackup>
    <snapinforce>false</snapinforce>
    <snapinshowprogress>false</snapinshowprogress>
    <snapinautoadd>0</snapinautoadd>
    <snapinpermanentpath />
  </ScriptPackager>
</ScriptSettings>
endregion-->
 
<html>
 
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Computer Inventory Tool</title>
<script language="vbscript">
 
Sub btnOK_onClick
    Dim arrComputers, strComputer, objWMIService, colItems, objItem, strHTML
    
    'get the computer names into a string
    'and split it into an array
    arrComputers = Split(txtComputers.InnerText,vbcrlf)
    
    'create the starting HTML
    strHTML = "<table border=1>" & VbCrLf
    strHTML = strHTML & "<tr>" & VbCrLf
    strHTML = strHTML & "<td>Computer</td>" & VbCrLf
   If chkBuild.value = "ON" Then
     strHTML = strHTML & "<td>Build</td>" & VbCrLf
   End If
   If chkServicePack.value = "ON" Then
     strHTML = strHTML & "<td>Service Pack</td>" & VbCrLf
   End If
   If chkVersion.value = "ON" Then
     strHTML = strHTML & "<td>Version</td>" & VbCrLf
   End If
   If chkSerialNumber.value = "ON" Then
     strHTML = strHTML & "<td>Serial Number</td>" & VbCrLf
   End If
    
    'read through the array
    For Each strComputer In arrComputers
    
     'add a table row to the HTML
     strHTML = strHTML & "<tr>" & VbCrLf
         
     'query the computer
     On Error Resume Next
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & _
      "\root\cimv2")
     If Err = 0 Then
      'no error connecting - query the info
      Set colItems = objWMIService.ExecQuery("SELECT * " & _
       "FROM Win32_OperatingSystem")
       
      'build the output HTML cells
      For Each objItem In colItems
       strHTML = strHTML & "<td>" & strComputer & "</td>" & VbCrLf
       If chkBuild.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.BuildNumber & "</td>" & VbCrLf
       End If
       If chkServicePack.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.ServicePackMajorVersion & "</td>" & VbCrLf
       End If
       If chkVersion.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.Version & "</td>" & VbCrLf
       End If
       If chkSerialNumber.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.SerialNumber & "</td>" & VbCrLf
       End If
      Next
      
      'finish the HTML row
      strHTML = strHTML & "</tr>"
     Else
      'error connecting
      strHTML = strHTML & "<tr>" & VbCrLf
      strHTML = strHTML & "<td>" & strComputer & "</td>" & VbCrLf
      strHTML = strHTML & "<td>?</td>" & VbCrLf
      strHTML = strHTML & "</tr>" & VbCrLf
     End If
     On Error GoTo 0
     
    Next
    
    'close the table
    strHTML = strHTML & "</table>" & VbCrLf
    
    'display the table
    'DisplayOutputInIE(strHTML)
	 DataArea.InnerHTML = strHTML
End Sub
 
Sub DisplayOutputInIE(strHTML)
 Dim objIE
 Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Navigate "about:blank"
 objIE.Document.body.innerhtml = strHTML
 objIE.Visible = True
End Sub
 
Sub btnLoadFromFile_onClick()
    Dim objFSO, objTS, strFile
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    strFile = InputBox("Path and filename to load?")
    If objFSO.FileExists(strFile) Then
        Set objTS = objFSO.OpenTextFile(strFile)
        txtComputers.innerText = objTS.ReadAll
        objTS.Close 
    Else
        MsgBox("File does not exist.")
    End If
End Sub
 
</script>
<hta:application>
</head>
 
<body>
 
<p align="center"><b>Computer Inventory Tool</b></p>
<p align="left">Inventory the following computers (one per line):<br>
<textarea id="txtComputers" rows="4" name="txtComputers" cols="40"></textarea><input type="button" value="Load From File" id="btnLoadFromFile" name="btnLoadFromFile"></p>
<p align="left">Inventory this information:<br>
<input type="checkbox" id="chkServicePack" name="chkServicePack" value="ON">Service pack major 
version<br>
<input type="checkbox" id="chkBuild" name="chkBuild" value="ON">Windows build<br>
<input type="checkbox" id="chkVersion" name="chkVersion" value="ON">Version<br>
<input type="checkbox" id="chkSerialNumber" name="chkSerialNumber" value="ON">Serial number</p>
<p align="left"><input id="btnOK" type="button" value="OK" name="btnOK"></p>
<span id=DataArea></span>
</body>
 
</html>

Open in new window

0
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
LVL 14

Expert Comment

by:yehudaha
ID: 24293093
sorry this one
<html>
 
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Computer Inventory Tool</title>
<script language="vbscript">
 
Sub btnOK_onClick
    Dim arrComputers, strComputer, objWMIService, colItems, objItem, strHTML
    
    'get the computer names into a string
    'and split it into an array
    arrComputers = Split(txtComputers.InnerText,vbcrlf)
    
    'create the starting HTML
    strHTML = "<table border=1>" & VbCrLf
    strHTML = strHTML & "<tr>" & VbCrLf
    strHTML = strHTML & "<td>Computer</td>" & VbCrLf
   If chkBuild.value = "ON" Then
     strHTML = strHTML & "<td>Build</td>" & VbCrLf
   End If
   If chkServicePack.value = "ON" Then
     strHTML = strHTML & "<td>Service Pack</td>" & VbCrLf
   End If
   If chkVersion.value = "ON" Then
     strHTML = strHTML & "<td>Version</td>" & VbCrLf
   End If
   If chkSerialNumber.value = "ON" Then
     strHTML = strHTML & "<td>Serial Number</td>" & VbCrLf
   End If
    
    'read through the array
    For Each strComputer In arrComputers
    
     'add a table row to the HTML
     strHTML = strHTML & "<tr>" & VbCrLf
         
     'query the computer
     On Error Resume Next
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & _
      "\root\cimv2")
     If Err = 0 Then
      'no error connecting - query the info
      Set colItems = objWMIService.ExecQuery("SELECT * " & _
       "FROM Win32_OperatingSystem")
       
      'build the output HTML cells
      For Each objItem In colItems
       strHTML = strHTML & "<td>" & strComputer & "</td>" & VbCrLf
       If chkBuild.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.BuildNumber & "</td>" & VbCrLf
       End If
       If chkServicePack.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.ServicePackMajorVersion & "</td>" & VbCrLf
       End If
       If chkVersion.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.Version & "</td>" & VbCrLf
       End If
       If chkSerialNumber.value = "ON" Then
         strHTML = strHTML & "<td>" & objItem.SerialNumber & "</td>" & VbCrLf
       End If
      Next
      
      'finish the HTML row
      strHTML = strHTML & "</tr>"
     Else
      'error connecting
      strHTML = strHTML & "<tr>" & VbCrLf
      strHTML = strHTML & "<td>" & strComputer & "</td>" & VbCrLf
      strHTML = strHTML & "<td>?</td>" & VbCrLf
      strHTML = strHTML & "</tr>" & VbCrLf
     End If
     On Error GoTo 0
     
    Next
    
    'close the table
    strHTML = strHTML & "</table>" & VbCrLf
    
    'display the table
    'DisplayOutputInIE(strHTML)
	 DataArea.InnerHTML = strHTML
End Sub
 
Sub DisplayOutputInIE(strHTML)
 Dim objIE
 Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Navigate "about:blank"
 objIE.Document.body.innerhtml = strHTML
 objIE.Visible = True
End Sub
 
Sub btnLoadFromFile_onClick()
    Dim objFSO, objTS, strFile
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    strFile = InputBox("Path and filename to load?")
    If objFSO.FileExists(strFile) Then
        Set objTS = objFSO.OpenTextFile(strFile)
        txtComputers.innerText = objTS.ReadAll
        objTS.Close 
    Else
        MsgBox("File does not exist.")
    End If
End Sub
 
</script>
<hta:application>
</head>
 
<body>
 
<p align="center"><b>Computer Inventory Tool</b></p>
<p align="left">Inventory the following computers (one per line):<br>
<textarea id="txtComputers" rows="4" name="txtComputers" cols="40"></textarea><input type="button" value="Load From File" id="btnLoadFromFile" name="btnLoadFromFile"></p>
<p align="left">Inventory this information:<br>
<input type="checkbox" id="chkServicePack" name="chkServicePack" value="ON">Service pack major 
version<br>
<input type="checkbox" id="chkBuild" name="chkBuild" value="ON">Windows build<br>
<input type="checkbox" id="chkVersion" name="chkVersion" value="ON">Version<br>
<input type="checkbox" id="chkSerialNumber" name="chkSerialNumber" value="ON">Serial number</p>
<p align="left"><input id="btnOK" type="button" value="OK" name="btnOK"></p>
<span id=DataArea></span>
</body>
 
</html>

Open in new window

0
 
LVL 1

Author Comment

by:Simon336697
ID: 24299580
hi yehudaha,
Thank you so much.
That does work yehudaha with just one slight hiccup.
If no checkboxes are checked, it returns information just like you checked all 4 checkboxes.
The other thing, is that if you only select a few of the checkboxes, it does not filter/'retrieve that information only.
0
 
LVL 14

Accepted Solution

by:
yehudaha earned 500 total points
ID: 24301413
try this
<html>
 
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Computer Inventory Tool</title>
<script language="vbscript">
 
Sub btnOK_onClick
    Dim arrComputers, strComputer, objWMIService, colItems, objItem, strHTML
    
    'get the computer names into a string
    'and split it into an array
    arrComputers = Split(txtComputers.InnerText,vbcrlf)
    
    'create the starting HTML
    strHTML = "<table border=1>" & VbCrLf
    strHTML = strHTML & "<tr>" & VbCrLf
    strHTML = strHTML & "<td>Computer</td>" & VbCrLf
   If chkBuild.Checked Then
     strHTML = strHTML & "<td>Build</td>" & VbCrLf
   End If
   If chkServicePack.Checked Then
     strHTML = strHTML & "<td>Service Pack</td>" & VbCrLf
   End If
   If chkVersion.Checked Then
     strHTML = strHTML & "<td>Version</td>" & VbCrLf
   End If
   If chkSerialNumber.Checked Then
     strHTML = strHTML & "<td>Serial Number</td>" & VbCrLf
   End If
    
    'read through the array
    For Each strComputer In arrComputers
    
     'add a table row to the HTML
     strHTML = strHTML & "<tr>" & VbCrLf
         
     'query the computer
     On Error Resume Next
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & _
      "\root\cimv2")
     If Err = 0 Then
      'no error connecting - query the info
      Set colItems = objWMIService.ExecQuery("SELECT * " & _
       "FROM Win32_OperatingSystem")
       
      'build the output HTML cells
      For Each objItem In colItems
       strHTML = strHTML & "<td>" & strComputer & "</td>" & VbCrLf
       If chkBuild.Checked Then
         strHTML = strHTML & "<td>" & objItem.BuildNumber & "</td>" & VbCrLf
       End If
       If chkServicePack.Checked Then
         strHTML = strHTML & "<td>" & objItem.ServicePackMajorVersion & "</td>" & VbCrLf
       End If
       If chkVersion.Checked Then
         strHTML = strHTML & "<td>" & objItem.Version & "</td>" & VbCrLf
       End If
       If chkSerialNumber.Checked Then
         strHTML = strHTML & "<td>" & objItem.SerialNumber & "</td>" & VbCrLf
       End If
      Next
      
      'finish the HTML row
      strHTML = strHTML & "</tr>"
     Else
      'error connecting
      strHTML = strHTML & "<tr>" & VbCrLf
      strHTML = strHTML & "<td>" & strComputer & "</td>" & VbCrLf
      strHTML = strHTML & "<td>?</td>" & VbCrLf
      strHTML = strHTML & "</tr>" & VbCrLf
     End If
     On Error GoTo 0
     
    Next
    
    'close the table
    strHTML = strHTML & "</table>" & VbCrLf
    
    'display the table
    'DisplayOutputInIE(strHTML)
	 DataArea.InnerHTML = strHTML
End Sub
 
Sub DisplayOutputInIE(strHTML)
 Dim objIE
 Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Navigate "about:blank"
 objIE.Document.body.innerhtml = strHTML
 objIE.Visible = True
End Sub
 
Sub btnLoadFromFile_onClick()
    Dim objFSO, objTS, strFile
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    strFile = InputBox("Path and filename to load?")
    If objFSO.FileExists(strFile) Then
        Set objTS = objFSO.OpenTextFile(strFile)
        txtComputers.innerText = objTS.ReadAll
        objTS.Close 
    Else
        MsgBox("File does not exist.")
    End If
End Sub
 
</script>
<hta:application>
</head>
 
<body>
 
<p align="center"><b>Computer Inventory Tool</b></p>
<p align="left">Inventory the following computers (one per line):<br>
<textarea id="txtComputers" rows="4" name="txtComputers" cols="40"></textarea><input type="button" value="Load From File" id="btnLoadFromFile" name="btnLoadFromFile"></p>
<p align="left">Inventory this information:<br>
<input type="checkbox" id="chkServicePack" name="chkServicePack" value="ON">Service pack major 
version<br>
<input type="checkbox" id="chkBuild" name="chkBuild" value="ON">Windows build<br>
<input type="checkbox" id="chkVersion" name="chkVersion" value="ON">Version<br>
<input type="checkbox" id="chkSerialNumber" name="chkSerialNumber" value="ON">Serial number</p>
<p align="left"><input id="btnOK" type="button" value="OK" name="btnOK"></p>
<span id=DataArea></span>
</body>
 
</html>

Open in new window

0
 
LVL 1

Author Comment

by:Simon336697
ID: 24301730
That is absolutely awesome yehudaha!
Mate brilliant!!
0
 
LVL 14

Expert Comment

by:yehudaha
ID: 24302731
thank
glad to help
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question