Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Saving results from a hta to a html file

Posted on 2009-05-12
5
Medium Priority
?
324 Views
Last Modified: 2012-05-06
Hi guys,
You great people have helped me with the following hta, which works great.
The only thing Id like to do to this hta is the following:

At the moment, when I click on the "Run Script" button, it outputs the results in the hta window.
Which is what i want.

<Run Script>

       Results seen here

What I would like is below:

<Run Script>  

        Results seen here

<Save results as html file>

So, basically,

1) If you have not clicked on the <Run Script> button, there would be no button for saving the results as a html file, because there are no results yet.
2) When you do click on the <Run Script> button, and the results are returned in the hta, I want a button to display after the results (and only displays when the results have finished being returned).
3) When you click on this new button, you have the option of saving the outputted results as a html file.

Any help greatly appreciated.
<head>
<title>KPMG: Multicomputer System Information</title>
<HTA:APPLICATION 
     APPLICATIONNAME="KPMG: Multicomputer System Information"
     SCROLL="yes"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="normal"
>
<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, th {
border-collapse:collapse;
border-style:solid;
}
 
td { border-width: 1px; }
 
.checks { background: #2554C7; 
color:white;
border-collapse:collapse;
border:solid 1px black;
cellpadding:1px;
padding:3px;
width:100%;
}
 
</style>
 
 
</head>
<script language="vbscript">
Sub Window_onLoad
	intWidth = 800
	intHeight = 580
	Me.ResizeTo intWidth, intHeight
	Me.MoveTo ((Screen.Width / 2) - (intWidth / 2)),((Screen.Height / 2) - (intHeight / 2))
End Sub
 
Sub GetInfo
run_button.disabled = True
ComputerListFile.disabled = True
Const ForReading = 1
Const ForWriting = 2
 
'--------------------------------------------------------
'1) Set the SPAN IDs to nothing:
'--------------------------------------------------------
SPacks.InnerHTML = "" : Archs.InnerHTML = "" :  OS.InnerHTML ="" :  ModelDetail.InnerHTML ="" : PSPDetail.InnerHTML ="" : Totals.InnerHTML = ""
 
'--------------------------------------------------------
'2) Initialize variables for each possible value returned:
'--------------------------------------------------------
iArch1 = 0 : iArch2 = 0 : iArch3 = 0 : iArch4 = 0 : iArch5 = 0 : iArchU = 0
iSpack1 = 0 : iSpack2 = 0 : iSpackU = 0 : iUnreach = 0
iOS1 = 0 : iOS2 = 0 : iOS3 = 0 : iOS4 = 0 : iOS5 = 0 : iOSU = 0
iModel1 = 0 : iModel2 = 0 : iModel3 = 0 : iModel4 = 0 : iModel5 = 0 : iModel6 = 0 : iModel6 = 0 : iModel7 = 0 : iModel8 = 0 : iModel9 = 0 : iModel10 = 0 : iModelU = 0
iPSP1 = 0 : iPSP2 = 0 : iPSP3 = 0 : iPSP4 = 0 : iPSP5 = 0 : iPSP6 = 0 :  iPSP7 = 0 : iPSP8 = 0 :  iPSP9 = 0 : iPSPU = 0
 
'--------------------------------------------------------
'3) Create an object for the Text File:
'--------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
'--------------------------------------------------------
'4) Determine what checkboxes have been checked:
'--------------------------------------------------------
 
If ServicePack.Checked=True or Architecture.Checked=True or OperatingSystem.Checked=True or Model.Checked=True or PSP.Checked=True then 
 
'--------------------------------------------------------
'5) If the text file read does have entries, then define a variable "List" to hold its contents:
'--------------------------------------------------------
 
        If ComputerListFile.Value <> "" Then
 
                If objFSO.FileExists(ComputerListFile.Value) = True Then
                        Set List = objFSO.OpenTextFile(ComputerListFile.Value, ForReading)
 
'--------------------------------------------------------
'6) Define a variable "strTotalHTML" to build a table:
'--------------------------------------------------------
             
  			strTotalHTML = "<table width='100%' border=1 bgcolor='white'>" &_
                        "<th style='background:black; color:white;'><b>System</b></th>"
 
'--------------------------------------------------------
'7) If a checkbox is checked, build a table for it:
'--------------------------------------------------------
 
'Service Pack:
                  If ServicePack.Checked=True then
				strSPHTML = "<table width='100%' border=1>" &_
				"<th colspan='2' style='background:black; color:white;'><b>Service Pack Totals:</b>"
				SPacks.InnerHTML = strSPHTML
				strTotalHTML = strTotalHTML&"<th style='background:black; color:white;'><b>Service Pack</b>"
			End If
'Architecture:
                  If Architecture.Checked=True then
				strArchHTML = "<table width='100%' border=1>" &_
				"<th colspan='2' style='background:black; color:white;'><b>Architecture Totals:</b>"
				Archs.InnerHTML = strArchHTML
				strTotalHTML = strTotalHTML&"<th style='background:black; color:white;'><b>Architecture</b>"
			End If
'OperatingSystem:
                  If OperatingSystem.Checked=True then
				strOSHTML = "<table width='100%' border=1>" &_
				"<th colspan='2' style='background:black; color:white;'><b>Operating System Totals:</b>"
				OS.InnerHTML = strOSHTML
				strTotalHTML = strTotalHTML&"<th style='background:black; color:white;'><b>Operating System</b>"
			End If
