一键静默导入OEM信息 AU3源代码-支持Win7/WinXp

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


打赏

转载请注明出处:YMS工作室 » 一键静默导入OEM信息 AU3源代码-支持Win7/WinXp

分享到: +More

评论 沙了个发

换个身份

取消评论