`Felix`

No problems - my pleasure, was happy to learn some new stuff myself. And you HTA version looks good BTW

Excellent Stuff - i couldn't find it so i just made my own - i notice that mine has all the same files so thats good Where did you find the reference to the URL for this? And have you found the references for the latest webcontrol updates etc?

Hi Gunsmokingman, Yes your updated script does work on XP now - thanks for your hard work and update. Just some feedback on things i notice with it; 1. If you have more than 1 sound/multimedia card installed - say a tv tuner card and a voice modem, the sound card section only picks up the last sound card in the list. 2. PCtype is correct, however because i am a pain in the bum i like to know if it is a portable, laptop, server, desktop or workstation... 3. If you have VMware installed on the computer - the network section picks up all the vmware network adaptors.. I liked what you did with v5 and have been researching WMI and VBScripting (and learning how to write some) really for the first time of the last 3 days as a result of your script to see what i could do with it and make it XP compatiable whilst waiting on your update as i know people don't always have the time to spend updating scripts etc. What i found was fantastic on what you can do with WMI and i thankyou for piquing my interest! I have made a number of changes and i hope improvements to the v5 script base you had provided to all. I have tested this version on both XP and Vista on 4 different machines including Vmware and it works wonderfully. The issues i raised above i beleive i have resolved in the updates i have made. In addition i have put in some changes that will allow anyone to just change some simple variables at the top of the script to tweak their informational requirements - specifically; Modifying the "Company Name" and "Support URL" Anyway here is my version (I will call 6.1.(date of build)) for all to have a look at and use if they wish. I am working on a further update that will also copy the OEMLogo.bmp to the %windir%\system32 folder and a command line switch to enable the notepad option to open the file on creation as i personally would not have this happen as i would be running in a completely unattended environment. '/-> Original script By Gunsmokingman '/-> modified and updated by FeLix '/-> Tested with Windows XP & Vista. '/-> Version 6.1.20080519 '/-> Option Explicit '/-----------------------------------------------------------------------> '/-> Change the variables below to reflect your Company information. Dim sURL : sURL = "http://www.mycompany.com/techsupport." Dim mCompany : mCompany = "My Company Name" '/-> End of Company Information changes '/-----------------------------------------------------------------------> '/-> Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 '/-> Dim objFolder, Ts, objFile Dim ObjWMI, objItem, colItems Dim dtmDate, dtm Dim C1, Cnt, i, objItemConfig, strIP, strIPAddr '/-> Dim Act : Set Act = CreateObject("Wscript.Shell") Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim Sys32 : Sys32 = act.ExpandEnvironmentStrings("%Windir%\System32") Dim Ini : Ini = "\oeminfo.ini" Dim strComputer : strComputer = "." Dim VBS : VBS = Act.ExpandEnvironmentStrings("%Temp%\" & Fso.GetFile(WScript.ScriptFullName).Name) '/-> Dim MB : MB = 1024 * 1024 Dim GB : GB = 1024 * 1024 * 1024 Dim Line : Line = "Line" & C1 Dim S_3 : S_3 = Space(3) Dim S_5 : S_5 = Space(5) Dim TitleL : TitleL = S_5 & Chr(171) & S_3 Dim TitleR : TitleR = S_3 & Chr(187) & S_5 Dim WmiVar : WmiVar = wbemFlagReturnImmediately + wbemFlagForwardOnly '/-> Set Ts = Fso.OpenTextFile(Sys32 & Ini, 2, True) '/-> ' WMI Section '/-> Set ObjWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", WmiVar) '/-----------------------------------------------------------------------> Dim PCType, RamTotal, sType For Each objItem In colItems RamTotal = FormatNumber(objItem.TotalPhysicalMemory/1048576) & " MB" Ts.WriteLine "[General]" Ts.WriteLine "Manufacturer = " & objItem.Manufacturer Ts.WriteLine "Model = " & objItem.Model Ts.WriteLine "SupportURL = " & sURL Ts.WriteLine "" sType = objItem.Description Next '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_SystemEnclosure", "WQL", WmiVar) '/-----------------------------------------------------------------------> For Each objItem In colItems PCType = "Computer Type Unknown" If Join(objItem.ChassisTypes, ",") = 1 Then PCType = "Virtual PC Environment" If Join(objItem.ChassisTypes, ",") = 2 Then PCType = "Unknown" If Join(objItem.ChassisTypes, ",") = 3 Then PCType = "Desktop" If Join(objItem.ChassisTypes, ",") = 4 Then PCType = "Low Profile Desktop" If Join(objItem.ChassisTypes, ",") = 5 Then PCType = "Pizza Box" If Join(objItem.ChassisTypes, ",") = 6 Then PCType = "Mini Tower" If Join(objItem.ChassisTypes, ",") = 7 Then PCType = "Tower" If Join(objItem.ChassisTypes, ",") = 8 Then PCType = "Portable" If Join(objItem.ChassisTypes, ",") = 9 Then PCType = "Laptop" If Join(objItem.ChassisTypes, ",") = 10 Then PCType = "Notebook" If Join(objItem.ChassisTypes, ",") = 11 Then PCType = "Handheld" If Join(objItem.ChassisTypes, ",") = 12 Then PCType = "Docking Station" If Join(objItem.ChassisTypes, ",") = 13 Then PCType = "All-in-One" If Join(objItem.ChassisTypes, ",") = 14 Then PCType = "Sub-Notebook" If Join(objItem.ChassisTypes, ",") = 15 Then PCType = "Space Saving" If Join(objItem.ChassisTypes, ",") = 16 Then PCType = "Lunch Box" If Join(objItem.ChassisTypes, ",") = 17 Then PCType = "Main System Chassis" If Join(objItem.ChassisTypes, ",") = 18 Then PCType = "Expansion Chassis" If Join(objItem.ChassisTypes, ",") = 19 Then PCType = "Sub-Chassis" If Join(objItem.ChassisTypes, ",") = 20 Then PCType = "Bus Expansion Chassis" If Join(objItem.ChassisTypes, ",") = 21 Then PCType = "Peripheral Chassis" If Join(objItem.ChassisTypes, ",") = 22 Then PCType = "Storage Chassis" If Join(objItem.ChassisTypes, ",") = 23 Then PCType = "Rack Mount Chassis" If Join(objItem.ChassisTypes, ",") = 24 Then PCType = "Sealed-Case PC" Next '/-----------------------------------------------------------------------> Ts.WriteLine "[Support Information]" C1 = C1 +1 Ts.WriteLine "Line" & C1 & "= For Technical Support:" C1 = C1 +1 Ts.WriteLine "Line" & C1 & "= to obtain updated drivers or for information on frequently" C1 = C1 +1 Ts.WriteLine "Line" & C1 & "= asked questions, visit the " & mCompany & " technical" C1 = C1 +1 Ts.WriteLine "Line" & C1 & "= support web site at: " & sURL C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_BaseBoard", "WQL", WmiVar) '/-----------------------------------------------------------------------> For Each objItem In colItems C1 = C1 +1 If Trim(objItem.SerialNumber) = "" Then Ts.WriteLine "Line" & C1 & "=" & vbTab & " SERIAL NUMBER:: No serial number found" Else Ts.WriteLine "Line" & C1 & "=" & vbTab & " SERIAL NUMBER: " & objItem.SerialNumber End If C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" Next '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", WmiVar) '/-----------------------------------------------------------------------> For Each objItem In colItems C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & TitleL & "OPERATING SYSTEM INFORMATION" & TitleR C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & " PC Type " & vbTab & PCType C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Total Memory " & vbTab & RamTotal C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "OS Name " & vbTab & objItem.Caption C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "OS Version " & vbTab & objItem.Version C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Install Date " & vbTab & WMIDateStringToDate(objItem.InstallDate) C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Computer Name " & vbTab & objItem.CSName C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Organization " & vbTab & objItem.Organization C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" Next '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_BaseBoard", "WQL", WmiVar) '/-----------------------------------------------------------------------> For Each objItem In colItems C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & TitleL & "MOTHERBOARD INFORMATION" & TitleR C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Manufacturer " & vbTab & objItem.Manufacturer C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Description " & vbTab & sType C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Model Type " & vbTab & objItem.Product C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "System Type " & vbTab & PCType C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" Next '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_Processor", "WQL", WmiVar) '/-----------------------------------------------------------------------> For Each objItem In colItems C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & TitleL & "CPU INFORMATION" & TitleR C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Manufacturer " & vbTab & objItem.Manufacturer C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "CPU Name " & vbTab & objItem.Name C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Description " & vbTab & objItem.Description C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Processor Speed " & vbTab & objItem.CurrentClockSpeed & " MHZ" C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "L2 Cache Size " & vbTab & objItem.L2CacheSize C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "L2 Cache Speed " & vbTab & objItem.L2CacheSpeed & " MHZ" C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" Next '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_VideoController", "WQL", WmiVar) '/-----------------------------------------------------------------------> For Each objItem In colItems Cnt = Cnt + 1 If Cnt = 1 Then C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & TitleL & "GRAPHICS CARD INFORMATION" & TitleR C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Description " & vbTab & objItem.Description C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Driver Version " & vbTab & objItem.DriverVersion C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Adapter Ram " & vbTab & objItem.AdapterRAM /MB & " MB" C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Adapter DAC Type" & vbTab & objItem.AdapterDACType C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" End If Next '/-> Reset Cnt To Zero Cnt = 0 '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_SoundDevice", "WQL", WmiVar) '/-----------------------------------------------------------------------> ' Cnt = Cnt + 1 ' If Cnt = 1 Then C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & TitleL & "MULTIMEDIA/SOUND CARD INFORMATION" & TitleR C1 = C1 +1 For Each objItem In colItems Ts.WriteLine "Line" & C1 & "=" & S_3 & "Manufacturer By " & vbTab & objItem.Manufacturer C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Description " & vbTab & objItem.Description C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" ' End If Next '/-> Reset Cnt To Zero ' Cnt = 0 '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("Select * From Win32_NetworkAdapter " & "Where NetConnectionID = 'Local Area Connection'") '/-----------------------------------------------------------------------> For Each objItem in colItems Set objItemConfig = objWMI.Get("Win32_NetworkAdapterConfiguration.Index=" & objItem.Deviceid) If Not IsNull (objItemConfig.IPAddress) Then For Each strIPAddr In objItemConfig.IPAddress strIP = strIP & strIPAddr & " " Next C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & TitleL & "NETWORK ADAPTER INFORMATION" & TitleR C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Adapter Name " & vbTab & objItem.Name C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Manufacturer By " & vbTab & objItem.Manufacturer C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "MAC Address " & vbTab & objItem.MACAddress C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "IP Address " & vbTab & strIP C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" End If Next '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("Select * From Win32_NetworkAdapter " & "Where NetConnectionID = 'Wireless Network Connection'") '/-----------------------------------------------------------------------> For Each objItem in colItems Set objItemConfig = objWMI.Get("Win32_NetworkAdapterConfiguration.Index=" & objItem.Deviceid) strIP = "" For Each strIPAddr In objItemConfig.IPAddress strIP = strIP & strIPAddr & " " Next C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & TitleL & "WIRELESS NETWORK ADAPTER INFORMATION" & TitleR C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Adapter Name " & vbTab & objItem.Name C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Manufacturer By " & vbTab & objItem.Manufacturer C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "MAC Address " & vbTab & objItem.MACAddress C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "IP Address " & vbTab & strIP C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" Next '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_PnPEntity where ClassGuid = '{4D36E966-E325-11CE-BFC1-08002BE10318}'",,48) '/-----------------------------------------------------------------------> For Each objItem in colItems C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & TitleL & "HARDWARE ABSTRACTION LAYER INFORMATION" & TitleR C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Hal Details " & vbTab & objItem.Name C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" Next '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("SELECT * FROM Win32_LogicalDisk", "WQL", WmiVar) '/-----------------------------------------------------------------------> Dim DrvType, Rpt C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & TitleL & Ucase("Disk Drive Information") & TitleR For Each objItem in colItems DrvType = objItem.MediaType C1 = C1 +1 CheckDrvType() Ts.WriteLine "Line" & C1 & "=" & Rpt Rpt = "" Next '/-----------------------------------------------------------------------> Function WMIDateStringToDate(dtmDate) WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _ Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _ & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2)) End Function '/-----------------------------------------------------------------------> Dim DrvDetails Function CheckDrvType() DrvDetails = objItem.Description '/-> Floppy Disk Check If DrvType = 5 then Rpt = S_3 & "FloppyDisk " & vbTab & objItem.Name & "\" End If '/-> CD Or DVD Check If DrvType = 11 Then If InStr(DrvDetails,"CD") Or InStr(DrvDetails,"Cd") Or InStr(DrvDetails,"cd") Then Rpt = S_3 & "Disk Drive " & vbTab & objItem.Name & "\" & vbTab & "Disk Type" & Space(2) &_ Chr(187) & Space(2) & DrvDetails End If If InStr(DrvDetails,"Dvd") Or InStr(DrvDetails,"DVD") Or InStr(DrvDetails,"dvd") Then Rpt = S_3 & "Disk Drive " & vbTab & objItem.Name & "\" & vbTab & "Disk Type" & Space(2) &_ Chr(187) & Space(2) & DrvDetails End If End If '/-> Hard Drive Check If DrvType = 12 Then Rpt = S_3 & "Hard Drive " & vbTab & objItem.Name & "\" & vbTab & "Disk Size" & Space(2) &_ Chr(187) & Space(2) & (Left(Round(objItem.Size /GB, 5),5)) & " GB" End If End Function '/-----------------------------------------------------------------------> Ts.Close Act.Run("Notepad.exe " & Sys32 & Ini) If Fso.FileExists(VBS) Then Fso.DeleteFile(VBS) End If And here attached is a runtime version as you have also supplied. MkOem_v6.1.20080519.exe

