Strange HTA behaviour on newly restored WXP SP1

Paul Randall Guest · 12 Mar 2009

Hi,
I've bought a set of system restore disks for a Compaq desktop and done the
restore to a new hard drive. It installs WXP SP1 plus all the typical
crapware. After going through the initial bootup and setup stuff, I wanted
to get a list of installed software so I could methodically get rid of the
junk I didn't want. I downloaded the HTA at
http://www.microsoft.com/technet/scr.../cscsw044.mspx
and attempted to run it. All it does is display the HTA's source in an HTA
window. If I build a simple HTA, it displays only the <body> text just
fine. I've attached my two HTAs and appended them below.

I'm hoping someone can give me some insights to why this fresh new system
displays the tiny HTA correctly but displays the source file for the
ListInstalledSoftware HTA. In both cases I can see that mshta.exe is
started in windows task manager.

Since I will be deleting a lot of the junk currently installed, I don't
really want to upgrade IE to the latest version 6, to avoid confusion while
uninstalling the trial Office 2003 and the other junk.

Tiny HTA:
<html>
<head>
<title>Simple HTA</title>

<HTA:APPLICATION
ID="Simple"
APPLICATIONNAME="Simple HTA"
SCROLL="Yes"
ICON="ssi.ico"
SINGLEINSTANCE="no"
WINDOWSTATE="fixed"

>

</head>
<body>
This is a simple HTA (HTML Application)
</body>
</html>

ListInstalledSoftware HTA:

<html>
<head>
<title>Simple Software Inventory</title>

<HTA:APPLICATION
ID="objSSI"
APPLICATIONNAME="Simple Software Inventory"
SCROLL="Yes"
ICON="ssi.ico"
SINGLEINSTANCE="no"
WINDOWSTATE="fixed"

>

</head>

<SCRIPT Language="VBScript">

Public strUser

Sub Window_onLoad

self.Focus()
self.ResizeTo 550,550
self.MoveTo 200,200

DataSpan.InnerHtml = "<em>Write the computer's name to the textbox you
want to audit.</em>"

End Sub

Sub GetSoftwareInventory()
On Error Resume Next

Const HKLM = &H80000002
strComputer = ComputerNameBox.Value
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
strEntry1a = "DisplayName"
strEntry1b = "QuietDisplayName"
strEntry2 = "InstallDate"
strEntry3 = "VersionMajor"
strEntry4 = "VersionMinor"
strEntry5 = "EstimatedSize"

Set objReg = GetObject("winmgmts://" & strComputer & _
"/root/default:StdRegProv")

If Err.Number <> 0 Then Call ErrorCheck(Err.Number, Err.Description)

objReg.EnumKey HKLM, strKey, arrSubkeys

For Each strSubkey In arrSubkeys

strIsReal = 0

intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
strEntry1a, strValue1)
If intRet1 <> 0 Then

objReg.GetStringValue HKLM, strKey & strSubkey, _
strEntry1b, strValue1
End If
If strValue1 <> "" Then
strIsReal = 1
strSoftat = strSoftat & "<b>" & strValue1 & "</b>" & " - "

End If
objReg.GetStringValue HKLM, strKey & strSubkey, _
strEntry2, strValue2
If strValue2 <> "" Then
strSoftat = strSoftat & "<font color=""#0000A0"">" & strValue2 &
"</font> - "

End If
objReg.GetDWORDValue HKLM, strKey & strSubkey, _
strEntry3, intValue3
objReg.GetDWORDValue HKLM, strKey & strSubkey, _
strEntry4, intValue4
If intValue3 <> "" Then
strSoftat = strSoftat & "<font color=""#008040"">" & intValue3 & "."
& intValue4 & "</font> - "

End If
objReg.GetDWORDValue HKLM, strKey & strSubkey, _
strEntry5, intValue5
If intValue5 <> "" Then
strSoftat = strSoftat & "<font color=""#808000"">" &
Round(intValue5/1024, 3) & " megabytes </font><br>"

Else
if strIsReal = 1 then strSoftat = strSoftat & "<br>"

End If
Next

DataSpan.InnerHtml = strSoftat

End Sub

Sub ErrorCheck(sErrorCode, sErrorDescription)

Select Case sErrorCode

Case 462

MsgBox "Target computer is not found!" & vbCrLf & VbCrLf _
& "Check that target computer is online and" & vbCrLf _
& "it's local firewall is disabled.",64,"Computer not found"

Err.Clear

Case Else

MsgBox "Error occurred." & vbCrLf & VbCrLf _
& "Error code is:" & sErrorCode & vbCrLf _
& "Error description is: " & sErrorDescription,64,"Mystical
error occurred"

