'/*=========================================================================
' * 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

'/*=========================================================================
' * Intro 让IIS建立的站点默认是.net 2.0的,而不是.net 1.1的,没有使用WMI,所以在操作前先得停止IIS相关服务
' * FileName ChangeMetaBaseScriptMaps.vbs
' * Author yongfa365
' * Version v2.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/ChangeMetaBaseScriptMaps.vbs.html
' * MadeTime 2008-07-24 17:38:20
' * LastModify 2008-08-11 20:36:00 上次发时出错了，现在修正一下
'另：我发的文章在网上搜索时只找到了转载我文章的人的地址，而我的地址根本就没有，很是郁闷
' *==========================================================================*/

'/*=========================================================================
' * Intro 定时提醒，格式：时间|提示语，具体使用方法可以参考例子
' * FileName Remind.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/Remind.vbs.html
' * MadeTime 2008-06-18 19:26:32
' * LastModify 2008-06-18 19:26:32
' *==========================================================================*/

'/*=========================================================================
' * Intro       .txt文本切割器，默认为8000个字符切为一个文件。支持拖动。
' * FileName    SplitFile.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa36..

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

Set objHTML=CreateObject("htmlfile")  'xmlfile、mhtmlfile都可以
ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipboardText

已经第二次了，上班后没把电话解除，总记不起这件事。做了个备忘录，放在启动项里，每次启动系统后都会执行，弹出相关事项，即便自己没有记住也可以给个提醒了
 
msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务")
'msgbox jo..

这个是用来操作ACCESS数据库的东西，遍历表，遍历表的所有字段及字段的属性都会用到这个，
首先给个完全版的地址，如果您机器上装过ＯＦＦＩＣＥ应该可以打开的：ADOX 对象模型，地址是："C:\Program Files\Common Files\Microsoft Shared\OFFICE11\2052\ADO210.CHM"，ADOX对象模型图：
1、ADOX 概述
Micros..