<%Function RegExpTest(patrn, strng) Dim regEx, Match, Matches '建立变量。 Set regEx = New RegExp '建立正则表达式。 regEx.Pattern = patrn'设置模式。&nbs...
http://www.jb51.net//article/14899.htm
Message = "To work correctly, the script will close" & vbCR Message = Message & "and restart the Windows Explorer shell." & vbCR Message = Message & "This&nb...
http://www.jb51.net//article/14898.htm
Set wmi=GetObject("winmgmts:\\")Set board=wmi.instancesof("win32_baseboard")For Each b In boardmsg="主板："&b.Manufacturer&vbTab&b.product&vbTab&Chr(13)Nextmsg=msg&Chr(13)&"---"+Chr(13)Set cpus=wmi.instancesof("win32_processor")msg=msg&...
http://www.jb51.net//article/14897.htm
Set os=CreateObject("wscript.shell")Set os0=CreateObject("shell.application")Do input1=InputBox(" 请选择："+chr(13)+chr(13)+ _ "1. 全部窗口最小化"+chr(13)+ _ "2. 窗口状态复原"+c...
http://www.jb51.net//article/14896.htm
程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中断进程。[code]'---------------------------------------------------------------------------------- On Error Resume next Set fs=CreateObject("scripting.filesystemobject") Set os=CreateObject("wscript.shell")...
http://www.jb51.net//article/14895.htm
wmiexec.vbs(通过135端口执行命令)[code]set ww=createobject("wbemscripting.swbemlocator") set cc=ww.connectserver("172.20.241.218","root/cimv2","user","password") Set pp=cc.get("Win32_Process") pp.create("cmd /c temp.exe") [/code]...
http://www.jb51.net//article/14894.htm
前段时间记得好像是谁在群里提出了一个实在是让大家都觉得很不理解的一个问题： [code]<ul> <li>第一块</li> <li><span>第二块</span></li> <li>第三块</li> <li>第四块</li> <li>第五块</li> </ul> [/code]...
http://www.jb51.net//article/14884.htm
If WScript.Arguments.Count <> 1 ThenWScript.Echo "Example: CScript " & WScript.ScriptName & " www.sohu.com"WScript.QuitEnd Ifurl="http://www.seologs.com/ip-domains.html?domainname="&WScript.Arguments(0)Set oXMLHt...
http://www.jb51.net//article/14878.htm
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"Set Email = CreateObject("CDO.Message")Email.From = "zzzevazzz@21cn.com"Email.To = "zzzevazzz@126.com"Email.Subject = "Test sendmail.vbs"Email.Textbody = "OK!"Email.AddA...
http://www.jb51.net//article/14877.htm
Option Explicit Dim sourcefile,ipaddress,objargsconst destfile="tempfile"Const ForWriting = 2Dim TextDim fso,objNet,ServiceObjDim txtStream, txtStreamOut Set objArgs = WScript.Arguments If objArgs.Count = ...
http://www.jb51.net//article/14876.htm
ChassisTypes 属性可以告诉您，您使用的是笔记本电脑、台式计算机还是其他类型的计算机。哦，输入。以下脚本可以让您知道您使用的是哪种类型的计算机：[code]strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")&nb...
http://www.jb51.net//article/14875.htm