Err.Clear

End Select

End Sub

</SCRIPT>

<body bgcolor="#D4D0C8" topmargin="0" leftmargin="0"
style="font-family: tahoma; font-size: 12; border-left: 1px solid
rgb(255,255,255); border-right: 1px solid rgb(128,128,128); border-top: 1px
solid rgb(255,255,255); border-bottom: 1px solid rgb(128,128,128)">
<div align="center"><center>

<table border="0" cellpadding="2" width="100%" style="font-family: tahoma;
font-size: 12">
<tr>
<td width="100%"><p style="font-family: Tahoma; font-size: 18;
font-weight: bold"><strong>Simple
Software Inventory<br>
</strong></p>
<p style="font-family: Tahoma; font-size: 18; font-weight:
normal"><small><small>Computername:</small></small></p>
<p>  <input type="text" name="ComputerNameBox" size="24"
style="border: 1px solid"> <input
id="runbutton" class="button" Value="Audit" type="button"
name="GetSoftwareInventoryRun"
onClick="GetSoftwareInventory" style="font-family: Tahoma; font-size:
12; border: 1px solid"></p>

<div align="left">

<span id="DataSpan"></span>

</body>
</html>

Thanks for any help you can give me.

Joe Fawcett Guest · 13 Mar 2009

No idea but you could try try right-clicking > Run With and find mshta.exe.
I think it's in the system folder but you may need to search first.

--

Joe Fawcett (MVP - XML)
http://joe.fawcett.name
"Paul Randall" <paulr90@xxxxxx> wrote in message
news:eNOd0u2oJHA.1292@xxxxxx

> Hi,
> I've bought a set of system restore disks for a Compaq desktop and done
> the restore to a new hard drive. It installs WXP SP1 plus all the typical
> crapware. After going through the initial bootup and setup stuff, I
> wanted to get a list of installed software so I could methodically get rid
> of the junk I didn't want. I downloaded the HTA at
> http://www.microsoft.com/technet/scr.../cscsw044.mspx
> and attempted to run it. All it does is display the HTA's source in an
> HTA window. If I build a simple HTA, it displays only the <body> text
> just fine. I've attached my two HTAs and appended them below.
>
> I'm hoping someone can give me some insights to why this fresh new system
> displays the tiny HTA correctly but displays the source file for the
> ListInstalledSoftware HTA. In both cases I can see that mshta.exe is
> started in windows task manager.
>
> Since I will be deleting a lot of the junk currently installed, I don't
> really want to upgrade IE to the latest version 6, to avoid confusion
> while uninstalling the trial Office 2003 and the other junk.
>
> Tiny HTA:
> <html>
> <head>
> <title>Simple HTA</title>
>
> <HTA:APPLICATION
> ID="Simple"
> APPLICATIONNAME="Simple HTA"
> SCROLL="Yes"
> ICON="ssi.ico"
> SINGLEINSTANCE="no"
> WINDOWSTATE="fixed"

>>

> </head>
> <body>
> This is a simple HTA (HTML Application)
> </body>
> </html>
>
> ListInstalledSoftware HTA:
> 
> <html>
> <head>
> <title>Simple Software Inventory</title>
>
> <HTA:APPLICATION
> ID="objSSI"
> APPLICATIONNAME="Simple Software Inventory"
> SCROLL="Yes"
> ICON="ssi.ico"
> SINGLEINSTANCE="no"
> WINDOWSTATE="fixed"

>>

