DIM HKEY_ROOT, HKEY_PATH, HKEY_KEY
HKEY_ROOT = "HKEY_CURRENT_USER"
HKEY_PATH = "/ Software / Microsoft / Internet Explorer / Pagesetup"
'// Set the page foot foot of the web page
Function Pagesetup_null ()
ON Error ResMe next
Set regwsh = creteObject ("wscript.shell")
HKEY_KEY = "/ header"
RegWsh.Regwrite HKEY_ROOT HKEY_PATH HKEY_KEY, ""
HKEY_KEY = "/ footer"
RegWsh.Regwrite HKEY_ROOT HKEY_PATH HKEY_KEY, ""
Window.alert "successfully cleared the header and footer!"
END FUNCTION
'// Set the page foot feet of the web page to default
Function Pagesetup_default ()
ON Error ResMe next
Set regwsh = creteObject ("wscript.shell")
HKEY_KEY = "/ header"
RegWsh.Regwrite HKEY_ROOT HKEY_PATH HKEY_KEY, "& W & W & W & W", & P / & P "
HKEY_KEY = "/ footer"
RegWsh.Regwrite HKEY_ROOT HKEY_PATH HKEY_KEY, "& U & B & D"
Window.alert "Successfully Recovery Print Header and Foot!"
END FUNCTION
script>