'Model:
                  If Model.Checked=True then
				strModelHTML = "<table width='100%' border=1>" &_
				"<th colspan='2' style='background:black; color:white;'><b>Model Audit Totals:</b>"
				ModelDetail.InnerHTML = strModelHTML
				strTotalHTML = strTotalHTML&"<th style='background:black; color:white;'><b>Model</b>"
			End If
'PSP:
                  If PSP.Checked=True then
				strPSPHTML = "<table width='100%' border=1>" &_
				"<th colspan='2' style='background:black; color:white;'><b>PSP Version Totals:</b>"
				PSPDetail.InnerHTML = strPSPHTML
				strTotalHTML = strTotalHTML&"<th style='background:black; color:white;'><b>PSP</b>"
			End If
 
			Totals.InnerHTML = strTotalHTML&"</tr>"
 
                        Do Until List.AtEndOfStream
				strComputer = List.ReadLine
				strTotalHTML = strTotalHTML &"<tr><td width='15%' border=1>" & strComputer &"</td>"
			'The following line will enable the script to continue to run if there is a problem.
			On Error Resume Next
 
                                If Ping(strComputer) Then
					Set objWMIService = GetObject("winmgmts:" _
	                                        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
 
'--------------------------------------------------------
'8) If a checkbox is checked, then create a query for that selection:
'--------------------------------------------------------
 
'Service Pack:
                              If ServicePack.Checked = True then
	                                        Set colSpack = objWMIService.ExecQuery _
	                                        ("Select * from Win32_OperatingSystem")
 
	                                        For Each objSpack in colSpack
	                                                strSpack = objSpack.ServicePackMajorVersion
	                                        Next
 
	                                	If strSpack = "Service Pack 1" then
							iSpack1=iSpack1+1
							Elseif strSpack = "2" then
							iSpack2=iSpack2+1
							Else
							iSpackU=iSpackU+1
							End If
	                                        strTotalHTML = strTotalHTML &"<td bgcolor='green'><font color='white'>" &strSpack & "</font><br>"
 
					End If
 
'Architecture:
					If Architecture.Checked=True then
	                			Set colProcessors = objWMIService.ExecQuery _
	                			("Select * From Win32_Processor")
 
	                                        For Each objProcessor in colProcessors
							If objProcessor.Architecture = 0 Then
								strArch = "x86"
							Elseif objProcessor.Architecture = 1 Then
								strArch = "MIPS"
							Elseif objProcessor.Architecture = 2 Then
								strArch = "Alpha"
							Elseif objProcessor.Architecture = 3 Then
								strArch = "PowerPC"
							Elseif objProcessor.Architecture = 9 Then
								strArch = "x64"
							Else
								strArch = "Arch Unknown"
							End If
	                                        Next
 
						If strArch = "x86" then
							iArch1=iArch1+1
							Elseif strArch = "MIPS" then
							iArch2=iArch2+1
							Elseif strArch = "Alpha" then
							iArch3=iArch3+1
							Elseif strArch = "PowerPC" then
							iArch4=iArch4+1
							Elseif strArch = "x64" then
							iArch5=iArch5+1
							Else
							iArchU=iArchU+1
						End If
 
 						strTotalHTML =  strTotalHTML &"<td bgcolor='green'><font color='white'>" &strArch & "</font><br>"
 
					End If
 
'OperatingSystem:
					If OperatingSystem.Checked=True then
						Set colOS = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
 
                					For Each objOS in colOS
                        				strOS = objOS.Caption
 							Next
 
	                                	If strOS = "Microsoft(R) Windows(R) Server 2003, Standard Edition" then
							iOS1=iOS1+1
							Elseif strOS = "Microsoft(R) Windows(R) Server 2003, Enterprise Edition" then
							iOS2=iOS2+1
							Elseif strOS = "Microsoft(R) Windows(R) Server 2003 Standard x64 Edition" then
							iOS3=iOS3+1
							Elseif strOS = "Microsoft Windows 2000 Server" then
							iOS4=iOS4+1
							Elseif strOS = "Microsoft Windows XP Professional" then
							iOS5=iOS5+1
							Else
							iOSU=iOSU+1
							End If
 
 
 						strTotalHTML =  strTotalHTML &"<td bgcolor='green'><font color='white'>" &strOS & "</font><br>"
 
					End If
 
'Model:
					If Model.Checked=True then
						Set colModels = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
 
                					For Each objPlatform in colModels
                        				strModel = objPlatform.Model
 							Next
 
	                                	If strModel = "VMware Virtual Platform" then
							iModel1=iModel1+1
							Elseif strModel = "ProLiant ML370" then
							iModel2=iModel2+1
							Elseif strModel = "ProLiant DL385 G1" then
							iModel3=iModel3+1
							Elseif strModel = "ProLiant DL380 G2" then
							iModel4=iModel4+1
							Elseif strModel = "ProLiant DL380 G3" then
							iModel5=iModel5+1
							Elseif strModel = "ProLiant DL380 G4" then
							iModel6=iModel6+1
							Elseif strModel = "ProLiant DL380 G5" then
							iModel7=iModel7+1
							Elseif strModel = "PowerEdge 2650" then
							iModel8=iModel8+1
							Elseif strModel = "PowerEdge 2850" then
							iModel9=iModel9+1
							Elseif strModel = "OptiPlex 755" then
							iModel10=iModel10+1
							Else
							iModelU=iModelU+1
							End If
 
 
 						strTotalHTML =  strTotalHTML &"<td bgcolor='green'><font color='white'>" &strModel & "</font><br>"
 
					End If
 
'PSP:
					If PSP.Checked=True then
 
					Set objectFSO = CreateObject("Scripting.FileSystemObject")
					strFileToFind = "C:\Windows\System32\cpqmgmt\agentver.dll"
 
                'If Err.Number = 0 Then On Error GoTo 0
 
                'Get PSP Version (Search for the PSP file, replacing the c:\ with c$):
                '-----------------------------------------------------
                strUNCFile = "\\" & strComputer & "\" & Replace(strFileToFind, ":", "$")
                If objectFSO.FileExists(strUNCFile) = True Then strPSP = objectFSO.GetFileVersion(strUNCFile) Else strPSP = "File Not there"
 
 
	                                	If strPSP = "6.40.0.0" then
							iPSP1=iPSP1+1
							Elseif strPSP = "7.30.0.0" then
							iPSP2=iPSP2+1
							Elseif strPSP = "7.40.0.0" then
							iPSP3=iPSP3+1
							Elseif strPSP = "7.51.0.0" then
							iPSP4=iPSP4+1
							Elseif strPSP = "7.70.0.0" then
							iPSP5=iPSP5+1
							Elseif strPSP = "7.90.0.0" then
							iPSP6=iPSP6+1
							Elseif strPSP = "7.91.0.0" then
							iPSP7=iPSP7+1
							Elseif strPSP = "8.0.0.0" then
							iPSP8=iPSP8+1
							Elseif strPSP = "8.15.0.0" then
							iPSP9=iPSP9+1
							Else
							iPSPU=iPSPU+1
							End If
 
 
 						strTotalHTML =  strTotalHTML &"<td bgcolor='green'><font color='white'>" &strPSP & "</font><br>"
 
					End If
 
 
 
                                Else
 
'--------------------------------------------------------
'9) Factor in unreachable machines:
'--------------------------------------------------------
 
					iUnreach = iUnreach + 1
					If ServicePack.Checked = True then
						strTotalHTML = strTotalHTML &"<td bgcolor='red'><font color='white'>Unreachable</font></td>"
					End If
					If Architecture.Checked=True then
						strTotalHTML = strTotalHTML &"<td bgcolor='red'><font color='white'>Unreachable</font></td>"
					End If
					If OperatingSystem.Checked=True then
						strTotalHTML = strTotalHTML &"<td bgcolor='red'><font color='white'>Unreachable</font></td>"
					End If
					If Model.Checked=True then
						strTotalHTML = strTotalHTML &"<td bgcolor='red'><font color='white'>Unreachable</font></td>"
					End If
					If PSP.Checked=True then
						strTotalHTML = strTotalHTML &"<td bgcolor='red'><font color='white'>Unreachable</font></td>"
					End If
				End If
                        Loop
 
			If ServicePack.Checked = True then
				strSPHTML =  strSPHTML &"<tr style='background:#A9F5A9;'><td width='80%' border=1>Service Pack 1"&_
	                 	"</td><td style='background:#72AB72; color:white;'>" &iSpack1 & "<br>"&_
				"<tr style='background:#A9F5A9;'><td width='80%' border=1>Service Pack 2"&_
	                 	"</td><td style='background:#72AB72; color:white;'>" &iSpack2 & "<br>"&_
				"<tr style='background:#A9F5A9;'><td width='80%' border=1>Unknown"&_
	                 	"</td><td style='background:#72AB72; color:white;'>" &iSpackU & "<br>"&_
				"<tr style='background:#A9F5A9;'><td width='80%' border=1>Unreachable"&_
	                 	"</td><td style='background:#72AB72; color:white;'>" &iUnreach & "<br></table>"
				SPacks.InnerHTML = strSPHTML
			End If
			If Architecture.Checked=True then
				strArchHTML =  strArchHTML &"<tr style='background:#F2F5A9;'><td width='80%' border=1>x86"&_
				"</td><td style='background:#957F53; color:white;'>" &iArch1 & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>MIPS"&_
				"</td><td style='background:#957F53; color:white;'>" &iArch2 & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>Alpha"&_
				"</td><td style='background:#957F53; color:white;'>" &iArch3 & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>PowerPC"&_
				"</td><td style='background:#957F53; color:white;'>" &iArch4 & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>x64"&_
				"</td><td style='background:#957F53; color:white;'>" &iArch5 & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>Unknown"&_
				"</td><td style='background:#957F53; color:white;'>" &iArchU & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>Unreachable"&_
				"</td><td style='background:#957F53; color:white;'>" &iUnreach & "<br></table>"
				Archs.InnerHTML = strArchHTML
			End If
			If OperatingSystem.Checked=True then
				strOSHTML =  strOSHTML &"<tr style='background:#E7D6BF;'><td width='80%' border=1>Microsoft(R) Windows(R) Server 2003, Standard Edition"&_
				"</td><td style='background:#B40404; color:white;'>" &iOS1 & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Microsoft(R) Windows(R) Server 2003, Enterprise Edition"&_
				"</td><td style='background:#B40404; color:white;'>" &iOS2 & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Microsoft(R) Windows(R) Server 2003 Standard x64 Edition"&_
				"</td><td style='background:#B40404; color:white;'>" &iOS3 & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Microsoft Windows 2000 Server"&_
				"</td><td style='background:#B40404; color:white;'>" &iOS4 & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Microsoft Windows XP Professional"&_
				"</td><td style='background:#B40404; color:white;'>" &iOS5 & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Unknown"&_
				"</td><td style='background:#B40404; color:white;'>" &iOSU & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Unreachable"&_
				"</td><td style='background:#B40404; color:white;'>" &iUnreach & "<br></table>"
				OS.InnerHTML = strOSHTML
			End If
			If Model.Checked=True then
				strModelHTML =  strModelHTML &"<tr style='background:#AFC7C7;'><td width='80%' border=1>VMware Virtual Platform"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel1 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant ML370"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel2 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant DL385 G1"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel3 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant DL380 G2"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel4 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant DL380 G3"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel5 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant DL380 G4"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel6 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant DL380 G5"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel7 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>PowerEdge 2650"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel8 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>PowerEdge 2850"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel9 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>OptiPlex 755 "&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel10 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>Unknown"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModelU & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>Unreachable"&_
				"</td><td style='background:#5E767E; color:white;'>" &iUnreach & "<br></table>"
				ModelDetail.InnerHTML = strModelHTML
			End If
			If PSP.Checked=True then
				strPSPHTML =  strPSPHTML &"<tr style='background:#FDD017;'><td width='80%' border=1>6.40.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP1 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.30.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP2 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.40.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP3 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.51.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP4 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.70.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP5 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.90.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP6 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.91.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP7 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>8.0.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP8 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>8.15.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP9 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>Unknown"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSPU & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>Unreachable"&_
				"</td><td style='background:#C58917; color:white;'>" &iUnreach & "<br></table>"
				PSPDetail.InnerHTML = strPSPHTML
			End If
 
			Totals.InnerHTML = strTotalHTML
			List.Close      
                Else
                        MsgBox "File does not exist: " & ComputerListFile.Value
                End If
		run_button.disabled = False
		ComputerListFile.disabled = False
        Else
                MsgBox "Please specify a file name."
        End If
        run_button.disabled = False
        ComputerListFile.disabled = False
Else
	MsgBox "You must pick at least 1 option."
End If
run_button.disabled = False
ComputerListFile.disabled = False
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>
 
<body>
<input type="button" value="Run Script" name="run_button" onClick="GetInfo">
<input type="file" name="ComputerListFile" value="servers.txt">&nbsp;&nbsp;Select a text file that lists computernames ...<br><br>
<u>Inventory this information:</u><br><br>
<div class="checks" style="float:left;">
<input type="checkbox" name="ServicePack">Service Pack
<input type="checkbox" name="Architecture">Architecture
<input type="checkbox" name="OperatingSystem">Operating System
<input type="checkbox" name="Model">Model
<input type="checkbox" name="PSP">PSP</div><br><br><br>
 
<!-- -------------------------------------------------------- -->
<!-- 7) Create the SPANs to hold the data: -->
<!-- -------------------------------------------------------- -->
<u>Summary Information:</u><br><br>
<span id = "Spacks"></span><br>
<span id = "Archs"></span><br>
<span id = "OS"></span><br>
<span id = "ModelDetail"></span><br>
<span id = "PSPDetail"></span><br>
<u>Systems Information:</u><br><br>
<span id = "Totals"></span><br><br>
</body>
</html>