> </head>
>
> <SCRIPT Language="VBScript">
>
> Public strUser
>
> Sub Window_onLoad
>
> self.Focus()
> self.ResizeTo 550,550
> self.MoveTo 200,200
>
> DataSpan.InnerHtml = "<em>Write the computer's name to the textbox you
> want to audit.</em>"
>
> End Sub
>
>
> Sub GetSoftwareInventory()
> On Error Resume Next
>
> Const HKLM = &H80000002
> strComputer = ComputerNameBox.Value
> strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
> strEntry1a = "DisplayName"
> strEntry1b = "QuietDisplayName"
> strEntry2 = "InstallDate"
> strEntry3 = "VersionMajor"
> strEntry4 = "VersionMinor"
> strEntry5 = "EstimatedSize"
>
>
>
> Set objReg = GetObject("winmgmts://" & strComputer & _
> "/root/default:StdRegProv")
>
> If Err.Number <> 0 Then Call ErrorCheck(Err.Number, Err.Description)
>
>
> objReg.EnumKey HKLM, strKey, arrSubkeys
>
> For Each strSubkey In arrSubkeys
>
> strIsReal = 0
>
> intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
> strEntry1a, strValue1)
> If intRet1 <> 0 Then
>
> objReg.GetStringValue HKLM, strKey & strSubkey, _
> strEntry1b, strValue1
> End If
> If strValue1 <> "" Then
> strIsReal = 1
> strSoftat = strSoftat & "<b>" & strValue1 & "</b>" & " - "
>
> End If
> objReg.GetStringValue HKLM, strKey & strSubkey, _
> strEntry2, strValue2
> If strValue2 <> "" Then
> strSoftat = strSoftat & "<font color=""#0000A0"">" & strValue2 &
> "</font> - "
>
> End If
> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
> strEntry3, intValue3
> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
> strEntry4, intValue4
> If intValue3 <> "" Then
> strSoftat = strSoftat & "<font color=""#008040"">" & intValue3 &
> "." & intValue4 & "</font> - "
>
> End If
> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
> strEntry5, intValue5
> If intValue5 <> "" Then
> strSoftat = strSoftat & "<font color=""#808000"">" &
> Round(intValue5/1024, 3) & " megabytes </font><br>"
>
> Else
> if strIsReal = 1 then strSoftat = strSoftat & "<br>"
>
> End If
> Next
>
> DataSpan.InnerHtml = strSoftat
>
> End Sub
>
>
> Sub ErrorCheck(sErrorCode, sErrorDescription)
>
> Select Case sErrorCode
>
> Case 462
>
> MsgBox "Target computer is not found!" & vbCrLf & VbCrLf _
> & "Check that target computer is online and" & vbCrLf _
> & "it's local firewall is disabled.",64,"Computer not found"
>
> Err.Clear
>
> Case Else
>
> MsgBox "Error occurred." & vbCrLf & VbCrLf _
> & "Error code is:" & sErrorCode & vbCrLf _
> & "Error description is: " & sErrorDescription,64,"Mystical
> error occurred"
>
> Err.Clear
>
> End Select
>
> End Sub
>
>
> </SCRIPT>
>
>
> <body bgcolor="#D4D0C8" topmargin="0" leftmargin="0"
> style="font-family: tahoma; font-size: 12; border-left: 1px solid
> rgb(255,255,255); border-right: 1px solid rgb(128,128,128); border-top:
> 1px solid rgb(255,255,255); border-bottom: 1px solid rgb(128,128,128)">
> <div align="center"><center>
>
> <table border="0" cellpadding="2" width="100%" style="font-family: tahoma;
> font-size: 12">
> <tr>
> <td width="100%"><p style="font-family: Tahoma; font-size: 18;
> font-weight: bold"><strong>Simple
> Software Inventory<br>
> </strong></p>
> <p style="font-family: Tahoma; font-size: 18; font-weight:
> normal"><small><small>Computername:</small></small></p>
> <p>  <input type="text" name="ComputerNameBox" size="24"
> style="border: 1px solid"> <input
> id="runbutton" class="button" Value="Audit" type="button"
> name="GetSoftwareInventoryRun"
> onClick="GetSoftwareInventory" style="font-family: Tahoma; font-size:
> 12; border: 1px solid"></p>
>
> <div align="left">
>
> <span id="DataSpan"></span>
>
> </body>
> </html>
>
> Thanks for any help you can give me.
>
>

Stefan Kanthak Guest · 13 Mar 2009

"Paul Randall" <paulr90@xxxxxx> wrote:

> Hi,
> I've bought a set of system restore disks for a Compaq desktop and done the
> restore to a new hard drive. It installs WXP SP1 plus all the typical
> crapware.

OUCH!
Do yourself a favor and dont use those CDs to setup any system for productive
use. Just extract the I386 directory from the installed system and then
build your own SP3 slipstream CD with it. Use that for a clean install!

Stefan

Paul Randall Guest · 13 Mar 2009

"Stefan Kanthak" <postmaster@[127.0.0.1]> wrote in message
news:u6SWoZ$oJHA.5100@xxxxxx

> "Paul Randall" <paulr90@xxxxxx> wrote:
>

>> Hi,
>> I've bought a set of system restore disks for a Compaq desktop and done
>> the
>> restore to a new hard drive. It installs WXP SP1 plus all the typical
>> crapware.

>
> OUCH!
> Do yourself a favor and dont use those CDs to setup any system for
> productive
> use. Just extract the I386 directory from the installed system and then
> build your own SP3 slipstream CD with it. Use that for a clean install!

