andrewwan1980, on Dec 5 2008, 11:09 AM, said:
I don't see any reason it wouldn't work but it might be getting messed up due to your regional settings. Try changing the settings to EN-US.
Posted 06 December 2008 - 08:42 PM
Posted 19 December 2008 - 10:19 AM
Posted 21 December 2008 - 01:48 AM
Zio Razio, on Dec 19 2008, 11:19 AM, said:
Posted 22 December 2008 - 02:28 AM
Quote
Posted 02 June 2009 - 05:46 AM
Posted 04 June 2009 - 01:06 AM
Posted 05 June 2009 - 01:06 AM
andwan0, on Jun 4 2009, 09:28 AM, said:
Posted 24 July 2009 - 07:14 AM
Bezalel, on Dec 29 2005, 12:58 AM, said:
JDS300, on Dec 28 2005, 11:49 AM, said:
Posted 26 September 2009 - 06:15 PM
Posted 30 September 2009 - 09:59 AM
kd6aaj, on Sep 26 2009, 08:15 PM, said:
Posted 30 September 2009 - 01:52 PM
Quote
Posted 06 January 2010 - 03:47 AM
Posted 12 January 2011 - 04:52 AM
Bezalel, on 19 December 2005 - 09:37 PM, said:
' Backup/Get OEMBIOS Files & create a basic windows answer file (winnt.sif)
' WinNT: XP
' Author: 38956
' This script is based on "Bezalel" scripts on the MSFN Forum
' ( URL: http://www.msfn.org/board/topic/63258-building-a-pre-activated-cd-from-an-existing-installation/ )
' 21110112.3 - 09:53 Zulu
Dim objFSO, objShell
Dim strXPKey
Set objShell = CreateObject("WScript.Shell")
'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'// Functions: GetKey(rpk)
'//
'// Credit where credit is due - I found this script posted by user "Bezalel" on MSFN Forum
'// ( URL: http://www.msfn.org/board/topic/63258-building-a-pre-activated-cd-from-an-existing-installation/ )
'// and used it here to retrieve the windows product key:
strXPKey = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
If Len(strXPKey) > 0 Then
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
End If
set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(".\OEMBIOS") Then
set objFolderOEMBIOS = objFSO.CreateFolder(".\OEMBIOS")
End If
If Not objFSO.FolderExists(".\OEMBIOS\i386") Then
set objFolderi386 = objFSO.CreateFolder(".\OEMBIOS\i386")
End If
objShell.Run "cmd /c attrib -s %SystemRoot%\system32\CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\OEMBIOS.CAT & makecab %SystemRoot%\system32\CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\OEMBIOS.CAT /L .\OEMBIOS\i386 & attrib +s %SystemRoot%\system32\CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\OEMBIOS.CAT & makecab %SystemRoot%\system32\OEMBIOS.BIN /L .\OEMBIOS\i386 & makecab %SystemRoot%\system32\OEMBIOS.DAT /L .\OEMBIOS\i386 & makecab %SystemRoot%\system32\OEMBIOS.SIG /L .\OEMBIOS\i386"
Set fso = CreateObject("Scripting.FileSystemObject")
Set winntsif = fso.OpenTextFile(".\OEMBIOS\i386\winnt.sif", 2, True)
winntsif.WriteLine "[UserData]"
winntsif.WriteLine "ProductKey=" & chr(34) & GetKey(objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) & chr(34)
winntsif.WriteLine "[Data]"
winntsif.WriteLine "MSDosInitiated=0"
winntsif.WriteLine "UnattendedInstall=Yes"
This post has been edited by 38956: 20 February 2011 - 11:11 AM
Posted 05 October 2012 - 09:57 AM
attrib -s %SystemRoot%\system32\CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\OEMBIOS.CAT
makecab %SystemRoot%\system32\CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\OEMBIOS.CAT
attrib +s %SystemRoot%\system32\CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\OEMBIOS.CAT
makecab %SystemRoot%\system32\OEMBIOS.BIN
makecab %SystemRoot%\system32\OEMBIOS.DAT
makecab %SystemRoot%\system32\OEMBIOS.SIG
echo.
REM For computers with Hyperthreading technology
REM Set all these 8 files inside your distribution folder I386
if exist %SystemDrive%\WINDOWS\I386 goto :next
if errorlevel 1 goto :getkey
echo.
:next
xcopy %SystemDrive%\WINDOWS\I386\"-OEMBIOS (1).DA_" /g /h /y "%~dp0"
xcopy %SystemDrive%\WINDOWS\I386\"-OEMBIOS (2).SI_" /g /h /y "%~dp0"
xcopy %SystemDrive%\WINDOWS\I386\"-OEMBIOS (3).BI_" /g /h /y "%~dp0"
xcopy %SystemDrive%\WINDOWS\I386\"-OEMBIOS.CA_" /g /h /y "%~dp0"
echo.
:getkey
cscript //nologo getkey.vbs > winnt.sif
goto :exit
:exit
This post has been edited by myselfidem: 05 October 2012 - 11:24 AM
Posted 21 January 2013 - 03:40 AM
Posted 21 January 2013 - 06:45 AM