Jump to content
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble

MSFN is made available via donations, subscriptions and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, register and become a site sponsor/subscriber and ads will be disabled automatically. 


  • Content Count

  • Donations

  • Joined

  • Last visited

Community Reputation

0 Neutral

About MadFly1

Profile Information

  • OS
    Windows 7 x64
  1. Hi I hope someone would be able to help me here... I would like to replace the current progress vbs code with a progress.gif image, but I have not the feintest idea how or where to start. I tried replaceing that whole code with HTAFile = (SysFolder & "\diskpart.hta") using DISM, but for some reason my boot usb, does not work, any more, and I guess I have to recreate it from start.
  2. Thank very much for that script, it should keep me busy for quite some time. In the mean time I came across this script, and with a little modification here and there (mostly styling) it is exactly what I was looking for. <html> <head> <title>Application Options</title> <HTA:Application Caption = Yes Border = Thick ShowInTaskBar = No MaximizeButton = No MinimizeButton = No > <script Language="VBScript"> Dim sTemplates, oWSHShell ' global variable sub window_onload Dim file, oAnchor ' local variable set oWSHShell = CreateObject("WScript.Shell") ' With the line below we specify which folder to scan for files sTemplates = oWSHShell.expandenvironmentstrings("D:\Shared\Applications\List") _ ' & "\AppData\Roaming\Microsoft\Templates\" with CreateObject("Scripting.FileSystemObject") for each file in .getfolder(sTemplates).Files set oAnchor = document.createElement("A") oAnchor.href = file.Path oAnchor.innerText = file.name & vbcrlf oAnchor.onclick = GetRef("Launch") list.appendChild(oAnchor) next ' files end with ' FileSystemObject end sub sub Launch with window.event .cancelBubble = true .returnvalue = false oWSHShell.run chr(34) & .srcElement.href & chr(34), 1, False end with end sub </script> </head> <script> sub DoResize 'resize window.resizeTo 600,800 screenWidth = Document.ParentWindow.Screen.AvailWidth screenHeight = Document.ParentWindow.Screen.AvailHeight posLeft = (screenWidth - 600) / 2 posTop = (screenHeight - 800) / 2 'move to centerscreen window.moveTo posLeft, posTop end sub DoResize() ' run the subroutine to position the containing window (your HTA dialog) before the body is rendered. </script> <body> <span id=list></span> </body> </html> Found it on some social Microsoft blog thing... Social Technet I really hope I am not infringing on any copyright or any forum rules by posting it here.
  3. Thank you for the replies. I kind of like the ini idea Tripredacus mentioned, however, I don't think it is what I am after. Ideally, I would like to be able to copy all the necessary exe install files of the apps that I might need to a specific folder, and have an hta file somewhere on the network, so that if I reinstalled or applied a image to a user's computer, after the imaging, I can open the hta file, and install the application nice and easy off this list. All that then needs modifying is the exe files should be replaced as new versions are available. As I said, the silent install thing is a total optional thing, would be nice, but not necessary at all, if I can just get the list generated, and clickable to open the file and run the exe, that would also be good. I found this script somewhere else, it's close to what I want. I added the radio button thing, but it does not select anything, and if the select works, then at the bottom there should be a button which says install or something. And without the browse for folder would be the best ever, if I was able to set a static folder, I tried changing "Select The Folder To Enumerate" line to D:\shared\applications\, but then it just gives an error, or statement needed or missing. <html> <Head> <Title>Application Options</Title> <HTA:Application Caption = Yes Border = Thick ShowInTaskBar = No MaximizeButton = Yes MinimizeButton = Yes> <script Language = VBScript> Sub WindowsLoad Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder (0, "Select The Folder To Enumerate :", (0)) If objFolder Is Nothing Then Wscript.Quit Else Set objFolderItem = objFolder.Self objPath = objFolderItem.Path End If Set objFso = CreateObject("Scripting.FileSystemObject") Set objFolder = objFso.GetFolder(objPath) For each objFile in objFolder.Files If objFolder.Files.Count > 0 Then Window.Document.Title = "Information For " & objPath strHtml = strHtml & "<td><Font color = Blue><input type='radio' value='filename'>" & objFile.Name & "</font></Br>" DataArea.InnerHtml = strHtml End If Next End Sub </Script> <body> <p><h3 align = center><font color='Orange'>Application Options</font></h3></p> <div></div> <input Type="Button" Value="Browse For Folder" Name="Run_Button" onClick="WindowsLoad"><p></td> <Span Id="DataArea"></Span><Div Align = "Center"> </div> </p> <input Type="Button" Value="Install"> </body> <html>
  4. Hi I am looking for an hta which can scan a certain folder for exe/msi files, list them with radio-buttons, so that you can select multiple applications to install. Then once selection is made, the script will run each selected application's exe or msi file, silently with no reboot. If this is even possible with different applications, and a mixture of exe and msi files. The silent install is optional, it does not have to be silent, some form of progress bar or something would be nice. My scripting skills are closely to non-existent, and I have been googling myself silly, and most topics that I come across is related to SCCM 2007 or MDT, and I don't want to use any of those programs. Any help with this would be highly appreciated. oooo ok, some luck... found a vbs script that scans a folder and then shows you all the files in a popup message. Set objFSO = CreateObject("Scripting.FileSystemObject") objStartFolder = "D:\Shared\Applications\Unsorted" Set objFolder = objFSO.GetFolder(objStartFolder) Wscript.Echo objFolder.Path Set colFiles = objFolder.Files For Each objFile in colFiles Wscript.Echo objFile.Name Next Wscript.Echo ShowSubfolders objFSO.GetFolder(objStartFolder) Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders Wscript.Echo Subfolder.Path Set objFolder = objFSO.GetFolder(Subfolder.Path) Set colFiles = objFolder.Files For Each objFile in colFiles Wscript.Echo objFile.Name Next Wscript.Echo ShowSubFolders Subfolder Next End Sub Now just to figure out how to get that into a hta file, with radio buttons next to each file. I guess some form of loop should do the trick.
  5. The current code in this is still the same as v7.1 except for the code changes mentioned in this thread. So the progress bar code is still incorrect, and as such, does not work for anyone. So its not your error, no one sees the progress bar. It is good enough to see the square, on some video cards/motherboards, no rectangle appears at all! Anyways, you will know when it is done because it shows you a prompt after applying the image. How would one go about replacing that whole progress sub with an animated picture "loading.gif"?
  6. excellent. I have configured for myself a virtual environment (hyper-V) where i can play with this hta thing. Works great so far, but for some reason when i try to apply the captured image to a new virtual pc, it complains that the bootmgr is missing. Is there a way that I can capture the boot partition as well, or should i create it manually? Or could I somehow implement a button or two in the diskpart options? Once I get this to actually work, i'll start playing around with adding drivers to the wim and a few other things i would like to try. but for now the capture and apply is more crucial.
  7. Hi, Thanks to everyone who contributed to this project... I only VERY recently started playing around with winPE, and came across this forum. Currently like the v7.3 the most, and was wondering if there was a way that I can use both 32bit and 64bit PE HTA at the same time? I assume the reason they are in separate folders, is because you have to run either one of them... is there perhaps a way that i can put both on a flash drive, which will be my winPE, and then either run 32bit PE or 64bit... I also assume that the 32bit PE is to deploy and capture 32bit OS, and 64bit PE is to deploy and capture 64bit OS. Would be nice to have one HTA which can deploy/capture either 32bit or 64bit, or do i completely misunderstand the whole idea behind this project?
  • Create New...