我在软件测试这个行业也是做过很多年了，自己的方向也是自动化测试，对VBScript脚本也算是了解，在测试过程中 也应用了一些，所以来谈谈如何使用VBScript来开发自动化测试。 　　首先先介绍几个可以在自动化测试开发中用到的VBScript的几个函数。 1、InStr 函数 描述 　　返回某字符串在另一字符串中第一次出现的位置。 语法

将下面代码存为.vbs，双击运行。然后重启一下系统，就修改了系统的远程桌面的默认的3389端口 ''##################### ''VBS修改远程桌面的默认端口,并添加至Windows防火墙 ''作者51windows.Net ''56868为要设置的端口 ''##################### SetWshShell=WScript.CreateObject('WScript.Shell') WshShell.RegWrite'HKEY_

DimxStatus,tStatus,vServer,vHeader,vRsBody GetError=InputBox('请输入网站,例如:http://www.hackerxfiles.com/files/list.asp?id=415','请输入网址','http://www.hackerxfiles.com/files/list.asp?id=415') IfGetError=''Then MsgBox('输入错误，程序结束！') WScript.Quit EndIf GetError=

functionSend_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment) ''codebyNetPatch ''VBS发送邮件参数说明 ''You_Account：你的邮件帐号 ''You_Password:你的邮件密码 ''Send_Email:主要邮件地址 ''Send_Email2:备用邮件地址 ''Send_Topic:邮件主题 ''Send_Body:邮

strComputer='.' SetobjWMIService=GetObject('winmgmts:'_ &'{impersonationLevel=impersonate}!\\'&strComputer&'\root\cimv2') SetcolFolders=objWMIService.ExecQuery_ ('Select*fromWin32_Directorywhere') ForEachobjFolderincolFolders errResults=objFolder.Com

这个组件在xp、2003上默认都可以用的，调用后可以听到电脑上一个国外老男人在说话。好比这样一句代码：●CreateObject('SAPI.SpVoice').Speak'ILOVEYOU'●，保存成vbs后缀后双击就会听到英语的我爱你了。但随之而来我们讲到另一个问题，不保存成vbs或vbe后缀如何运行vbs代码。 一、用mshta来运行vbs hta这种类型的文件运行后

DimwsObj SetwsObj=CreateObject('Wscript.Shell') ''AddtheLogLevelValuetoKerberosKeyinRegistry. OnErrorResumeNext WScript.Echo'EnablingKerberosLogging...' wsObj.RegWrite'HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\1KnowledgeConsistencyCheck

WScript.Echo'EnablingKerberosLogging...' constHKEY_LOCAL_MACHINE=&H80000002 strComputer='.' SetStdOut=WScript.StdOut SetoReg=GetObject('winmgmts:{impersonationLevel=impersonate}!\\'&_ strComputer&'\root\default:StdRegProv') strKeyPath='SOFTWARE\Micro