path=CreateObject("WScript.Shell").CurrentDirectory

set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile(path+"\reg.txt",1)
s=f.readall
f.close
path=replace(path,"\","\\")

s=replace(s,"EXE_PATH",path)
set f2=fso.createtextfile("reg.reg")
f2.write s
f2.close

set wshshell=createobject("wscript.shell")
wshshell.run "regedit.exe /s reg.reg"

wshshell.run "REGSVR32.EXE /s MSCOMCTL.OCX"
wshshell.run "REGSVR32.EXE /s MSCOMCT2.OCX"

msgbox "绿化Access成功!Easybiz提供(www.jbesoft.cn)"