VBS設定列印頁首

<script language="VBScript">
  dim hkey_root,hkey_path,hkey_key
  hkey_root="HKEY_CURRENT_USER"
  hkey_path="/Software/Microsoft/Internet Explorer/PageSetup"
  '//設定網頁列印的頁首頁尾為空白
  function pagesetup_null()
   on error resume next
   Set RegWsh = CreateObject("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 "成功清空列印頁首和頁尾！"
  end function
  '//設定網頁列印的頁首頁尾為預設值
  function pagesetup_default()
   on error resume next
   Set RegWsh = CreateObject("WScript.Shell")
   hkey_key="/header"   
   RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b頁碼,&p/&P"
   hkey_key="/footer"
   RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"
   window.alert "成功恢複列印頁首和頁尾！"
  end function
  </script>