原来是微软专家的代码在这： http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx 我改成了全自动式的，不需要手要修改域的adsi连接字符串了，代码： 复制代码 代码如下: On Error Resume Next Set objRootDSE = GetObject('LDAP://rootDSE') strDomain = ObjRootDSE.Get('defaultNa

复制代码 代码如下: ''中文姓名笔画计算（VBS脚本版） dim word,key word=inputbox('请输入你要计算的文字') if word='' then msgbox '小样 不是叫你不要输入文字吗' Wscript.Quit end if key=char_wordnum(word) msgbox key Function char_wordnum(my_char_word) dim char_wordtable(26),wordnum_i,wordnum_j,wordnu

将下面的代码直接保存为jb51.vbs运行即可。 复制代码 代码如下: Function LastOne(Str,splitStr) ''输入字符和分隔符，得到最后一部分 LastOne = right(Str,len(Str)-InStrRev(Str,splitStr)) End Function msgbox LastOne('1,2,3', ',') 其实在实际应用中多用 数组实现，这样的效率对于大量的字符串来说，效率有点低了。

VBScript算一算你从出生到现在共计多少天. msgbox DateDiff('d','1/25/1981',Date) 1. 新建一个记事本，输入上面内容。 2. 存为.vbs文件。 3. 双击执行。 其实呢，算算你的天数也很有必要，要珍惜每一天的光阴，不能浪费。 msgbox DateDiff('d','1/25/1981',Date) [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

是有这个问题的。 第一，应当用正则判断较好。 第二，我用循环加返回结果大于30个长度就退出循环，我相信没有表名和字段名大于30个字母的，但是字段值有可能大于，这个地方解决的不够好。但是一般是用来查后台的管理员的用户名和密码，所以就放弃了。 复制代码 代码如下: set arg=wscript.arguments If (LCase(Right(Wscri

复制代码 代码如下: ''run_ie_reinstall.vbs - Runs the Internet Explorer Setup ''?Doug Knox - 4/10/2002 ''Downloaded from www.dougknox.com X = MsgBox('Do you want to reinstall Internet Explorer?', vbYesNo, 'Prompt!') Y = MsgBox('Do you want to reinstall Outloo

复制代码 代码如下: ''获取已初始化Soap对象 Public Function GetSoapClient(sURL) Dim oSoap Set oSoap = CreateObject('MSSOAP.SoapClient') oSoap.mssoapinit sURL Set GetSoapClient = oSoap End Function ''用户绑定对应序列号 sub BindCodeNumber() Dim oSoap Dim sURL dim str sURL = '' '

字符统计功能模块 复制代码 代码如下: Sub TongJi() Set objFSO = CreateObject('Scripting.FileSystemObject') Set objFile = objFSO.OpenTextFile('ok.txt', 1) strText = objFile.ReadAll All = Len(strText) S='` ~ ! @ # $ % ^ : '' , . / ? · ！ ￥ （ ） 、 【 】 ； ： ‘ '' “ ” ， 《 。 》