Open in new window

0
Comment
Question by:Simon336697
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 65

Expert Comment

by:RobSampson
ID: 24371956
G'day again Simon....give this a try.

Regards,

Rob.
<head>
<title>KPMG: Multicomputer System Information</title>
<HTA:APPLICATION 
     APPLICATIONNAME="KPMG: Multicomputer System Information"
     SCROLL="yes"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="normal"
>
<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, th {
border-collapse:collapse;
border-style:solid;
}
 
td { border-width: 1px; }
 
.checks { background: #2554C7; 
color:white;
border-collapse:collapse;
border:solid 1px black;
cellpadding:1px;
padding:3px;
width:100%;
}
 
</style>
 
 
</head>
<script language="vbscript">
Sub Window_onLoad
	intWidth = 800
	intHeight = 580
	Me.ResizeTo intWidth, intHeight
	Me.MoveTo ((Screen.Width / 2) - (intWidth / 2)),((Screen.Height / 2) - (intHeight / 2))
	save_button.disabled = True
End Sub
 
Sub GetInfo
save_button.disabled = False
run_button.disabled = True
ComputerListFile.disabled = True
Const ForReading = 1
Const ForWriting = 2
 
'--------------------------------------------------------
'1) Set the SPAN IDs to nothing:
'--------------------------------------------------------
SPacks.InnerHTML = "" : Archs.InnerHTML = "" :  OS.InnerHTML ="" :  ModelDetail.InnerHTML ="" : PSPDetail.InnerHTML ="" : Totals.InnerHTML = ""
 
