% FunctionRegExpTest(patrn,strng) DimregEx,Match,Matches''建立变量。 SetregEx=NewRegExp''建立正则表达式。 regEx.Pattern=patrn''设置模式。 regEx.IgnoreCase=True''设置是否区分字符大小写。 regEx.Global=True''设置全局可用性。 SetMatches=regEx.Execute(strng)''执行搜索。 ForEachMatchinMatches''遍历匹配

NameSpace='http://schemas.microsoft.com/cdo/configuration/' SetEmail=CreateObject('CDO.Message') Email.From='zzzevazzz@21cn.com' Email.To='zzzevazzz@126.com' Email.Subject='Testsendmail.vbs' Email.Textbody='OK!' Email.AddAttachment'C:\foo.zip' WithEm

''/*========================================================================= ''*Intro用XMLDOM分析QQ签名文档 ''*FileNameQQ_QianMing.vbs ''*Authoryongfa365 ''*Versionv2.0 ''*Emailyongfa365[at]qq.com ''*MadeTime2008-01-2220:55:25 ''*LastModify2008-02-2220:55:

Message='Toworkcorrectly,thescriptwillclose'&vbCR 　　Message=Message&'andrestarttheWindowsExplorershell.'&vbCR 　　Message=Message&'Thiswillnotharmyoursystem.'&vbCR&vbCR 　　Message=Message&'Continue?' 　　X=MsgBox(Message,vbYesNo,'Notice') 　　IfX=6Then 　　On

OptionExplicit Dimsourcefile,ipaddress,objargs constdestfile='tempfile' ConstForWriting=2 DimText Dimfso,objNet,ServiceObj DimtxtStream,txtStreamOut SetobjArgs=WScript.Arguments IfobjArgs.Count=2Then sourcefile=objArgs(0) ipaddress=objargs(1) Else ws

oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath oReg.SetExpandedStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue oReg.SetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValue

Setwmi=GetObject('winmgmts:\\') Setboard=wmi.instancesof('win32_baseboard') ForEachbInboard msg='主板：'&b.Manufacturer&vbTab&b.product&vbTab&Chr(13) Next msg=msg&Chr(13)&'---'+Chr(13) Setcpus=wmi.instancesof('win32_processor') msg=msg&'CPU特征:'+Chr(13)

ChassisTypes属性可以告诉您，您使用的是笔记本电脑、台式计算机还是其他类型的计算机。哦，输入。以下脚本可以让您知道您使用的是哪种类型的计算机： 复制代码 代码如下: strComputer='.' SetobjWMIService=GetObject('winmgmts:'_ &'{impersonationLevel=impersonate}!\\'&strComputer&'\root\cimv2') SetcolChassis=obj