I have been watching this thread with interest and have followed all the instructions on page 1. Currently i am testing with Windows XP Pro SP3 (integrated) and IE (installing from SVCPACK with Hotfixes etc). What i have found to date is that most of the information in the guide will not work with WinXPSP3 and IE7. The WGA section will not work and the solution as some of the other clever people here have communicated is to download the WGA activeX part on a clean machines and then go to the %windir%\SoftwareDistribution folder and pull the updates out from there and either and make a SFX installer. I have done this and works 100% everytime. (it's attached if anyone would like it - i haven't changed anything other than simply packing it) Other than that i haven't had any other success in trying to get the rest of the components completely working. I have had the MU shortcut installed and the DataStore.edb file install and work correctly as discussed, as well as the MU Catalogue. The problems i haven't been able to solve is the prompts when you go to the MU site for addtional installation etc... Look forward to more information from all that are testing and working with the guide. Hope my little bit of input is helpful. Cheers, Felix WGA-KB892130-X86.rar RapidShare WGA-KB892130-X86.rar

Hi there, Firstly i am not a programmer by any means, however i have in the past couple of days being teaching myself as i go some VBscript. I started off working with a Script By Gunsmokingman that automates oeminfo.ini creation. The problem with the original is that it was written for Vista and i wanted to use it with XP. Anyway after much investigation and trial and error i have managed to get most of the things working i wanted to have in the script and have added some new features also. The one problem i am having that i haven't found a solution to is that in a system with multiple NIC's i want to simply add the the default Nic (Local Area Connection) to the OEMinfo.ini file. I have everything i need except i can't seem to get the correct IP address added - it adds the last in the array. Anyway below is the portion code i have been working with and i would greatly appreciate it if one of you VB guru's can help with out with some clues to solving this issue. '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery("Select IPAddress, MACAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") '/-----------------------------------------------------------------------> For Each objItem in colItems If Not IsNull(objItem.IPAddress) Then For i=LBound(objItem.IPAddress) To UBound(objItem.IPAddress) IP = objItem.IPAddress(i) Next End If Next '/-----------------------------------------------------------------------> Set colItems = ObjWMI.ExecQuery( "SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID = 'Local Area Connection'") '/-----------------------------------------------------------------------> Cnt = 1 For Each objItem in colItems If Cnt = 1 Then C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & TitleL & "NETWORK ADAPTER INFORMATION" & TitleR C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Adapter Name " & vbTab & objItem.Name C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "Manufacturer By " & vbTab & objItem.Manufacturer C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "IP Address " & vbTab & IP C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" & S_3 & "MACAddress " & vbTab & objItem.MACAddress C1 = C1 +1 Ts.WriteLine "Line" & C1 & "=" Exit For End If Next Cnt = 0 Cheers, Felix