I'm doing this for a friend. In general, I think your idea is a good one.
I haven't messed with slipstreaming for a few years. The last one I did
was to slipstream a Dell WXP installation disk. The original needed no
product ID during installation, and being a bare XP disk, installed no
crapware. I believe the slipsteam-upgraded version also need no product ID
during installation on a Dell computer, but both the original and
slipstreamed versions did ask for product ID when attempting to install on
other computers.

Actually, I believe Compaq/HP computers like this one use WinPE, Python &
other scripts and batch files to direct what happens during initial startup.
Those restore CDs restore the hard drive to that 'pre first boot' condition.
Perhaps I should look at what is actually going on during first boot, and
modify the WinPE/script/batch files to skip installing the crapware I don't
want.

-Paul Randall

Paul Randall Guest · 13 Mar 2009

Hopefully I will have time to experiment with pieces of the long script to
see what exactly triggers mshta's switching from interpreting the HTA to
listing its contents.

-Paul Randall

"Joe Fawcett" <joefawcett@xxxxxx> wrote in message
news:eHwl9b7oJHA.1172@xxxxxx

> No idea but you could try try right-clicking > Run With and find
> mshta.exe. I think it's in the system folder but you may need to search
> first.
>
> --
>
> Joe Fawcett (MVP - XML)
> http://joe.fawcett.name
> "Paul Randall" <paulr90@xxxxxx> wrote in message
> news:eNOd0u2oJHA.1292@xxxxxx

>> Hi,
>> I've bought a set of system restore disks for a Compaq desktop and done
>> the restore to a new hard drive. It installs WXP SP1 plus all the
>> typical crapware. After going through the initial bootup and setup
>> stuff, I wanted to get a list of installed software so I could
>> methodically get rid of the junk I didn't want. I downloaded the HTA at
>> http://www.microsoft.com/technet/scr.../cscsw044.mspx
>> and attempted to run it. All it does is display the HTA's source in an
>> HTA window. If I build a simple HTA, it displays only the <body> text
>> just fine. I've attached my two HTAs and appended them below.
>>
>> I'm hoping someone can give me some insights to why this fresh new system
>> displays the tiny HTA correctly but displays the source file for the
>> ListInstalledSoftware HTA. In both cases I can see that mshta.exe is
>> started in windows task manager.
>>
>> Since I will be deleting a lot of the junk currently installed, I don't
>> really want to upgrade IE to the latest version 6, to avoid confusion
>> while uninstalling the trial Office 2003 and the other junk.
>>
>> Tiny HTA:
>> <html>
>> <head>
>> <title>Simple HTA</title>
>>
>> <HTA:APPLICATION
>> ID="Simple"
>> APPLICATIONNAME="Simple HTA"
>> SCROLL="Yes"
>> ICON="ssi.ico"
>> SINGLEINSTANCE="no"
>> WINDOWSTATE="fixed"

>>>

>> </head>
>> <body>
>> This is a simple HTA (HTML Application)
>> </body>
>> </html>
>>
>> ListInstalledSoftware HTA:
>> 
>> <html>
>> <head>
>> <title>Simple Software Inventory</title>
>>
>> <HTA:APPLICATION
>> ID="objSSI"
>> APPLICATIONNAME="Simple Software Inventory"
>> SCROLL="Yes"
>> ICON="ssi.ico"
>> SINGLEINSTANCE="no"
>> WINDOWSTATE="fixed"

>>>

