rafael901, on 27 September 2011 - 11:10 AM, said:
Thanks
I've not used this HTA before, but I know I had to make some VBScript changes in mine to work with WinPE 3.0. I'm not sure what would need to be changed in this one.
Posted 28 September 2011 - 09:12 AM
rafael901, on 27 September 2011 - 11:10 AM, said:
Posted 29 September 2011 - 09:22 AM
Posted 29 September 2011 - 10:41 AM
Posted 30 September 2011 - 08:28 AM
Posted 03 October 2011 - 08:07 PM
Posted 04 October 2011 - 08:27 AM
Posted 04 October 2011 - 09:27 AM
Posted 04 October 2011 - 10:34 AM
Tripredacus, on 04 October 2011 - 08:27 AM, said:
<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 10">
<link rel=File-List href="hallo_file/filelist.xml">
<link rel=Edit-Time-Data href="hallo_file/editdata.mso">
<link rel=OLE-Object-Data href="hallo_file/oledata.mso">
<!--[if gte mso 9]><xml>
<o:DocumentProperties>
<o:Author>jaclaz</o:Author>
<o:LastAuthor>jaclaz</o:LastAuthor>
<o:Created>2011-10-04T15:57:36Z</o:Created>
<o:LastSaved>2011-10-04T15:58:28Z</o:LastSaved>
<o:Version>10.2625</o:Version>
</o:DocumentProperties>
<o:OfficeDocumentSettings>
<o:DownloadComponents/>
<o:LocationOfComponents HRef="file:///E:\"/>
</o:OfficeDocumentSettings>
</xml><![endif]-->
<style>
<!--table
{mso-displayed-decimal-separator:"\,";
mso-displayed-thousand-separator:"\.";}
@page
{margin:.98in .79in .98in .79in;
mso-header-margin:.5in;
mso-footer-margin:.5in;}
tr
{mso-height-source:auto;}
col
{mso-width-source:auto;}
br
{mso-data-placement:same-cell;}
.style0
{mso-number-format:General;
text-align:general;
vertical-align:bottom;
white-space:nowrap;
mso-rotate:0;
mso-background-source:auto;
mso-pattern:auto;
color:windowtext;
font-size:10.0pt;
font-weight:400;
font-style:normal;
text-decoration:none;
font-family:Arial;
mso-generic-font-family:auto;
mso-font-charset:0;
border:none;
mso-protection:locked visible;
mso-style-name:Normale;
mso-style-id:0;}
td
{mso-style-parent:style0;
padding-top:1px;
padding-right:1px;
padding-left:1px;
mso-ignore:padding;
color:windowtext;
font-size:10.0pt;
font-weight:400;
font-style:normal;
text-decoration:none;
font-family:Arial;
mso-generic-font-family:auto;
mso-font-charset:0;
mso-number-format:General;
text-align:general;
vertical-align:bottom;
border:none;
mso-background-source:auto;
mso-pattern:auto;
mso-protection:locked visible;
white-space:nowrap;
mso-rotate:0;}
-->
</style>
<!--[if gte mso 9]><xml>
<x:ExcelWorkbook>
<x:ExcelWorksheets>
<x:ExcelWorksheet>
<x:Name>Sheet1</x:Name>
<x:WorksheetOptions>
<x:Selected/>
<x:Panes>
<x:Pane>
<x:Number>3</x:Number>
<x:ActiveRow>1</x:ActiveRow>
</x:Pane>
</x:Panes>
<x:ProtectContents>False</x:ProtectContents>
<x:ProtectObjects>False</x:ProtectObjects>
<x:ProtectScenarios>False</x:ProtectScenarios>
</x:WorksheetOptions>
</x:ExcelWorksheet>
</x:ExcelWorksheets>
<x:WindowHeight>12015</x:WindowHeight>
<x:WindowWidth>21915</x:WindowWidth>
<x:WindowTopX>0</x:WindowTopX>
<x:WindowTopY>105</x:WindowTopY>
<x:ProtectStructure>False</x:ProtectStructure>
<x:ProtectWindows>False</x:ProtectWindows>
</x:ExcelWorkbook>
</xml><![endif]-->
</head>
<body link=blue vlink=purple>
<table x:str border=0 cellpadding=0 cellspacing=0 width=77 style='border-collapse:
collapse;table-layout:fixed;width:58pt'>
<col width=77 style='mso-width-source:userset;mso-width-alt:2816;width:58pt'>
<tr height=17 style='height:12.75pt'>
<td height=17 width=77 style='height:12.75pt;width:58pt'>Hello, world!</td>
</tr>
<![if supportMisalignedColumns]>
<tr height=0 style='display:none'>
<td width=77 style='width:58pt'></td>
</tr>
<![endif]>
</table>
</body>
</html>
Posted 04 October 2011 - 10:47 AM
Posted 10 October 2011 - 10:26 AM
Posted 11 October 2011 - 08:35 AM
rafael901, on 29 September 2011 - 10:41 AM, said:
Tripredacus, on 30 September 2011 - 08:28 AM, said:
rafael901, on 10 October 2011 - 10:26 AM, said:
Posted 17 July 2012 - 01:32 AM
For Each objFile in colFileList
Set colFileList = objWMIService.ExecQuery("Associators of {Win32_Directory.Name='z:\\winpe\\" & fileName & "'} Where " & "ResultClass = CIM_DataFile")
Posted 17 July 2012 - 08:29 AM
Posted 17 July 2012 - 01:01 PM
Set colFileList = objWMIService.ExecQuery("Associators of {Win32_Directory.Name='z:\\winpe\\" & fileName & "'} Where " & "ResultClass = CIM_DataFile")
Posted 18 July 2012 - 09:15 AM
Posted 25 January 2013 - 07:48 PM
Posted 25 February 2013 - 02:18 AM