Option Explicit Dim WSHShell, fso, aser Dim old, win Dim mody, regNew Set fso = CreateObject("Scripting.FileSystemObject") Set WSHShell = CreateObject("WScript.Shell") win = WSHShell.ExpandEnvironmentStrings("%windir%") old = WSHShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page") mody = win & "\AboutBlank.htm" WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", mody WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FullScreen","yes" Set aser = fso.CreateTextFile(mody,True) aser.Write ("")