>> </head>
>>
>> <SCRIPT Language="VBScript">
>>
>> Public strUser
>>
>> Sub Window_onLoad
>>
>> self.Focus()
>> self.ResizeTo 550,550
>> self.MoveTo 200,200
>>
>> DataSpan.InnerHtml = "<em>Write the computer's name to the textbox
>> you want to audit.</em>"
>>
>> End Sub
>>
>>
>> Sub GetSoftwareInventory()
>> On Error Resume Next
>>
>> Const HKLM = &H80000002
>> strComputer = ComputerNameBox.Value
>> strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
>> strEntry1a = "DisplayName"
>> strEntry1b = "QuietDisplayName"
>> strEntry2 = "InstallDate"
>> strEntry3 = "VersionMajor"
>> strEntry4 = "VersionMinor"
>> strEntry5 = "EstimatedSize"
>>
>>
>>
>> Set objReg = GetObject("winmgmts://" & strComputer & _
>> "/root/default:StdRegProv")
>>
>> If Err.Number <> 0 Then Call ErrorCheck(Err.Number, Err.Description)
>>
>>
>> objReg.EnumKey HKLM, strKey, arrSubkeys
>>
>> For Each strSubkey In arrSubkeys
>>
>> strIsReal = 0
>>
>> intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
>> strEntry1a, strValue1)
>> If intRet1 <> 0 Then
>>
>> objReg.GetStringValue HKLM, strKey & strSubkey, _
>> strEntry1b, strValue1
>> End If
>> If strValue1 <> "" Then
>> strIsReal = 1
>> strSoftat = strSoftat & "<b>" & strValue1 & "</b>" & " - "
>>
>> End If
>> objReg.GetStringValue HKLM, strKey & strSubkey, _
>> strEntry2, strValue2
>> If strValue2 <> "" Then
>> strSoftat = strSoftat & "<font color=""#0000A0"">" & strValue2 &
>> "</font> - "
>>
>> End If
>> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
>> strEntry3, intValue3
>> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
>> strEntry4, intValue4
>> If intValue3 <> "" Then
>> strSoftat = strSoftat & "<font color=""#008040"">" & intValue3 &
>> "." & intValue4 & "</font> - "
>>
>> End If
>> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
>> strEntry5, intValue5
>> If intValue5 <> "" Then
>> strSoftat = strSoftat & "<font color=""#808000"">" &
>> Round(intValue5/1024, 3) & " megabytes </font><br>"
>>
>> Else
>> if strIsReal = 1 then strSoftat = strSoftat & "<br>"
>>
>> End If
>> Next
>>
>> DataSpan.InnerHtml = strSoftat
>>
>> End Sub
>>
>>
>> Sub ErrorCheck(sErrorCode, sErrorDescription)
>>
>> Select Case sErrorCode
>>
>> Case 462
>>
>> MsgBox "Target computer is not found!" & vbCrLf & VbCrLf _
>> & "Check that target computer is online and" & vbCrLf _
>> & "it's local firewall is disabled.",64,"Computer not found"
>>
>> Err.Clear
>>
>> Case Else
>>
>> MsgBox "Error occurred." & vbCrLf & VbCrLf _
>> & "Error code is:" & sErrorCode & vbCrLf _
>> & "Error description is: " & sErrorDescription,64,"Mystical
>> error occurred"
>>
>> Err.Clear
>>
>> End Select
>>
>> End Sub
>>
>>
>> </SCRIPT>
>>
>>
>> <body bgcolor="#D4D0C8" topmargin="0" leftmargin="0"
>> style="font-family: tahoma; font-size: 12; border-left: 1px solid
>> rgb(255,255,255); border-right: 1px solid rgb(128,128,128); border-top:
>> 1px solid rgb(255,255,255); border-bottom: 1px solid rgb(128,128,128)">
>> <div align="center"><center>
>>
>> <table border="0" cellpadding="2" width="100%" style="font-family:
>> tahoma; font-size: 12">
>> <tr>
>> <td width="100%"><p style="font-family: Tahoma; font-size: 18;
>> font-weight: bold"><strong>Simple
>> Software Inventory<br>
>> </strong></p>
>> <p style="font-family: Tahoma; font-size: 18; font-weight:
>> normal"><small><small>Computername:</small></small></p>
>> <p>  <input type="text" name="ComputerNameBox" size="24"
>> style="border: 1px solid"> <input
>> id="runbutton" class="button" Value="Audit" type="button"
>> name="GetSoftwareInventoryRun"
>> onClick="GetSoftwareInventory" style="font-family: Tahoma; font-size:
>> 12; border: 1px solid"></p>
>>
>> <div align="left">
>>
>> <span id="DataSpan"></span>
>>
>> </body>
>> </html>
>>
>> Thanks for any help you can give me.
>>
>>

>
>
>

Alex K. Angelopoulos Guest · 16 Mar 2009

You're probably waaay past this now, but I was going to hazard a guess that
the initial comment triggers parsing the content as text to be displayed in
an HTA rather than as instructions.

"Paul Randall" <paulr90@xxxxxx> wrote in message
news:eNOd0u2oJHA.1292@xxxxxx

> Hi,
> I've bought a set of system restore disks for a Compaq desktop and done
> the restore to a new hard drive. It installs WXP SP1 plus all the typical
> crapware. After going through the initial bootup and setup stuff, I
> wanted to get a list of installed software so I could methodically get rid
> of the junk I didn't want. I downloaded the HTA at
> http://www.microsoft.com/technet/scr.../cscsw044.mspx
> and attempted to run it. All it does is display the HTA's source in an
> HTA window. If I build a simple HTA, it displays only the <body> text
> just fine. I've attached my two HTAs and appended them below.
>
> I'm hoping someone can give me some insights to why this fresh new system
> displays the tiny HTA correctly but displays the source file for the
> ListInstalledSoftware HTA. In both cases I can see that mshta.exe is
> started in windows task manager.
>
> Since I will be deleting a lot of the junk currently installed, I don't
> really want to upgrade IE to the latest version 6, to avoid confusion
> while uninstalling the trial Office 2003 and the other junk.
>
> Tiny HTA:
> <html>
> <head>
> <title>Simple HTA</title>
>
> <HTA:APPLICATION
> ID="Simple"
> APPLICATIONNAME="Simple HTA"
> SCROLL="Yes"
> ICON="ssi.ico"
> SINGLEINSTANCE="no"
> WINDOWSTATE="fixed"

