OEM LOGO

 'Script by tomriddle 2009
 'Read and display OEM logo from WMI Win32_ComputerSystem
 
   On Error Resume Next
   strComputer="."
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
   For Each objItem In colItems
      strOEMLogoBitmap = Join(objItem.OEMLogoBitmap, ",")
      ibmp=strOEMLogoBitmap
   next
   Const ForWriting = 2
   Dim fso, f, Msg
   x=0
   Set objShell = CreateObject("WScript.Shell") 
   outputFile = objShell.ExpandEnvironmentStrings("%temp%")&"\logo.bmp"
   
   arrayibmp=split(ibmp, ",")
   ibmpSize=ubound(arrayibmp)
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set file = fso.OpenTextFile(outputFile, 2, True)
   Do 
      myByte = hex(arrayibmp(x))
      if len(myByte) = 1 then myByte = "0" & myByte
      file.Write Chr(Clng("&H" & myByte))
      x=x+1
   Loop until x=ibmpSize
   file.close
   objShell.Run outputFile, 0, true
   fso.DeleteFile(outputFile)
   on error goto 0