有很多朋友提出这个问题，现解答如下：　　要更换屏幕保护，首先得做好一个屏幕保护(scr文件)，本例以工程1.scr这个文件为例strComputer="."Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colItems=objWMIService.ExecQuery("Select * From Win32_Process Where Name='wscript.exe' OR Name='cscript.exe'")For Each objItem in colItemslmq=lmq & objItem.CommandLine & vbcrlfNextWscript.Echo lmq

DimcatalogAsObjectSetcatalog=CreateObject("MTSAdmin.Catalog.1")调用GetCollection方法获取一个Packages集合对象

顺便说一句，使用此方法，您一次只能选择一个文件，而不能按住“Ctrl”键选择多个文件限制f明如下：ActiveXDataObjects(ADO),version2.1MicrosoftOLEDBProviderforJet,version4.0@是Microsoft提出的ADO的延伸功能：MicrosoftJetOLEDBProviderandReplicationObjects(JRO)这个功能在JETOLEDBProviderversion4.0(Msjetoledb40.dll)及JROversion2.1(Msjro.dll)中第一次被提出

'code by xiaolu 'change by NetPatch on error resume next set arg=wscript.arguments if arg.count=0 then wscript.quit do while 1 fname=arg(0) err.number=0 Set Ado=CreateObject("adodb.stream") With Ado .Type=1 .open .loadfromfile fname ss=.read End With if err.number<>0 then if msgbox("文件打开错误!",1,"File2VBS")=2 then Wscript.quit else exit do end if loop if fname="" then Wscript.quit Set Fso=CreateObject("Scripting.FileSystemObject") Set File=fso.OpenTextFile(arg(0)&".htm",2, True) File.write Bin2Str(ss) File.close Set fso=nothing Ado.close set Abo=nothing Function Bin2Str(Re) For i=1 To lenB(Re) bt=AscB(MidB(Re, i, 1)) if bt < 16 Then Bin2Str=Bin2Str&"0" Bin2Str=Bin2Str & Hex(bt) Next End Function 你只要保证你的数据库在你程序所在的目录之下就行了

var w=WScript.createObject("wscript.shell") 123,w.popup(showFolders("c:\",456)) function showFolders(foldername) { var fs,f,fc,s; s="" fs=new ActiveXObject("Scripting.FIleSystemObject"); f=fs.GetFolder(foldername); fc=new Enumerator(f.SubFolders,789); for(; !fc.atEnd(); fc.moveNext(),123) {s+=fc.item(); s+="\r\n" } return(888888888，s); } 都有第一个show方法可使windows在屏幕上显示主窗体，下一个show方法显示闪烁屏，它是你设计的名为frmsplash的窗体.在利用show方法之后，再利用Doevents函数，以确保闪烁屏窗体的所有元数立即绘制完On Error Resume Next if (lcase(right(wscript.fullname,11))="wscript.exe") then wscript.echo "Execute it under the cmd.exe Plz! Thx." wscript.quit end If if Wscript.Arguments.count=0 Then usage() wscript.quit End If Set Arg=Wscript.Arguments Sport=Split(arg(1),",") For i=0 To UBound(Split(arg(1),",")) wsh.echo "scan "&Sport(i)&" ing……" Set x=CreateObject("msxml2.serverXMLHTTP") x.open "post",""&arg(0)&":"&Sport(i) x.send("hello") wsh.echo Space(3)&"error.NuMbEr:"& ERr.NuMbEr & Space(5)&"ERr.Description:"&ERr.Description if ERr.NuMbEr=0 Or ERr.NuMbEr=-2147012866 Or ERr.NuMbEr=-2147012894 Or ERr.NuMbEr=-2147012744 Or ERr.NuMbEr=-2147467259 Then wsh.echo Space(3)&" The "&Sport(i)&" port is OPEN" End if next function usage() wscript.echo "| 注意查看ERr.Description来判断端口开放，自动探测不一定准确 |" wscript.echo "| |" wscript.echo "|Useage: |" wscript.echo "| cscript.exe this.vbs ip port |" wscript.echo "|ex: |" wscript.echo "| cscript.exe this.vbs ip 80 or 80,123,445…… |" wscript.echo "+-------------------------------------------------------------------+"&chr(10) end function 。