微软一段脚本

Dim IE, fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set IE = CreateObject("InternetExplorer.Application")
set wshshell = wscript.CreateObject("wscript.shell")
ie.left=0
ie.top=0
ie.height=700
ie.width=800
ie.menubar=0
ie.toolbar=0
ie.addressbar=0
ie.statusbar=0
ie.navigate "file:///c:\setup\html\loncust9.htm"
ie.visible=1

wscript.Sleep 5000

'set lonthree.vbs to run after reboot
if fso.FileExists ("c:\setup\lonthree.vbs") then
set strt = fso.getfolder("c:\documents and settings\all users\start menu\programs\startup")
fn = "runnext.vbs"
set nxt = fso.getfile("c:\setup\lonthree.vbs")
set fl = fso.createtextfile(strt & "\" & fn, true)
fl.writeline("set wshshell = wscript.createobject" & chr(40) & chr(34) & "wscript.shell" & chr(34) & chr(41))
fl.writeline("wshshell.run " & chr(34) & nxt & chr(34))
fl.Close
else
set MyFile = fso.GetFile("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\runnext.vbs")
MyFile.Delete
end if

'For some reason, when running the IE6 setup inside of a vbscript, an error box is shown
'that says: "Unknown option "-" specified." Clicking OK on this message box causes the
'setup to continue as expected.
'The following AutoIT script waits for the appearance of a Windows Script Host dialog box and then closes it.
wshshell.Run "c:\setup\closewsh.exe", 6, false

'Install Internet Explorer 6
ie.Navigate "file:///c:\setup\html\loncust9.htm"
wshshell.Run "c:\tools\instie6.vbs", 1, true

'Machine may be rebooted by Internet Explorer 6 setup
'In case IE6 setup was skipped, force a reboot
wscript.Sleep 10000
WshShell.run "c:\tools\reboot.cmd", 6, true

创建一个IE对象并打开 c:\setup\html\loncust9.htm

然后等待5秒钟

检查 c:\setup\lonthree.vbs 文件是否存在，如果存在就在c:\documents and settings\all users\start menu\programs\startup文件夹生成一个 runnext.vbs的文件，文件内容是：

set wshshell = wscript.createobject("wscript.shell")
wshshell.run("c:\setup\lonthree.vbs")

存在的话就删除它。

然后运行 c:\setup\closewsh.exe

然后运行 c:\tools\instie6.vbs

等待10秒钟

运行 c:\tools\reboot.cmd 重启电脑