I wrote this script on Vista, when I get a chance to install XP I will re do the script so it will work on XP. Hi there, Have you had a chance to check the script on XP? Also something i have noticed when testing WMI queries on OEM systems is that by extracting model and manufacturer from Win32_ComputerSystem will often give unwanted results... from example if i check a gigabyte motherboard based system i get - Model: AWRDACPI and Manufacturer: GBT___ however if i query Win32_BaseBoard i get Model: 965P-S3 and Manufacturer: Gigabyte Technology Co., Ltd. which is correct. I have done the same tests on a dell and using the Win32_BaseBoard seems to give the best results for these 2 specific fields. Look forward to your XP based version... PS the only issue with v5 script is the PCSystemType Section - i have had a look using WMI Code creator and it appears that XP has SystemType not PCSystemType (seems to be new with Vista). so if you change: If objItem.CSystemType = 0 Then PCType = "Unspecified" If objItem.PCSystemType = 1 Then PCType = "Desktop" If objItem.PCSystemType = 2 Then PCType = "Mobile" If objItem.PCSystemType = 3 Then PCType = "Work Station" If objItem.PCSystemType = 4 Then PCType = "Enterprise Server" If objItem.PCSystemType = 5 Then PCType = "Small Office and Home Office (SOHO) Server" If objItem.PCSystemType = 6 Then PCType = "Appliance PC" If objItem.PCSystemType = 7 Then PCType = "Performance Server" If objItem.PCSystemType = 8 Then PCType = "Maximum" to PCType = objItem.SystemType This provides a simple work around until you get a change to update the code in a better way... (am a novice and am just experimenting ) Update: I am working on an updated version at the moment using all the nice code that you have worked so hard on and adding some other things. Will be testing on Windows XP, Vista and 2003. I am hoping to have a version that will run on all. Hope to have something up here in the next few days - have been having to teach myself VBScript as i go Cheers, Darren