>>

> </head>
> <body>
> This is a simple HTA (HTML Application)
> </body>
> </html>
>
> ListInstalledSoftware HTA:
> 
> <html>
> <head>
> <title>Simple Software Inventory</title>
>
> <HTA:APPLICATION
> ID="objSSI"
> APPLICATIONNAME="Simple Software Inventory"
> SCROLL="Yes"
> ICON="ssi.ico"
> SINGLEINSTANCE="no"
> WINDOWSTATE="fixed"

>>

> </head>
>
> <SCRIPT Language="VBScript">
>
> Public strUser
>
> Sub Window_onLoad
>
> self.Focus()
> self.ResizeTo 550,550
> self.MoveTo 200,200
>
> DataSpan.InnerHtml = "<em>Write the computer's name to the textbox you
> want to audit.</em>"
>
> End Sub
>
>
> Sub GetSoftwareInventory()
> On Error Resume Next
>
> Const HKLM = &H80000002
> strComputer = ComputerNameBox.Value
> strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
> strEntry1a = "DisplayName"
> strEntry1b = "QuietDisplayName"
> strEntry2 = "InstallDate"
> strEntry3 = "VersionMajor"
> strEntry4 = "VersionMinor"
> strEntry5 = "EstimatedSize"
>
>
>
> Set objReg = GetObject("winmgmts://" & strComputer & _
> "/root/default:StdRegProv")
>
> If Err.Number <> 0 Then Call ErrorCheck(Err.Number, Err.Description)
>
>
> objReg.EnumKey HKLM, strKey, arrSubkeys
>
> For Each strSubkey In arrSubkeys
>
> strIsReal = 0
>
> intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
> strEntry1a, strValue1)
> If intRet1 <> 0 Then
>
> objReg.GetStringValue HKLM, strKey & strSubkey, _
> strEntry1b, strValue1
> End If
> If strValue1 <> "" Then
> strIsReal = 1
> strSoftat = strSoftat & "<b>" & strValue1 & "</b>" & " - "
>
> End If
> objReg.GetStringValue HKLM, strKey & strSubkey, _
> strEntry2, strValue2
> If strValue2 <> "" Then
> strSoftat = strSoftat & "<font color=""#0000A0"">" & strValue2 &
> "</font> - "
>
> End If
> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
> strEntry3, intValue3
> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
> strEntry4, intValue4
> If intValue3 <> "" Then
> strSoftat = strSoftat & "<font color=""#008040"">" & intValue3 &
> "." & intValue4 & "</font> - "
>
> End If
> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
> strEntry5, intValue5
> If intValue5 <> "" Then
> strSoftat = strSoftat & "<font color=""#808000"">" &
> Round(intValue5/1024, 3) & " megabytes </font><br>"
>
> Else
> if strIsReal = 1 then strSoftat = strSoftat & "<br>"
>
> End If
> Next
>
> DataSpan.InnerHtml = strSoftat
>
> End Sub
>
>
> Sub ErrorCheck(sErrorCode, sErrorDescription)
>
> Select Case sErrorCode
>
> Case 462
>
> MsgBox "Target computer is not found!" & vbCrLf & VbCrLf _
> & "Check that target computer is online and" & vbCrLf _
> & "it's local firewall is disabled.",64,"Computer not found"
>
> Err.Clear
>
> Case Else
>
> MsgBox "Error occurred." & vbCrLf & VbCrLf _
> & "Error code is:" & sErrorCode & vbCrLf _
> & "Error description is: " & sErrorDescription,64,"Mystical
> error occurred"
>
> Err.Clear
>
> End Select
>
> End Sub
>
>
> </SCRIPT>
>
>
> <body bgcolor="#D4D0C8" topmargin="0" leftmargin="0"
> style="font-family: tahoma; font-size: 12; border-left: 1px solid
> rgb(255,255,255); border-right: 1px solid rgb(128,128,128); border-top:
> 1px solid rgb(255,255,255); border-bottom: 1px solid rgb(128,128,128)">
> <div align="center"><center>
>
> <table border="0" cellpadding="2" width="100%" style="font-family: tahoma;
> font-size: 12">
> <tr>
> <td width="100%"><p style="font-family: Tahoma; font-size: 18;
> font-weight: bold"><strong>Simple
> Software Inventory<br>
> </strong></p>
> <p style="font-family: Tahoma; font-size: 18; font-weight:
> normal"><small><small>Computername:</small></small></p>
> <p>  <input type="text" name="ComputerNameBox" size="24"
> style="border: 1px solid"> <input
> id="runbutton" class="button" Value="Audit" type="button"
> name="GetSoftwareInventoryRun"
> onClick="GetSoftwareInventory" style="font-family: Tahoma; font-size:
> 12; border: 1px solid"></p>
>
> <div align="left">
>
> <span id="DataSpan"></span>
>
> </body>
> </html>
>
> Thanks for any help you can give me.
>
>

