'/*========================================================================= 
' * Intro 主要是解决在使用WebBrowser打印时，得先设置IE安全性的问题 
' * FileName 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs 
' * Author yongfa365 
' * Version v1.0 
' * Email yongfa365[at]qq.com 
' * MadeTime 2009-06-18 23:12:55 
' * LastModify 2009-06-18 23:12:55 
' *==========================================================================*/ 

Const HKEY_CURRENT_USER = &H80000001 
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\.rootdefault:StdRegProv") 

'添加网站到安全站点 
strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZoneMapDomainsyongfa365.com" 
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath 
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "http", 2 

'设置安全站点打开ActiveX时提示 
strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones2" 
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "CurrentLevel", "00000000" 
objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "1201", "00000001" 

'取消页眉页脚 
strKeyPath = "SoftwareMicrosoftInternet ExplorerPageSetup" 
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, "header", "" 
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, "footer", "" 

msg = "IE安全设置完成"&vbCrLf&vbCrLf 
msg = msg & "如果还不能正常打印，你需要关闭所有打开的IE浏览器窗口，然后再登录OA进行打印"&vbCrLf&vbCrLf 
msg = msg & "如果还是有问题，您可以联系技术组:柳永法 " 
MsgBox msg, vbInformation, "温馨提醒！"

文件夹定时自动备份 AutoBackUpFolder.vbs
'/*========================================================================='*Intro定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动

iis PHP安装脚本 PHPInstall.vbs V3.1
'/*========================================================================='*IntroPHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘

HTA文件去除html控件认证和接收命令行参数
一是利用hta去掉htm的控件验证hta1的代码如下：htmlheadtitleSampleHTMLApplicationone/title/headbodyonload="Viewer.document.location.href='activexcontrol.htm'"iframeid="Viewer"application