Hi Jcarle, I would like to make a request of you to look at developing a tool similar to your WMP integrator for IE 7. After doing some searches on the net i haven't been able to find a simple way of integrating IE7 into my source and have also noticed that the up coming XP SP3 doesn't include with IE7 nor WMP11. Anyway i hope that you will consider this request - personally i don't know how much work was involved in the development of the WMP tool or what it would take to do something similar for IE, however i beleive this is a much wanted and needed tool. Cheers, Felix

Thanks for the help - found the problem - had not installed the WMI component correctly Anyway it is working correctly now without errors. Thanks Again... will do some testing in the next 24 hours on the beta 3 release. Cheers, Felix

Have done some testing with beta 2 v70 am getting errors reported: Line 40 Character 1 error invalid syntax code 0 also another error Line 476 Character 1 error invalid syntax code 0 Also the browse dialogue box is opening and then hiding itself behind the imagex.hta window. Hope this information helps.

Hi there - got it all working now - thanks very much for your help and advise

I am testing in VMWare the virtual machine configuration is as follows: 256mb memory 8gb hdd cd-rom is using winpe_x86.iso 1 processor I have tested other winpe based installations and shell's like VistaPE, NativePE and they work perfectly... I would prefer to use the simple imagex.hta concept as i can tailor this to meet my requirements. Look forward to your reply. Cheers, Felix PS have also just tested with with memory set to 1024mb and still the same problem. Please also find below my startnet.cmd configuration. wpeinit net use i: \\zathras\d$ /user:zathras\daz mshta.exe c:\windows\system32\ImageX.hta