Paul Randall Guest · 16 Mar 2009

Yes, I played with deleting parts of the initial comment, and certain
deletions did cause the the HTA to be interpreted properly. I was not able
to identify any particular part of the comment that caused the problem.
After uninstalling the junkware and upgrading to WXP SP3, the initial
comment is not a problem.

-Paul Randall

"Alex K. Angelopoulos" <aka(at)mvps.org> wrote in message
news:%23ZWyN1npJHA.4108@xxxxxx

> You're probably waaay past this now, but I was going to hazard a guess
> that the initial comment triggers parsing the content as text to be
> displayed in an HTA rather than as instructions.
>
> "Paul Randall" <paulr90@xxxxxx> wrote in message
> news:eNOd0u2oJHA.1292@xxxxxx

>> Hi,
>> I've bought a set of system restore disks for a Compaq desktop and done
>> the restore to a new hard drive. It installs WXP SP1 plus all the
>> typical crapware. After going through the initial bootup and setup
>> stuff, I wanted to get a list of installed software so I could
>> methodically get rid of the junk I didn't want. I downloaded the HTA at
>> http://www.microsoft.com/technet/scr.../cscsw044.mspx
>> and attempted to run it. All it does is display the HTA's source in an
>> HTA window. If I build a simple HTA, it displays only the <body> text
>> just fine. I've attached my two HTAs and appended them below.
>>
>> I'm hoping someone can give me some insights to why this fresh new system
>> displays the tiny HTA correctly but displays the source file for the
>> ListInstalledSoftware HTA. In both cases I can see that mshta.exe is
>> started in windows task manager.
>>
>> Since I will be deleting a lot of the junk currently installed, I don't
>> really want to upgrade IE to the latest version 6, to avoid confusion
>> while uninstalling the trial Office 2003 and the other junk.
>>
>> Tiny HTA:
>> <html>
>> <head>
>> <title>Simple HTA</title>
>>
>> <HTA:APPLICATION
>> ID="Simple"
>> APPLICATIONNAME="Simple HTA"
>> SCROLL="Yes"
>> ICON="ssi.ico"
>> SINGLEINSTANCE="no"
>> WINDOWSTATE="fixed"

>>>

>> </head>
>> <body>
>> This is a simple HTA (HTML Application)
>> </body>
>> </html>
>>
>> ListInstalledSoftware HTA:
>> 
>> <html>
>> <head>
>> <title>Simple Software Inventory</title>
>>
>> <HTA:APPLICATION
>> ID="objSSI"
>> APPLICATIONNAME="Simple Software Inventory"
>> SCROLL="Yes"
>> ICON="ssi.ico"
>> SINGLEINSTANCE="no"
>> WINDOWSTATE="fixed"

>>>

