下一步，我们将用一个很小的样例程序来测试这个属性和方法，在测试时还将使用特定的技巧来追踪类和程序的运行如果它打开, 有将是更多信息被显示并且/或者被记录

''getIP set http=createobject("Microsoft.XMLHTTP") ipp="" http.open "get",ipp,false http.send ss=bytes2BSTR(Http.responsebody) intStrA=InStr(1,ss,"[",1)+1 sss=mid(ss,intStrA) intStrB=InStr(1,sss,"]",1)-1 ss=mid(ss,intStrA,intStrB) 'wscript.echo ss Function bytes2BSTR(vIn) strReturn="" For i=1 To LenB(vIn) ThisCharCode=AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn=strReturn & Chr(ThisCharCode) Else NextCharCode=AscB(MidB(vIn,i+1,1)) strReturn=strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i=i + 1 End If Next bytes2BSTR=strReturn End Function ''SendEmail NameSpace="" Set Email=CreateObject("CDO.Message") Email.From="发送邮箱" Email.To="接收邮箱" Email.Subject="主题" Email.Textbody=ss&date() 'ss为获取到的ip'Email.AddAttachment "附件的路径例如：C:\foo.zip" With Email.Configuration.Fields .Item(NameSpace&"sendusing")=2 .Item(NameSpace&"smtpserver")="smtp.163.com" 'smtp服务器地址 .Item(NameSpace&"smtpserverport")=25 .Item(NameSpace&"smtpauthenticate")=1 .Item(NameSpace&"sendusername")="账户名，发送邮箱的" .Item(NameSpace&"sendpassword")="密码" .Update End With Email.Send可以从工具栏或“视图”菜单打开DataView

至于第十讲的"WMI的使用"，这个比较重要，必须学习我们在很多时候都需要那种无Icon的窗口，如“关于……”“查找”等

不懂注册表、VBS、批处理不要紧，只要会学、会吸收别人的精华，会查找资料，|论坛|百度|GOOGLE|，然后能用好，就非常不错了 贴一些搜集的文字放到这吧在Informix之下设定独占性的资料库比较简单，主要就是以下指令DATABASEdatabase-nameEXCLUSIVE以下FUNCTION是Informix开启独占资料库的方式'************************************************************'DbNmae待开启的资料库'UserIDUserID'PassWDUserPassword'ExclusiveModeTrue表示以独占方式开启'ErrDescription如果开启过程有错，传回错误描述'传回值:一个ADBDB.Connection物件，有错时传回Nothing'*************************************************************PublicFunctionOpenConnection(ByValDbNameAsString,ByValUserIDAsString,_ByValPassWDAsString,ByValExclusiveMode,ErrDescriptionAsString)AsADODB.ConnectionDimcurConnAsNewADODB.Connection,connstrAsStringcurConn.Provider="MSDASQL"connstr="UID=" UserID ";PWD=" PassWD ";Database=" DbNameconnstr=connstr _";Driver={OpenLinkGeneric32BitDriver};"_ "Host=192.168.0.61;"_ ";FetchBufferSize=30"_ ";NoLoginBox=Yes"_ ";Options="_ ";Protocol=TCP/IP"_ ";ReadOnly=No"_ ";ServerOptions="_ ";ServerType=Informix7.2"curConn.ConnectionString=connstrOnErrorGoToerrh:curConn.OpenIfExclusiveModeThencurConn.Execute"DATABASE" DbName "EXCLUSIVE"EndIfErrDescription=""SetOpenConnection=curConnExitFunctionerrh:IfcurConn.State=adStateOpenThencurConn.CloseEndIfErrDescription=Err.DescriptionSetcurConn=NothingEndFunction使用方式Setcn=OpenConnection("cwwpf@eis","cww","jjh5612",True,Errstr)IfcnIsNothingThenMsgBoxErrstrEndIf而SQLServer就没有那样容易，我们知道有一个systemstoredprocedureSP_DBOPTIONdatabase-name,'SingleUser',TRUE'设定SingleUserModeSP_DBOPTIONdatabase-name,'SingleUser',FALSE'设定MultiUserMode不过这里有许多点要注意：1.必需是sa才有权2.透过OLEDBProvider来做时不会成功(forSQL6.5)3.如下面的范例中，虽我们成功的设定了SingleUserMode，但不表示我们接下来的建立连线会成功

Sub TongJi() Set objFSO=CreateObject("Scripting.FileSystemObject") Set objFile=objFSO.OpenTextFile("ok.txt", 1) strText=objFile.ReadAll All=Len(strText) S="` ~ ! @ # $ % ^ & * ( ) - _=+ \ | [ { ] } ; : ' , < . > / ? ・硬件和本范例是以一个stdPicture物件来存图形，之後於PictureBox中以特殊效果来显示该命令不创建或破坏内容，而只是简单地设置虚拟目录结构和 IIS 配置文件。