Hi all, I have followed the instructions, however after trying both the stable and the beta versions i am still only getting the imagex.hta file loaded with a white screen and nothing more... Can someone please advise where i am going wrong? Cheers, Felix

Hi all - firstly this is wonderful and exactly what i have been looking for... Couple of questions and comments; 1. How can i install the micro version unattended? (what is the command line to simply install and display a progress bar? I have tried nero-7.10.1.0_english__micro.exe /silent) Will this version in the future automatically update when a new version of nero is released? Cheers, Felix

Yes it is - however if build this into your unattend installation - the first logon will have the UAC will be disabled. The alternative is to mount the image, then load the system hive and turn it off there so that it is always off - then when you first logon script the re-enable of UAC if you want it on. There are lots of unattended options that you could use - however you will have to work out what is best for you. Hope this information is helpful.

To turn it off.. REG ADD "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v EnableLUA /t REG_DWORD /d 0 /f To turn it back on... REG ADD "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v EnableLUA /t REG_DWORD /d 1 /f

Here is a good article that is related and may be of use. Turn Off or Disable User Account Control (UAC) in Windows Vista

welcome - just don't sysprep it... no need to if you are restoring to the same machine... if you sysprep it it will have to reactivate.

Hi ya! Thanks for your great tools i use all of them and find them very valuable. Just used your media player integrator and find it very valuable and was wondering if you might be considering doing one for IE7 or if you haven't thought about it - please consider this as a request

