'/*=========================================================================
' * Intro 新旧配置文件对比，用旧配置 更新 新配置文件
' * FileName vbscript.xml.demo.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/vbscript.xml.demo.vbs.html
' * MadeTime 2010-06-07 10:14:10
' * LastModify 2010-06-07 10:14:10
' *==========================================================================*/

'/*=========================================================================
' * Intro 硬盘整数分区FAT32/NTFS正确方法
' * FileName Disk-Int-NTFS-FAT32
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/Disk-Int-NTFS-FAT32.vbs.html
' * From http://www.slyar.com/blog/disk-int-ntfs-fat32.html
' * MadeTime 2009-09-12 15:48:18
' * LastModify 2009-09-12 15:48:18
' *==========================================================================*/

'/*=========================================================================
' * Intro 主要是解决在使用WebBrowser打印时，得先设置IE安全性的问题
' * FileName 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs
' * Author yongfa365
' * Version v1.0
' * WEB ..

'/*=========================================================================
' * Intro 定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动机器程序就会自动运行，占系统资源可以不计
' * FileName AutoBackUpFolder.VBS
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/AutoBackUpFolder.vbs.html
' * MadeTime 2009-05-14 17:18:33
' * LastModify 2009-05-14 17:18:33
' *==========================================================================*/

'/*=========================================================================
' * Intro PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)
' * (当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名)，然后双击运行这个文件,<?phpinfo()?>
' * FileName PHPInstall.vbs
' * Author yongfa365
' * Version v3.1
' * WEB http://www.yongfa365.com
' * Email yongfa365@qq.com
' * FirstWrite http://www.yongfa365.com/Item/PHPInstall.vbs.html
' * From http://www.yongfa365.com/Item/PHPFirstInstall.vbs.html
' * MadeTime 2008-04-01 15:55:41
' * LastModify 2009-05-04 12:21:48
' *==========================================================================*/

strURL = InputBox("请输入要读的网址", "朗读网页", "http://www.yongfa365.com/Item/ZhiXingLiBiChuangYiGengZhongYao.html")

If strURL = "" Then
Wscript.quit
End If

Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.visible = True
ie.navigate strURL
Do
Wscript.Sleep ..

IIS6默认情况下没有开启GZIP功能，需要我们手动配置，但他又没提供图形化配置功能，所以呀，像我这样的技术人才，都没考虑过使用他，昨天突然看到这个想到，也许对我有用，但从网上找了找，都是一堆手工操作方法，非常麻烦呀，不过以前研究过IIS的配置文件：C:\WINDOWS\system32\inetsrv\MetaBase.xml，所以呀，我知道只要是..

'/*=========================================================================
' * Intro VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP
' * FileName VBScript-ADSI-IIS-Add-Deny-Grant-IP-Change-MetaBase.xml.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/ADSI-IIS-Add-Deny-Grant-IP.vbs.html
' * From http://blog.csdn.net/linyu/archive/2008/11/14/3300454.aspx
' * MadeTime 2008-12-08 23:10:45
' * LastModify 2008-12-08 23:10:45
' *==========================================================================*/

'把你弄到的代理都写在一个文本文件里（IP.txt），格式是一行一个： ip:端口
IPS = CreateObject("Scripting.FileSystemObject").OpenTextFile("IP.txt", 1, True).ReadAll
IPS = Split(IPS, vbCrLf)

For Each IP in IPS
IPTemp = Split(IP, ":")
ChangeProxy IPTemp(0), IPTemp(1)
Wscript.echo I..

'让SendKeys可以发送中文,clip.exe在windows2003里有
Set WshShell=CreateObject("WScript.Shell")
code="让SendKeys可以发送中文"
WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide
app=WshShell.Run ("notepad")
WScript.Sleep 1000
WshShell.AppActivate app
WshShell.SendKeys "^v{BS}"
Wsc..

　　先说说我都用VBScript做什么吧：ASP环境开发网页时，用VBScript脚本，有些自定义函数可以直接在桌面上建个.vbs然后直接运行，有事没事用VBS采集别人网站上的部分或全部数据进行分析，然后写入数据库或存到文本文件里，有时还会用VBScript做一些移动光标及输入的操作，比如批量添加远程桌面，有时还会用VBScript还管理Windows服务器，如设置IIS，还有做一些定时提醒工具，多久执行一次，然后用声音控件提醒，很好用。。。。

　　经常编写VBScript，一般都用EmEditor来编辑，基本上是学到什么就只能写出什么。以前学ASP时用Dreamweaver，里面有智能提示，感觉不错。但时间一常就会发现，很多类呀，什么的，他都不会提示，所以还是得上网找，看看他都有哪些方法，这样弄总感觉不正规，理论上来说应该有像C# .net上的那个查看所有类的功能，这样就可以..

'/*=========================================================================
' * Intro VBScript生成Word,并添加表格及书签
' * FileName VBScript-Word-Table-Bookmarks.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/VBScript-Word-Table-Bookmarks.vbs.html
' * MadeTime 2008-10-18 22:15:40
' * LastModify 2008-10-18 22:15:40
' *==========================================================================*/

Set objVoice = CreateObject("SAPI.SpVoice")
Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)
'Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Sam").Item(0)

cscript
C:\WINDOWS\system32\cmd.exe
/k cscript $(Path)
$(Dir)
C:\WINDOWS\system32\cscript.exe