>> </head>
>>
>> <SCRIPT Language="VBScript">
>>
>> Public strUser
>>
>> Sub Window_onLoad
>>
>> self.Focus()
>> self.ResizeTo 550,550
>> self.MoveTo 200,200
>>
>> DataSpan.InnerHtml = "<em>Write the computer's name to the textbox
>> you want to audit.</em>"
>>
>> End Sub
>>
>>
>> Sub GetSoftwareInventory()
>> On Error Resume Next
>>
>> Const HKLM = &H80000002
>> strComputer = ComputerNameBox.Value
>> strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
>> strEntry1a = "DisplayName"
>> strEntry1b = "QuietDisplayName"
>> strEntry2 = "InstallDate"
>> strEntry3 = "VersionMajor"
>> strEntry4 = "VersionMinor"
>> strEntry5 = "EstimatedSize"
>>
>>
>>
>> Set objReg = GetObject("winmgmts://" & strComputer & _
>> "/root/default:StdRegProv")
>>
>> If Err.Number <> 0 Then Call ErrorCheck(Err.Number, Err.Description)
>>
>>
>> objReg.EnumKey HKLM, strKey, arrSubkeys
>>
>> For Each strSubkey In arrSubkeys
>>
>> strIsReal = 0
>>
>> intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
>> strEntry1a, strValue1)
>> If intRet1 <> 0 Then
>>
>> objReg.GetStringValue HKLM, strKey & strSubkey, _
>> strEntry1b, strValue1
>> End If
>> If strValue1 <> "" Then
>> strIsReal = 1
>> strSoftat = strSoftat & "<b>" & strValue1 & "</b>" & " - "
>>
>> End If
>> objReg.GetStringValue HKLM, strKey & strSubkey, _
>> strEntry2, strValue2
>> If strValue2 <> "" Then
>> strSoftat = strSoftat & "<font color=""#0000A0"">" & strValue2 &
>> "</font> - "
>>
>> End If
>> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
>> strEntry3, intValue3
>> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
>> strEntry4, intValue4
>> If intValue3 <> "" Then
>> strSoftat = strSoftat & "<font color=""#008040"">" & intValue3 &
>> "." & intValue4 & "</font> - "
>>
>> End If
>> objReg.GetDWORDValue HKLM, strKey & strSubkey, _
>> strEntry5, intValue5
>> If intValue5 <> "" Then
>> strSoftat = strSoftat & "<font color=""#808000"">" &
>> Round(intValue5/1024, 3) & " megabytes </font><br>"
>>
>> Else
>> if strIsReal = 1 then strSoftat = strSoftat & "<br>"
>>
>> End If
>> Next
>>
>> DataSpan.InnerHtml = strSoftat
>>
>> End Sub
>>
>>
>> Sub ErrorCheck(sErrorCode, sErrorDescription)
>>
>> Select Case sErrorCode
>>
>> Case 462
>>
>> MsgBox "Target computer is not found!" & vbCrLf & VbCrLf _
>> & "Check that target computer is online and" & vbCrLf _
>> & "it's local firewall is disabled.",64,"Computer not found"
>>
>> Err.Clear
>>
>> Case Else
>>
>> MsgBox "Error occurred." & vbCrLf & VbCrLf _
>> & "Error code is:" & sErrorCode & vbCrLf _
>> & "Error description is: " & sErrorDescription,64,"Mystical
>> error occurred"
>>
>> Err.Clear
>>
>> End Select
>>
>> End Sub
>>
>>
>> </SCRIPT>
>>
>>
>> <body bgcolor="#D4D0C8" topmargin="0" leftmargin="0"
>> style="font-family: tahoma; font-size: 12; border-left: 1px solid
>> rgb(255,255,255); border-right: 1px solid rgb(128,128,128); border-top:
>> 1px solid rgb(255,255,255); border-bottom: 1px solid rgb(128,128,128)">
>> <div align="center"><center>
>>
>> <table border="0" cellpadding="2" width="100%" style="font-family:
>> tahoma; font-size: 12">
>> <tr>
>> <td width="100%"><p style="font-family: Tahoma; font-size: 18;
>> font-weight: bold"><strong>Simple
>> Software Inventory<br>
>> </strong></p>
>> <p style="font-family: Tahoma; font-size: 18; font-weight:
>> normal"><small><small>Computername:</small></small></p>
>> <p>  <input type="text" name="ComputerNameBox" size="24"
>> style="border: 1px solid"> <input
>> id="runbutton" class="button" Value="Audit" type="button"
>> name="GetSoftwareInventoryRun"
>> onClick="GetSoftwareInventory" style="font-family: Tahoma; font-size:
>> 12; border: 1px solid"></p>
>>
>> <div align="left">
>>
>> <span id="DataSpan"></span>
>>
>> </body>
>> </html>
>>
>> Thanks for any help you can give me.
>>
>>

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Get-Process strange behaviour	Karl Snooks	PowerShell	4	30 Nov 2008
Strange behaviour!	Mhaxx	Vista account administration	1	09 Oct 2008
Strange IMAP behaviour	Gingko	Vista mail	0	29 Jan 2008
newly restored files-where are they???	JDR	Vista file management	0	05 Jan 2008
Strange behaviour when using IE7 on Vista	Blue Arrow	Vista security	5	08 Jul 2007

Strange HTA behaviour on newly restored WXP SP1

Re: Strange HTA behaviour on newly restored WXP SP1

Re: Strange HTA behaviour on newly restored WXP SP1

Re: Strange HTA behaviour on newly restored WXP SP1

Re: Strange HTA behaviour on newly restored WXP SP1

Re: Strange HTA behaviour on newly restored WXP SP1

Re: Strange HTA behaviour on newly restored WXP SP1

Posting Permissions