[Bezalel]

Batfinks, on May 28 2006, 05:47 PM, said:

if it is possible could someone explain in plain laymens terms how im not too clued up on this sort of thing

Unfortunately the problems you are having are completely unrelated to the topic of this thread.

[Batfinks]

oops sorry is there a topic which covers this?

as i've already mentioned im not clued up on this in anyway at all

and any help would be great thankyou.

[bober]

thanks Bezalel.
your technique works great on hp home.

[herroyuy]

sorry... simple question

after 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?

[chickenfeed]

Quote

If your laptop was mande by a Royalty OEM (the COA sticker hase manufacturer's name or logo) and you also have access to the Windows intallation bits (hologrammed OEM CD) you can use these files to recreate the OEMBIOS files and extract the CD-Key origionally used by the manufacturer to install windows. A Windows CD made with these files will not require activation when used on the computer the files were extracted from (or other computers of the same make).

Simple out of the box question;
- I have a royalty OEM installed on my hp laptop (it has "HP" in the COA).
- I don't have any HP windows installation cd back-up copy
- I downloaded a OEM version (same home version) from the net.
- extracted the bulk license from winnt.sif of the current laptop's product key (different from COA)
- Can I use that with the OEM installer that I downloaded from the net? Do I still have to activate it? (the tutorial on the first page had me into a dead end when it showed some kind of vbscript...)

thanks

[ZaForD]

@ 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:

Quote

OEMBIOS.BI_
OEMBIOS.CA_
OEMBIOS.DA_
OEMBIOS.SI_
winnt.sif

The 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.

This post has been edited by ZaForD: 15 June 2006 - 05:38 AM

[herroyuy]

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*!

[ZaForD]

herroyuy

Try 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.

[herroyuy]

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?

[chickenfeed]

@ ZaForD

ahhhhhhhhhhhhhhhhhh 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 unfriendly

would 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!

[Bezalel]

herroyuy, on Jun 15 2006, 03:24 AM, said:

sorry... simple question

after 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.

[ZaForD]

@ 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.

[Bezalel]

If anyone wants to rewrite the tutorial PM me and if I like it I'll replace the origional tutorial.

[gunsmokingman]

I have modified this getkey.vbs so it now adds the key to a Winnt.sif

Quote

;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 Here

The Script
Save As Key_Sif.vbs

Quote

'/-> 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 : Cleanup

I have made this into a SFX that runs the above script.

Attached File(s)

•  Key_Sif.exe (68.26K)
  Number of downloads: 355

This post has been edited by gunsmokingman: 04 January 2007 - 01:46 AM

[chickenfeed]

ZaForD, on Jun 15 2006, 10:29 AM, said:

@ 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.

[herroyuy]

ok
i've tried

it's simply
just use the batch file to get the five files from ur windows... u dun even have to run the vbscript
u 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

[MAVERICKS CHOICE]

gunsmokingman, on Jun 16 2006, 04:42 AM, said:

I have modified this getkey.vbs so it now adds the key to a Winnt.sif

Quote

;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 Here

The Script
Save As Key_Sif.vbs

Quote

'/-> 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 : Cleanup

I have made this into a SFX that runs the above script.

You do this well GSM,nice inc.

Cheers

MC.

[gunsmokingman]

Thanks you MAVERICKS CHOICE for the nice words
Here 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

Quote

;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=Off

Example RunOnceEx Hard Drive Install

Quote

cmdow @ /HID
@echo off

SET KEY=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx

REG ADD %KEY% /V TITLE /D "The Install Section" /f

REG 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" /f

REG ADD %KEY%\105  /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /f
REG ADD %KEY%\105  /V 1 /D "%systemdrive%\Install\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /f

REG ADD %KEY%\110  /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /f
REG ADD %KEY%\110  /V 1 /D "%systemdrive%\Install\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /f

REG ADD %KEY%\115  /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /f
REG 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 RAN

REG ADD %KEY%\970 /VE /D "Preparing Final Clean up ..." /f
REG ADD %KEY%\970 /VE /D "%systemdrive%\Install\PLACE_THE CLEAN_UP_CMD_EXE_VBS_FILE_HERE" /f

Example RunOnceEx CD_DVD Install

Quote

cmdow @ /HID
@echo off

::GUNSMOKINGMAN, YOU CAN CHANGE THE CHECK FILE => %%i\Setup.exe <= TO WHAT YOU WANT
for %%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=%%i

set App=%CDROM%Apps

SET KEY=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx

REG ADD %KEY% /V TITLE /D "The Install Section" /f

REG 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" /f

REG ADD %KEY%\105  /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /f
REG ADD %KEY%\105  /V 1 /D "%App%\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /f

REG ADD %KEY%\110  /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /f
REG ADD %KEY%\110  /V 1 /D "%App%\PLACE_FOLDER_NAME_HERE\PLACE_APP_NAME_INSTALL_SWITCHES_HERE" /f

REG ADD %KEY%\115  /VE /D "PLACE_NAME_FOR_WHAT_APPEARS_ON_THE_RUNONCE_MENU" /f
REG 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 RAN

REG ADD %KEY%\970 /VE /D "Preparing Final Clean up ..." /f
REG ADD %KEY%\970 /VE /D "%App%\PLACE_THE CLEAN_UP_CMD_EXE_VBS_FILE_HERE" /f

Here is a SFX file for the HTA

Attached File(s)

•  GsmMkSif.exe (82.63K)
  Number of downloads: 248

This post has been edited by gunsmokingman: 07 September 2007 - 12:50 PM

[severach]

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/

[MAVERICKS CHOICE]

Interesting tool you produced there GSM, you never stop amazing us.

Cheers
MC.