Yes you can. Simply install the flavor of vista you want to use in say vmware customize it and add all your applications including activation, then simply take an image of it - then you can automate a system restore anytime you like and the system will already be ready to use.

Need some english documentation for this project... but the concept looks good. I have downloaded the english version and would like to know how to drive it... Look forward to some distructions

it appears that LaptoniC has lot interest in this project

Here is a simple batch file (attached) that will create an ISO image of WinPE and will include VMWare Drivers automagically. Requirements: Windows Automated Installation Kit (WAIK) for Vista (haven't got it? get it here: Vista WAIK) VMware System Drivers (haven't got them? get it here: VMware Drivers 5.5.3) All you need to do is edit the paths in the batch file to suit your system configuration - enjoy... The build takes on a minute or 2 depending on your machine performance. MakeVM_WinPE.cmd

Well it is cheating, however i have also done stuff with bcdedit (what a pain in the butt) so i much prefer to do it the simple way!

try this... <UseConfigurationSet>true</UseConfigurationSet> <DiskConfiguration> <Disk> <DiskID>0</DiskID> <WillWipeDisk>true</WillWipeDisk> <CreatePartitions> <CreatePartition> <Order>1</Order> <Type>Extended</Type> <Type>Primary</Type> </CreatePartition> </CreatePartitions> <ModifyPartitions> <ModifyPartition> <Format>NTFS</Format> <Label>Operating System</Label> <Letter>C</Letter> <Order>1</Order> <PartitionID>1</PartitionID> <Active>true</Active> </ModifyPartition> </ModifyPartitions> </Disk>

Here is an easy way to edit the boot configuration without needing to use bcdedit : VistaBootPro