'--------------------------------------------------------
'2) Initialize variables for each possible value returned:
'--------------------------------------------------------
iArch1 = 0 : iArch2 = 0 : iArch3 = 0 : iArch4 = 0 : iArch5 = 0 : iArchU = 0
iSpack1 = 0 : iSpack2 = 0 : iSpackU = 0 : iUnreach = 0
iOS1 = 0 : iOS2 = 0 : iOS3 = 0 : iOS4 = 0 : iOS5 = 0 : iOSU = 0
iModel1 = 0 : iModel2 = 0 : iModel3 = 0 : iModel4 = 0 : iModel5 = 0 : iModel6 = 0 : iModel6 = 0 : iModel7 = 0 : iModel8 = 0 : iModel9 = 0 : iModel10 = 0 : iModelU = 0
iPSP1 = 0 : iPSP2 = 0 : iPSP3 = 0 : iPSP4 = 0 : iPSP5 = 0 : iPSP6 = 0 :  iPSP7 = 0 : iPSP8 = 0 :  iPSP9 = 0 : iPSPU = 0
 
'--------------------------------------------------------
'3) Create an object for the Text File:
'--------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
'--------------------------------------------------------
'4) Determine what checkboxes have been checked:
'--------------------------------------------------------
 
If ServicePack.Checked=True or Architecture.Checked=True or OperatingSystem.Checked=True or Model.Checked=True or PSP.Checked=True then 
 
