1234

Dim WshShell
Set WshShell = CreateobXXXXXject("WscXXXXXript.Shell")

Function writereg()
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://tw.yahoo.com/", "REG_SZ"
End Function