ZaForD Posted June 15, 2006 Share Posted June 15, 2006 (edited) @ chickenfeed, I'm kinda new here, but i'll try and help you.If you use the VB script from the first post on your HP, you should end up with these 5 files:OEMBIOS.BI_OEMBIOS.CA_OEMBIOS.DA_OEMBIOS.SI_winnt.sifThe winnt.sif is very basic so you may want to edit it.Add the 5 files to the i386 folder of your CD and burn it to a Bootable CD.Next time you install Home, you shouldn't have to activate it. @ herroyuy,Basically Yes. See above. Edited June 15, 2006 by ZaForD Link to comment Share on other sites More sharing options...
herroyuy Posted June 15, 2006 Share Posted June 15, 2006 hmm.. thanks alot for ur reply .. i just wanna make sure again cos i've tried overwriting the whole i386 folder in the cd with the i386 folder that comes together with my preactivated windows... now i realize that the 5 files are not in the i386 folder.... hehehe.. can' wait to try... shall report back after i format tomrrow.. can't format now as i have to study using power point... wt*! Link to comment Share on other sites More sharing options...
ZaForD Posted June 15, 2006 Share Posted June 15, 2006 herroyuyTry using the i386 folder from an OEM disk if you can.I tried using the one from the hard drive of a Dell last week and get nothing but errors. Link to comment Share on other sites More sharing options...
herroyuy Posted June 15, 2006 Share Posted June 15, 2006 thanks fro ur advice.. yeah.. i stick back to the folder in cd just that i added the 5 files and replaced the setupp.ini so that even the product id is not changed.. that shud workd rihg? Link to comment Share on other sites More sharing options...
chickenfeed Posted June 15, 2006 Share Posted June 15, 2006 @ ZaForDahhhhhhhhhhhhhhhhhh I see now. so the bat file just gets data from the current windows inallation. and the vb script is to get the winxp key and place that info into the winnt file that the bat created.man that tutorial os soooooooooooooo user unfriendlywould have it more easier if they said:- copy the following text into notepad. name one "blah blah" and the other "blah blah" exactly.- put in any folder both files.- run bat file and then run vbs file.- copy the 5 files created into the .... blah blah.- the end.haha thanks! Link to comment Share on other sites More sharing options...
Bezalel Posted June 15, 2006 Author Share Posted June 15, 2006 sorry... simple questionafter i get files using the batch file.... i just need to replace the 5 files i got into the xp home cd and then install? that will make my clean installation preactivated?Yes. Link to comment Share on other sites More sharing options...
ZaForD Posted June 15, 2006 Share Posted June 15, 2006 @ chickenfeed,I'd much rather have all these guys writting 'great' App's, Scripts, Bat's and Cmd's and the odd 'iffy' tut.Than it being the other way round. Link to comment Share on other sites More sharing options...
Bezalel Posted June 15, 2006 Author Share Posted June 15, 2006 If anyone wants to rewrite the tutorial PM me and if I like it I'll replace the origional tutorial. Link to comment Share on other sites More sharing options...
gunsmokingman Posted June 15, 2006 Share Posted June 15, 2006 (edited) I have modified this getkey.vbs so it now adds the key to a Winnt.sif ;SetupMgrTag[Data] AutomaticUpdates=1 AutoPartition=0 MsDosInitiated="0" UnattendedInstall="Yes"[Unattended] UnattendMode=FullUnattended OemSkipEula=Yes OemPreinstall=Yes UnattendSwitch="Yes" Repartition=No Hibernation=No OemPnPDriversPath="Drivers02_graphics;Drivers04_sound;Drivers\" DriverSigningPolicy=Ignore AutoActivate=Yes TargetPath=\WINDOWS[UserData] ProductKey=The Script Places The Key HereThe ScriptSave As Key_Sif.vbs'/-> Varibles Dim Act, Dtop, Fso, KeyXP, Sif, strXPKey, Ts, VBS'/-> Objects Set Act = CreateObject("WScript.Shell") Set Fso = CreateObject("Scripting.FileSystemObject")'/-> Varibles As Objects strXPKey = Act.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName") KeyXP = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId" Dtop = Act.SpecialFolders("Desktop") Sif = Dtop & "\winnt.sif" VBS = Act.ExpandEnvironmentStrings("%Systemdrive%\Key_Sif.vbs")'/-> Get The Key Function GetKey(rpk) Const rpkOffset=52:i=28 szPossibleChars="BCDFGHJKMPQRTVWXY2346789" Do dwAccumulator=0 : j=14 Do dwAccumulator=dwAccumulator*256 dwAccumulator=rpk(j+rpkOffset)+dwAccumulator rpk(j+rpkOffset)=(dwAccumulator\24) and 255 dwAccumulator=dwAccumulator Mod 24 j=j-1 Loop While j>=0 i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey If (((29-i) Mod 6)=0) And (i<>-1) Then i=i-1 : szProductKey="-"&szProductKey End If Loop While i>=0 GetKey=szProductKey End Function'/-> Make The Sif With Ket Added Function MakeTheSif() Set Ts = Fso.CreateTextFile(Sif) Ts.WriteLine ";SetupMgrTag" & vbCrLf Ts.WriteLine "[Data]" Ts.WriteLine Space(4) & "AutomaticUpdates=1" Ts.WriteLine Space(4) & "AutoPartition=0" Ts.WriteLine Space(4) & "MsDosInitiated=""0""" Ts.WriteLine Space(4) & "UnattendedInstall=""Yes""" & vbCrLf Ts.WriteLine "[Unattended]" Ts.WriteLine Space(4) & "UnattendMode=FullUnattended" Ts.WriteLine Space(4) & "OemSkipEula=Yes" Ts.WriteLine Space(4) & "OemPreinstall=Yes" Ts.WriteLine Space(4) & "UnattendSwitch=""Yes""" Ts.WriteLine Space(4) & "Repartition=No" Ts.WriteLine Space(4) & "Hibernation=No" Ts.WriteLine Space(4) & "OemPnPDriversPath=""Drivers02_graphics;Drivers04_sound;Drivers\""" Ts.WriteLine Space(4) & "DriverSigningPolicy=Ignore" Ts.WriteLine Space(4) & "AutoActivate=Yes" Ts.WriteLine Space(4) & "TargetPath=\WINDOWS" & vbCrLf Ts.WriteLine "[UserData]" Ts.WriteLine Space(4) & "ProductKey=" & GetKey(Act.RegRead(KeyXP)) & vbCrLf Ts.Close Act.Run("notepad.exe " & Sif) End Function'/-> Deletes the VBS File Function Cleanup() If Fso.FileExists(VBS) Then Fso.DeleteFile(VBS) End If End Function '/-> Start The Script Functions MakeTheSif : CleanupI have made this into a SFX that runs the above script.Key_Sif.exe Edited January 4, 2007 by gunsmokingman Link to comment Share on other sites More sharing options...
chickenfeed Posted June 15, 2006 Share Posted June 15, 2006 @ chickenfeed,I'd much rather have all these guys writting 'great' App's, Scripts, Bat's and Cmd's and the odd 'iffy' tut.Than it being the other way round. Not everyone is a jack of all trades. Link to comment Share on other sites More sharing options...
herroyuy Posted June 16, 2006 Share Posted June 16, 2006 oki've triedit's simplyjust use the batch file to get the five files from ur windows... u dun even have to run the vbscriptu move all the 5 files u get fom the .bat file. then u copy all of them into the xphome cd that u are going to use to format ur comp... then ur windows shud come preactivated... as simple as that..i've even used nlite to integrate drivers inside..conclusion... it works! thanks bezalel Link to comment Share on other sites More sharing options...
MAVERICKS CHOICE Posted June 16, 2006 Share Posted June 16, 2006 I have modified this getkey.vbs so it now adds the key to a Winnt.sif ;SetupMgrTag[Data] AutomaticUpdates=1 AutoPartition=0 MsDosInitiated="0" UnattendedInstall="Yes"[Unattended] UnattendMode=FullUnattended OemSkipEula=Yes OemPreinstall=Yes UnattendSwitch="Yes" Repartition=No Hibernation=No OemPnPDriversPath="Drivers\002_graphics;Drivers\004_sound;Drivers\" DriverSigningPolicy=Ignore AutoActivate=Yes TargetPath=\WINDOWS[UserData] ProductKey=The Script Places The Key HereThe ScriptSave As Key_Sif.vbs'/-> Varibles Dim Act, Dtop, Fso, KeyXP, Sif, strXPKey, Ts, VBS'/-> Objects Set Act = CreateObject("WScript.Shell") Set Fso = CreateObject("Scripting.FileSystemObject")'/-> Varibles As Objects strXPKey = Act.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName") KeyXP = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId" Dtop = Act.SpecialFolders("Desktop") Sif = Dtop & "\winnt.sif" VBS = Act.ExpandEnvironmentStrings("%Systemdrive%\Key_Sif.vbs")'/-> Get The Key Function GetKey(rpk) Const rpkOffset=52:i=28 szPossibleChars="BCDFGHJKMPQRTVWXY2346789" Do dwAccumulator=0 : j=14 Do dwAccumulator=dwAccumulator*256 dwAccumulator=rpk(j+rpkOffset)+dwAccumulator rpk(j+rpkOffset)=(dwAccumulator\24) and 255 dwAccumulator=dwAccumulator Mod 24 j=j-1 Loop While j>=0 i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey If (((29-i) Mod 6)=0) And (i<>-1) Then i=i-1 : szProductKey="-"&szProductKey End If Loop While i>=0 GetKey=szProductKey End Function'/-> Make The Sif With Ket Added Function MakeTheSif() Set Ts = Fso.CreateTextFile(Sif) Ts.WriteLine ";SetupMgrTag" & vbCrLf Ts.WriteLine "[Data]" Ts.WriteLine Space(4) & "AutomaticUpdates=1" Ts.WriteLine Space(4) & "AutoPartition=0" Ts.WriteLine Space(4) & "MsDosInitiated=""0""" Ts.WriteLine Space(4) & "UnattendedInstall=""Yes""" & vbCrLf Ts.WriteLine "[Unattended]" Ts.WriteLine Space(4) & "UnattendMode=FullUnattended" Ts.WriteLine Space(4) & "OemSkipEula=Yes" Ts.WriteLine Space(4) & "OemPreinstall=Yes" Ts.WriteLine Space(4) & "UnattendSwitch=""Yes""" Ts.WriteLine Space(4) & "Repartition=No" Ts.WriteLine Space(4) & "Hibernation=No" Ts.WriteLine Space(4) & "OemPnPDriversPath=""Drivers\002_graphics;Drivers\004_sound;Drivers\""" Ts.WriteLine Space(4) & "DriverSigningPolicy=Ignore" Ts.WriteLine Space(4) & "AutoActivate=Yes" Ts.WriteLine Space(4) & "TargetPath=\WINDOWS" & vbCrLf Ts.WriteLine "[UserData]" Ts.WriteLine Space(4) & "ProductKey=" & GetKey(Act.RegRead(KeyXP)) & vbCrLf Ts.Close Act.Run("notepad.exe " & Sif) End Function'/-> Deletes the VBS File Function Cleanup() If Fso.FileExists(VBS) Then Fso.DeleteFile(VBS) End If End Function '/-> Start The Script Functions MakeTheSif : CleanupI have made this into a SFX that runs the above script.You do this well GSM,nice inc.CheersMC. Link to comment Share on other sites More sharing options...
gunsmokingman Posted June 16, 2006 Share Posted June 16, 2006 (edited) Thanks you MAVERICKS CHOICE for the nice wordsHere is a HTA that I makes a Basic Winnt.sif, I have also added a RunOnceEx template maker for either a Hard Drive or CD_DVD install of app.This is the sif it makes;SetupMgrTag[Data] AutomaticUpdates=1 AutoPartition=0 MsDosInitiated="0" UnattendedInstall="Yes"[Unattended] UnattendMode=FullUnattended OemSkipEula=Yes OemPreinstall=Yes UnattendSwitch="Yes" Repartition=No Hibernation=No OemPnPDriversPath="Drivers02_graphics;Drivers04_sound;Drivers\" DriverSigningPolicy=Ignore AutoActivate=Yes TargetPath=\WINDOWS[GuiUnattended] AdminPassword="TEST PASSWORD" EncryptedAdminPassword=NO OEMSkipRegional=1 TimeZone=0 OemSkipWelcome=1[UserData] ProductKey=12345-ABCDE-54321-EDCBA-1A5E2 FullName="TEST USER NAME" OrgName="TEST ORG NAME" ComputerName=TEST COMPUTER NAME[Display] BitsPerPel=16 XResolution=1024 YResolution=768 Vrefresh=70[NetAdapters] Adapter1=params.Adapter1[params.Adapter1] INFID=*[NetClients] MS_MSClient=params.MS_MSClient[NetProtocols] MS_TCPIP=params.MS_TCPIP[params.MS_TCPIP] DNS=Yes UseDomainNameDevolution=No EnableLMHosts=No AdapterSections=params.MS_TCPIP.Adapter1[params.MS_TCPIP.Adapter1] SpecificTo=Adapter1 DHCP=Yes WINS=No NetBIOSOptions=2[SystemRestore] CheckpointCalendarFrequency=1 CheckpointSessionFrequency=12 MaximumDataStorePercentOfDisk=4 RestorePointLife=14[Components] Calc=On Deskpaper=On Dialer=Off Dtcnetwork=Off Fax=Off Fp_extensions=Off Fp_vdir_deploy=Off Freecell=Off Hearts=Off Iis_ftp=Off Iis_htmla=Off Iis_doc=Off Iis_inetmgr=Off Iis_internetdataconnector=Off Iis_nntp=Off Iis_pwmgr=Off Iis_serversideincludes=Off Iis_smtp=Off Iis_smtp_docs=Off Iis_webadmin=Off Iis_webdav=Off Iis_www=Off Iis_www_vdir_printers=Off Iis_www_vdir_scripts=Off Iis_www_vdir_terminalservices=Off Indexsrv_system=Off Inetprint=Off Licenseserver=Off Media_clips=On Media_utopia=On Minesweeper=On Mousepoint=On msmsgs=Off Msnexplr=Off Mswordpad=Off Paint=On Pinball=Off Rec=On Rootautoupdate=On Rstorage=On Solitaire=On Spider=On Templates=On Zonegames=OffExample RunOnceEx Hard Drive Installcmdow @ /HID@echo offSET KEY=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceExREG ADD %KEY% /V TITLE /D "The Install Section" /fREG ADD %KEY /VE /D "Preparing Installation..." /f:: EXAMPLE ADD REG ENTRIES TO RUNONCE CMD FOR APPS:: REG ADD %KEY%20 /VE /D "TITLE FOR INSTALL" /f:: REG ADD %KEY%20 /V 1 /D "REGEDIT /S %systemdrive%\Install\PLACE_FOLDER_NAME_HERE\SOME_REGFILE.reg" /f:: REG ADD %KEY%20 /V 2 /D "%Install%\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /fREG ADD %KEY%\105 /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /fREG ADD %KEY%\105 /V 1 /D "%systemdrive%\Install\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /fREG ADD %KEY%\110 /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /fREG ADD %KEY%\110 /V 1 /D "%systemdrive%\Install\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /fREG ADD %KEY%\115 /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /fREG ADD %KEY%\115 /V 1 /D "%systemdrive%\Install\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /f::GUNSMOKINGMAN, MAKE SURE YOU HAVE THIS FILE OR A ERROR WILL HAPPEN WHEN THIS IS RANREG ADD %KEY%\970 /VE /D "Preparing Final Clean up ..." /fREG ADD %KEY%\970 /VE /D "%systemdrive%\Install\PLACE_THE CLEAN_UP_CMD_EXE_VBS_FILE_HERE" /fExample RunOnceEx CD_DVD Installcmdow @ /HID@echo off::GUNSMOKINGMAN, YOU CAN CHANGE THE CHECK FILE => %%i\Setup.exe <= TO WHAT YOU WANTfor %%i in (C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z:) do if exist %%i\Setup.exe set CDROM=%%iset App=%CDROM%AppsSET KEY=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceExREG ADD %KEY% /V TITLE /D "The Install Section" /fREG ADD %KEY /VE /D "Preparing Installation..." /f:: EXAMPLE ADD REG ENTRIES TO RUNONCE CMD FOR APPS:: REG ADD %KEY%20 /VE /D "TITLE FOR INSTALL" /f:: REG ADD %KEY%20 /V 1 /D "REGEDIT /S %App%\PLACE_FOLDER_NAME_HERE\SOME_REGFILE.reg" /f:: REG ADD %KEY%20 /V 2 /D "%App%\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /fREG ADD %KEY%\105 /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /fREG ADD %KEY%\105 /V 1 /D "%App%\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /fREG ADD %KEY%\110 /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /fREG ADD %KEY%\110 /V 1 /D "%App%\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /fREG ADD %KEY%\115 /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /fREG ADD %KEY%\115 /V 1 /D "%App%\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /f::GUNSMOKINGMAN, USER MAKE SURE YOU HAVE THIS FILE OR A ERROR WILL HAPPEN WHEN THIS IS RANREG ADD %KEY%\970 /VE /D "Preparing Final Clean up ..." /fREG ADD %KEY%\970 /VE /D "%App%\PLACE_THE CLEAN_UP_CMD_EXE_VBS_FILE_HERE" /fHere is a SFX file for the HTAGsmMkSif.exe Edited September 7, 2007 by gunsmokingman Link to comment Share on other sites More sharing options...
severach Posted July 25, 2006 Share Posted July 25, 2006 You lose any bundled OEM drivers when you build your own OEM install disk from the Microsoft Original. If you want the same install convenience without suffering with outdated crap drivers, you should check this project out.http://forum.driverpacks.net/ Link to comment Share on other sites More sharing options...
MAVERICKS CHOICE Posted July 25, 2006 Share Posted July 25, 2006 Interesting tool you produced there GSM, you never stop amazing us.CheersMC. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now