'--------------------------------------------------------
'5) If the text file read does have entries, then define a variable "List" to hold its contents:
'--------------------------------------------------------
 
        If ComputerListFile.Value <> "" Then
 
                If objFSO.FileExists(ComputerListFile.Value) = True Then
                        Set List = objFSO.OpenTextFile(ComputerListFile.Value, ForReading)
 
'--------------------------------------------------------
'6) Define a variable "strTotalHTML" to build a table:
'--------------------------------------------------------
             
  			strTotalHTML = "<table width='100%' border=1 bgcolor='white'>" &_
                        "<th style='background:black; color:white;'><b>System</b></th>"
 
'--------------------------------------------------------
'7) If a checkbox is checked, build a table for it:
'--------------------------------------------------------
 
'Service Pack:
                  If ServicePack.Checked=True then
				strSPHTML = "<table width='100%' border=1>" &_
				"<th colspan='2' style='background:black; color:white;'><b>Service Pack Totals:</b>"
				SPacks.InnerHTML = strSPHTML
				strTotalHTML = strTotalHTML&"<th style='background:black; color:white;'><b>Service Pack</b>"
			End If
'Architecture:
                  If Architecture.Checked=True then
				strArchHTML = "<table width='100%' border=1>" &_
				"<th colspan='2' style='background:black; color:white;'><b>Architecture Totals:</b>"
				Archs.InnerHTML = strArchHTML
				strTotalHTML = strTotalHTML&"<th style='background:black; color:white;'><b>Architecture</b>"
			End If
'OperatingSystem:
                  If OperatingSystem.Checked=True then
				strOSHTML = "<table width='100%' border=1>" &_
				"<th colspan='2' style='background:black; color:white;'><b>Operating System Totals:</b>"
				OS.InnerHTML = strOSHTML
				strTotalHTML = strTotalHTML&"<th style='background:black; color:white;'><b>Operating System</b>"
			End If
'Model:
                  If Model.Checked=True then
				strModelHTML = "<table width='100%' border=1>" &_
				"<th colspan='2' style='background:black; color:white;'><b>Model Audit Totals:</b>"
				ModelDetail.InnerHTML = strModelHTML
				strTotalHTML = strTotalHTML&"<th style='background:black; color:white;'><b>Model</b>"
			End If
