[Resolved] How to add OEM info in Windows 8 AIO setup installation?

Hi!
Like from object, how i can put my OEM info directly in setup installation (maybe i can insert via AIO dvd maker)?

Thank in advance,
DarkWolf

-
Edit: ok, i've make a small exe with win rar and vbs (found online)+batch (oneclick and self install)
... I can attach for example (unlocked) if someone want it

 

Batch (sorry, is in Italian, but is very simple): oemlogo.darkwolf.bat

Code:

@ECHO Off
cls

:Avvio lo script di installazione!
echo.
echo Inserisco i valori nel registro: tramite il vbs (32/64bit)
oemlogo.darkwolf.vbs

:Pausa
ping localhost -n 3 > NUL

:Apro la schermata del pannello di controllo!
echo.
echo Apro la schermata del sistema per mostrare il risultato :)
control /name Microsoft.System

:Pausa
ping localhost -n 3 > NUL

:Abbiamo finito!
echo.
echo Ho finito, spero ti piaccia... Ciau ;)

:Pausa
ping localhost -n 3 > NUL

:Elimino i file non più necessari!
start /min cmd /c del /q oemlogo.darkwolf.vbs
start /min cmd /c del /q oemlogo.darkwolf.bat

-
vbs (work with 32 and 64 bit): oemlogo.darkwolf.vbs (change: Windows7 'All In One' SP1+ to windows 8 *** if you have windows 8)

Code:

Dim oShell
set oShell=Wscript.CreateObject("WScript.Shell")

PRG_RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation\Manufacturer", "DarkWolf", "REG_SZ"
PRG_RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation\Model", "Windows7 'All In One' SP1+", "REG_SZ"
PRG_RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation\SupportURL", "(***darkwolf.it)", "REG_SZ"
PRG_RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation\SupportHours", "", "REG_SZ"
PRG_RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation\SupportPhone", "", "REG_SZ"
PRG_RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation\Logo", "C:\Windows\oemlogo.darkwolf.bmp", "REG_SZ"

Function PRG_Isx64

If lcase(oShell.Environment("SYSTEM")("Processor_Architecture")) = "amd64" Then
        PRG_Isx64 = True
Else
        PRG_Isx64 = False
End if

End Function


Function PRG_RegWrite(szKey, sValue, sType)
      
Dim aKeys
Dim rKey
Dim strKeyPath, strValueName, sKey
Dim objCtx, objLocator, objServices, objReg, sDelim
Dim iCount, iMax, lRet, isKey
  

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
const HKEY_USERS = &H80000003
const HKEY_CURRENT_CONFIG = &H80000005
  
if (PRG_Isx64) Then

 aKeys = Split(trim(szKey),"\")
 iCount = 0

 sKey = ucase(aKeys(0))       
 if sKey = "HKLM" or sKey = "HKEY_LOCAL_MACHINE" Then               
  rKey = HKEY_LOCAL_MACHINE
 elseif sKey = "HKCU" or sKey = "HKEY_CURRENT_USER" Then
  rKey = HKEY_CURRENT_USER
 elseif sKey = "HKCR" or sKey = "HKEY_CLASSES_ROOT" Then
  rKey = HKEY_CLASSES_ROOT
 elseif sKey = "HKEY_USERS" or sKey = "HKEY_USERS" Then
  rKey = HKEY_USERS
 elseif sKey = "HKEY_CURRENT_CONFIG" or sKey = "HKEY_CURRENT_CONFIG" Then
  rKey = HKEY_CURRENT_CONFIG       
 else
  Exit function
 End if

 Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
 objCtx.Add "__ProviderArchitecture", 64
 Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
 Set objServices = objLocator.ConnectServer("","root\default","","",,,,objCtx)
 Set objReg = objServices.Get("StdRegProv")

 iMax = ubound(aKeys)
 if aKeys(iMax) = "" then
  isKey = true
 else
  strValueName = aKeys(iMax)
  isKey = false           
 End if
 sDelim = ""
   
 for iCount = 1 to iMax -1
  strKeyPath = strKeyPath & sDelim & aKeys(iCount)
  lRet = objReg.CreateKey(rKey, strKeyPath)
  sDelim = "\"
  if lRet <> 0 then
   exit for
  end if
 next

 if isKey = false and lRet = 0 Then   
  sType = UCASE(sType)
  if sType = "REG_SZ" then
   lRet = objReg.SetStringValue(rKey,strKeyPath,strValueName,sValue)
  elseif sType = "REG_DWORD" then
   lRet = objReg.SetDWORDValue(rKey,strKeyPath,strValueName,sValue)
  elseif sType = "REG_BINARY" then
   lRet = objReg.SetBinaryValue(rKey,strKeyPath,strValueName,sValue)
  elseif sType = "REG_EXPAND_SZ" then
   lRet = objReg.SetExpandedStringValue(rKey,strKeyPath,strValueName,sValue)
  else
   lRet = objReg.SetStringValue(rKey,strKeyPath,strValueName,sValue)
  End if
 End if

 Set objCtx = Nothing
 Set objLocator = Nothing
 Set objServices = Nothing
 Set objReg = Nothing

else
        oShell.RegWrite szKey, sValue, sType
End if

End Function

-
add also an oemlogo.darkwolf.bmp and make an autoexe with winrar...
-

Code:

;Il commento che segue contiene dei comandi per lo script del modulo auto-estraente

Path=C:\Windows\
SavePath
Setup=oemlogo.darkwolf.bat
Silent=2
Overwrite=1
License=Info prima di avviare l'installazione...
{
I file vengono estratti in "C:\Windows\"

Quindi viene eseguito lo script e mostra il risultato!


...


Sei sicuro di voler continuare? :)
}

This is the resuls: darkwolf.it/oem (is unblocked - u can edit and manage without problem but i don't know if u can change icon)

 

Thanks, but i prefer "one click" install (with this I can put my logo/info only where i want)