TrayTip('OEM设置工具','正在删除原有OEM信息',3)
FileDelete(@SystemDir & "/oobe/Oemlogo.bmp")
FileDelete(@SystemDir & "/oobe/logo.bmp")
FileDelete(@SystemDir & "/oobe/Oemlogo1.bmp")
Sleep(1000)
FileInstall("oemlogo.bmp", @SystemDir & "/oobe/")
TrayTip('OEM设置工具','正在设置OEM信息为戴尔!',3)
RegWrite('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/OEMInformation')
RegWrite('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/OEMInformation', 'Manufacturer', 'REG_SZ', 'dell')
RegWrite('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/OEMInformation', 'Model', 'REG_SZ', '')
RegWrite('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/OEMInformation', 'SupportHours', 'REG_SZ', '')
RegWrite('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/OEMInformation', 'SupportPhone', 'REG_SZ', '800-858-2925')
RegWrite('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/OEMInformation', 'SupportURL', 'REG_SZ', 'http://support.dell.com')
TrayTip('OEM设置工具','正在导入戴尔LOGO图片',1)
RegWrite('HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/OEMInformation', 'Logo', 'REG_SZ', '' & @SystemDir & '/oobe/oemlogo.bmp')
$var = MsgBox(0 + 64, "温馨提示", "戴尔OEM信息导入成功!" ,2)
If $var = 1 Then
Exit
EndIf
原创文章，作者：kirin，如若转载，请注明出处：https://blog.ytso.com/tech/pnotes/215698.html