'PSP:
                  If PSP.Checked=True then
				strPSPHTML = "<table width='100%' border=1>" &_
				"<th colspan='2' style='background:black; color:white;'><b>PSP Version Totals:</b>"
				PSPDetail.InnerHTML = strPSPHTML
				strTotalHTML = strTotalHTML&"<th style='background:black; color:white;'><b>PSP</b>"
			End If
 
			Totals.InnerHTML = strTotalHTML&"</tr>"
 
                        Do Until List.AtEndOfStream
				strComputer = List.ReadLine
				strTotalHTML = strTotalHTML &"<tr><td width='15%' border=1>" & strComputer &"</td>"
			'The following line will enable the script to continue to run if there is a problem.
			On Error Resume Next
 
                                If Ping(strComputer) Then
					Set objWMIService = GetObject("winmgmts:" _
	                                        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
 
'--------------------------------------------------------
'8) If a checkbox is checked, then create a query for that selection:
'--------------------------------------------------------
 
'Service Pack:
                              If ServicePack.Checked = True then
	                                        Set colSpack = objWMIService.ExecQuery _
	                                        ("Select * from Win32_OperatingSystem")
 
	                                        For Each objSpack in colSpack
	                                                strSpack = objSpack.ServicePackMajorVersion
	                                        Next
 
	                                	If strSpack = "Service Pack 1" then
							iSpack1=iSpack1+1
							Elseif strSpack = "2" then
							iSpack2=iSpack2+1
							Else
							iSpackU=iSpackU+1
							End If
	                                        strTotalHTML = strTotalHTML &"<td bgcolor='green'><font color='white'>" &strSpack & "</font><br>"
 
					End If
 
'Architecture:
					If Architecture.Checked=True then
	                			Set colProcessors = objWMIService.ExecQuery _
	                			("Select * From Win32_Processor")
 
	                                        For Each objProcessor in colProcessors
							If objProcessor.Architecture = 0 Then
								strArch = "x86"
							Elseif objProcessor.Architecture = 1 Then
								strArch = "MIPS"
							Elseif objProcessor.Architecture = 2 Then
								strArch = "Alpha"
							Elseif objProcessor.Architecture = 3 Then
								strArch = "PowerPC"
							Elseif objProcessor.Architecture = 9 Then
								strArch = "x64"
							Else
								strArch = "Arch Unknown"
							End If
	                                        Next
 
						If strArch = "x86" then
							iArch1=iArch1+1
							Elseif strArch = "MIPS" then
							iArch2=iArch2+1
							Elseif strArch = "Alpha" then
							iArch3=iArch3+1
							Elseif strArch = "PowerPC" then
							iArch4=iArch4+1
							Elseif strArch = "x64" then
							iArch5=iArch5+1
							Else
							iArchU=iArchU+1
						End If
 
 						strTotalHTML =  strTotalHTML &"<td bgcolor='green'><font color='white'>" &strArch & "</font><br>"
 
					End If
 
'OperatingSystem:
					If OperatingSystem.Checked=True then
						Set colOS = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
 
                					For Each objOS in colOS
                        				strOS = objOS.Caption
 							Next
 
	                                	If strOS = "Microsoft(R) Windows(R) Server 2003, Standard Edition" then
							iOS1=iOS1+1
							Elseif strOS = "Microsoft(R) Windows(R) Server 2003, Enterprise Edition" then
							iOS2=iOS2+1
							Elseif strOS = "Microsoft(R) Windows(R) Server 2003 Standard x64 Edition" then
							iOS3=iOS3+1
							Elseif strOS = "Microsoft Windows 2000 Server" then
							iOS4=iOS4+1
							Elseif strOS = "Microsoft Windows XP Professional" then
							iOS5=iOS5+1
							Else
							iOSU=iOSU+1
							End If
 
 
 						strTotalHTML =  strTotalHTML &"<td bgcolor='green'><font color='white'>" &strOS & "</font><br>"
 
					End If
 
'Model:
					If Model.Checked=True then
						Set colModels = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
 
                					For Each objPlatform in colModels
                        				strModel = objPlatform.Model
 							Next
 
	                                	If strModel = "VMware Virtual Platform" then
							iModel1=iModel1+1
							Elseif strModel = "ProLiant ML370" then
							iModel2=iModel2+1
							Elseif strModel = "ProLiant DL385 G1" then
							iModel3=iModel3+1
							Elseif strModel = "ProLiant DL380 G2" then
							iModel4=iModel4+1
							Elseif strModel = "ProLiant DL380 G3" then
							iModel5=iModel5+1
							Elseif strModel = "ProLiant DL380 G4" then
							iModel6=iModel6+1
							Elseif strModel = "ProLiant DL380 G5" then
							iModel7=iModel7+1
							Elseif strModel = "PowerEdge 2650" then
							iModel8=iModel8+1
							Elseif strModel = "PowerEdge 2850" then
							iModel9=iModel9+1
							Elseif strModel = "OptiPlex 755" then
							iModel10=iModel10+1
							Else
							iModelU=iModelU+1
							End If
 
 
 						strTotalHTML =  strTotalHTML &"<td bgcolor='green'><font color='white'>" &strModel & "</font><br>"
 
					End If
 
'PSP:
					If PSP.Checked=True then
 
					Set objectFSO = CreateObject("Scripting.FileSystemObject")
					strFileToFind = "C:\Windows\System32\cpqmgmt\agentver.dll"
 
                'If Err.Number = 0 Then On Error GoTo 0
 
                'Get PSP Version (Search for the PSP file, replacing the c:\ with c$):
                '-----------------------------------------------------
                strUNCFile = "\\" & strComputer & "\" & Replace(strFileToFind, ":", "$")
                If objectFSO.FileExists(strUNCFile) = True Then strPSP = objectFSO.GetFileVersion(strUNCFile) Else strPSP = "File Not there"
 
 
	                                	If strPSP = "6.40.0.0" then
							iPSP1=iPSP1+1
							Elseif strPSP = "7.30.0.0" then
							iPSP2=iPSP2+1
							Elseif strPSP = "7.40.0.0" then
							iPSP3=iPSP3+1
							Elseif strPSP = "7.51.0.0" then
							iPSP4=iPSP4+1
							Elseif strPSP = "7.70.0.0" then
							iPSP5=iPSP5+1
							Elseif strPSP = "7.90.0.0" then
							iPSP6=iPSP6+1
							Elseif strPSP = "7.91.0.0" then
							iPSP7=iPSP7+1
							Elseif strPSP = "8.0.0.0" then
							iPSP8=iPSP8+1
							Elseif strPSP = "8.15.0.0" then
							iPSP9=iPSP9+1
							Else
							iPSPU=iPSPU+1
							End If
 
 
 						strTotalHTML =  strTotalHTML &"<td bgcolor='green'><font color='white'>" &strPSP & "</font><br>"
 
					End If
 
 
 
                                Else
 
'--------------------------------------------------------
'9) Factor in unreachable machines:
'--------------------------------------------------------
 
					iUnreach = iUnreach + 1
					If ServicePack.Checked = True then
						strTotalHTML = strTotalHTML &"<td bgcolor='red'><font color='white'>Unreachable</font></td>"
					End If
					If Architecture.Checked=True then
						strTotalHTML = strTotalHTML &"<td bgcolor='red'><font color='white'>Unreachable</font></td>"
					End If
					If OperatingSystem.Checked=True then
						strTotalHTML = strTotalHTML &"<td bgcolor='red'><font color='white'>Unreachable</font></td>"
					End If
					If Model.Checked=True then
						strTotalHTML = strTotalHTML &"<td bgcolor='red'><font color='white'>Unreachable</font></td>"
					End If
					If PSP.Checked=True then
						strTotalHTML = strTotalHTML &"<td bgcolor='red'><font color='white'>Unreachable</font></td>"
					End If
				End If
                        Loop
 
			If ServicePack.Checked = True then
				strSPHTML =  strSPHTML &"<tr style='background:#A9F5A9;'><td width='80%' border=1>Service Pack 1"&_
	                 	"</td><td style='background:#72AB72; color:white;'>" &iSpack1 & "<br>"&_
				"<tr style='background:#A9F5A9;'><td width='80%' border=1>Service Pack 2"&_
	                 	"</td><td style='background:#72AB72; color:white;'>" &iSpack2 & "<br>"&_
				"<tr style='background:#A9F5A9;'><td width='80%' border=1>Unknown"&_
	                 	"</td><td style='background:#72AB72; color:white;'>" &iSpackU & "<br>"&_
				"<tr style='background:#A9F5A9;'><td width='80%' border=1>Unreachable"&_
	                 	"</td><td style='background:#72AB72; color:white;'>" &iUnreach & "<br></table>"
				SPacks.InnerHTML = strSPHTML
			End If
			If Architecture.Checked=True then
				strArchHTML =  strArchHTML &"<tr style='background:#F2F5A9;'><td width='80%' border=1>x86"&_
				"</td><td style='background:#957F53; color:white;'>" &iArch1 & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>MIPS"&_
				"</td><td style='background:#957F53; color:white;'>" &iArch2 & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>Alpha"&_
				"</td><td style='background:#957F53; color:white;'>" &iArch3 & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>PowerPC"&_
				"</td><td style='background:#957F53; color:white;'>" &iArch4 & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>x64"&_
				"</td><td style='background:#957F53; color:white;'>" &iArch5 & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>Unknown"&_
				"</td><td style='background:#957F53; color:white;'>" &iArchU & "<br>"&_
				"<tr style='background:#F2F5A9;'><td width='80%' border=1>Unreachable"&_
				"</td><td style='background:#957F53; color:white;'>" &iUnreach & "<br></table>"
				Archs.InnerHTML = strArchHTML
			End If
			If OperatingSystem.Checked=True then
				strOSHTML =  strOSHTML &"<tr style='background:#E7D6BF;'><td width='80%' border=1>Microsoft(R) Windows(R) Server 2003, Standard Edition"&_
				"</td><td style='background:#B40404; color:white;'>" &iOS1 & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Microsoft(R) Windows(R) Server 2003, Enterprise Edition"&_
				"</td><td style='background:#B40404; color:white;'>" &iOS2 & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Microsoft(R) Windows(R) Server 2003 Standard x64 Edition"&_
				"</td><td style='background:#B40404; color:white;'>" &iOS3 & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Microsoft Windows 2000 Server"&_
				"</td><td style='background:#B40404; color:white;'>" &iOS4 & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Microsoft Windows XP Professional"&_
				"</td><td style='background:#B40404; color:white;'>" &iOS5 & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Unknown"&_
				"</td><td style='background:#B40404; color:white;'>" &iOSU & "<br>"&_
				"<tr style='background:#E7D6BF;'><td width='80%' border=1>Unreachable"&_
				"</td><td style='background:#B40404; color:white;'>" &iUnreach & "<br></table>"
				OS.InnerHTML = strOSHTML
			End If
			If Model.Checked=True then
				strModelHTML =  strModelHTML &"<tr style='background:#AFC7C7;'><td width='80%' border=1>VMware Virtual Platform"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel1 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant ML370"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel2 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant DL385 G1"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel3 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant DL380 G2"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel4 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant DL380 G3"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel5 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant DL380 G4"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel6 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>ProLiant DL380 G5"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel7 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>PowerEdge 2650"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel8 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>PowerEdge 2850"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel9 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>OptiPlex 755 "&_
				"</td><td style='background:#5E767E; color:white;'>" &iModel10 & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>Unknown"&_
				"</td><td style='background:#5E767E; color:white;'>" &iModelU & "<br>"&_
				"<tr style='background:#AFC7C7;'><td width='80%' border=1>Unreachable"&_
				"</td><td style='background:#5E767E; color:white;'>" &iUnreach & "<br></table>"
				ModelDetail.InnerHTML = strModelHTML
			End If
			If PSP.Checked=True then
				strPSPHTML =  strPSPHTML &"<tr style='background:#FDD017;'><td width='80%' border=1>6.40.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP1 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.30.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP2 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.40.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP3 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.51.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP4 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.70.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP5 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.90.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP6 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>7.91.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP7 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>8.0.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP8 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>8.15.0.0"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSP9 & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>Unknown"&_
				"</td><td style='background:#C58917; color:white;'>" &iPSPU & "<br>"&_
				"<tr style='background:#FDD017;'><td width='80%' border=1>Unreachable"&_
				"</td><td style='background:#C58917; color:white;'>" &iUnreach & "<br></table>"
				PSPDetail.InnerHTML = strPSPHTML
			End If
 
			Totals.InnerHTML = strTotalHTML
			List.Close      
                Else
                        MsgBox "File does not exist: " & ComputerListFile.Value
                End If
		run_button.disabled = False
		ComputerListFile.disabled = False
        Else
                MsgBox "Please specify a file name."
        End If
        run_button.disabled = False
        ComputerListFile.disabled = False
Else
	MsgBox "You must pick at least 1 option."
End If
run_button.disabled = False
ComputerListFile.disabled = False
End Sub
 
Sub SaveInfo
	Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
	
	objDialog.FileName = strDefaultFileName
	objDialog.FileType = "HTML Document"
	
	intReturn = objDialog.OpenFileSaveDlg
	
	If intReturn Then
		strOutputFile = objDialog.FileName
		If strOutputFile <> "" Then
			If Left(strOutputFile,1) = "." Then
				strOutputFile = Right(strOutputFile,Len(strOutputFile) - 1)
			End If
			
			If Right(strOutputFile,5) <> ".html" Then
				strOutputFile = strOutputFile & ".html"
			End If
		    
		    Set objFSO = CreateObject("Scripting.FileSystemObject")
		    Set objFile = objFSO.CreateTextFile (strOutputFile, True)
			objFile.WriteLine "<HTML><BODY>"
			objFile.WriteLine "Summary Information:<BR><BR>"
			objFile.WriteLine spacks.InnerHTML
			objFile.WriteLine archs.InnerHTML
			objFile.WriteLine OS.InnerHTML
			objFile.WriteLine ModelDetail.InnerHTML
			objFile.WriteLine PSPDetail.InnerHTML
			objFile.WriteLine "<BR><BR>Systems Information:<BR><BR>"
			objFile.WriteLine Totals.InnerHTML
			objFile.WriteLine "</BODY></HTML>"
			objFile.Close
		    
			Set objFile = Nothing
			Set objFSO = Nothing
		End If
	End If
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>
 
<body>
<input type="button" value="Run Script" name="run_button" onClick="GetInfo">
<input type="file" name="ComputerListFile" value="servers.txt">&nbsp;&nbsp;Select a text file that lists computernames ...<br>
<input type="button" value="Save Info" name="save_button" onClick="SaveInfo"><br><br>
<u>Inventory this information:</u><br><br>
<div class="checks" style="float:left;">
<input type="checkbox" name="ServicePack">Service Pack
<input type="checkbox" name="Architecture">Architecture
<input type="checkbox" name="OperatingSystem">Operating System
<input type="checkbox" name="Model">Model
<input type="checkbox" name="PSP">PSP</div><br><br><br>
 
<!-- -------------------------------------------------------- -->
<!-- 7) Create the SPANs to hold the data: -->
<!-- -------------------------------------------------------- -->
<u>Summary Information:</u><br><br>
<span id = "Spacks"></span><br>
<span id = "Archs"></span><br>
<span id = "OS"></span><br>
<span id = "ModelDetail"></span><br>
<span id = "PSPDetail"></span><br>
<u>Systems Information:</u><br><br>
<span id = "Totals"></span><br><br>
</body>
</html>

