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

Discussion in 'Windows 8' started by DarkWolf.it, Mar 25, 2013.

  1. DarkWolf.it

    DarkWolf.it MDL Novice

    Mar 25, 2013
    11
    0
    0
    #1 DarkWolf.it, Mar 25, 2013
    Last edited: Mar 26, 2013
    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 :)
     
  2. HALIKUS

    HALIKUS MDL Addicted

    Jul 29, 2009
    527
    369
    30
    i would like it, and to see if i can somehow add the win7 ones i already have.
     
  3. cocachris89

    cocachris89 MDL Senior Member

    Mar 1, 2013
    492
    147
    10
    #3 cocachris89, Mar 26, 2013
    Last edited by a moderator: Apr 20, 2017
  4. DarkWolf.it

    DarkWolf.it MDL Novice

    Mar 25, 2013
    11
    0
    0
    #4 DarkWolf.it, Mar 26, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    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) ;)
     
  5. anarchist9027

    anarchist9027 MDL Expert

    Oct 30, 2010
    1,320
    667
    60
  6. DarkWolf.it

    DarkWolf.it MDL Novice

    Mar 25, 2013
    11
    0
    0
    Thanks, but i prefer "one click" install (with this I can put my logo/info only where i want) ;)
     
  7. anarchist9027

    anarchist9027 MDL Expert

    Oct 30, 2010
    1,320
    667
    60
    #7 anarchist9027, Mar 26, 2013
    Last edited: Mar 26, 2013
    You could always delete the manufactures you dont want / need & edit any OEM info you want in the reg file in the manufactures folder and add the appropriate logos to what you want to replace.