Open in new window

0
 
LVL 1

Author Comment

by:Simon336697
ID: 24380759
Rob that works flawlessly Rob cannot thank you enough.
Rob, if you want me to post another q on this I dont mind.
But if I wanted to instead, save the results to a csv file, would there be much difference in the sub?
You are brilliant (wont say that again :>))
0
 
LVL 65

Accepted Solution

by:
RobSampson earned 2000 total points
ID: 24380781
Yeah, CSV is quite different...it would involve stripping all of the HTML code from the InnerHTML text, and replacing the cell separators (the <TD>s) with commas.

However, the html file can be changed to xls and Excel picks up the HTML code fine.

Does that help, or do you need CSV?

Regards,

Rob.
0
 
LVL 1

Author Comment

by:Simon336697
ID: 24438169
You are the best Rob.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 24438211
Thanks.  Thanks for the grade too.

Glad to help.

Rob.
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

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

Well hello again!  Glad to see you've made it this far without giving up.  In this, the fourth installment of my popular series, I'm going to cover functions and subroutines, what they are, and why they are useful.  Just in case you stumbled onto th…
Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
This course is ideal for IT System Administrators working with VMware vSphere and its associated products in their company infrastructure. This course teaches you how to install and maintain this virtualization technology to store data, prevent vuln…
We’ve all felt that sense of false security before—locking down external access to a database or component and feeling like we’ve done all we need to do to secure company data. But that feeling is fleeting. Attacks these days can happen in many w…
Suggested Courses

610 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