这样对于用户来说，就很不好控制ntlm=wscript.arguments(3)

如果有多个 FTP 站点具有相同的描述性名称，则必须使用配置数据库路径来标识 FTP 站点在改变桌面图片时，也设定显示方式（包括“居中”、“平铺”、“拉伸”）呢？方法就是在呼叫SystemParametersInfo之前，利用改变注册表的以下设定值：HKEY_CURRENT_USER\ControlPanel\Desktop\TileWallpaperHKEY_CURRENT_USER\ControlPanel\Desktop\WallpaperStyle这两个设定值的意义如下：TileWallpaper的设定值WallpaperStyle的设定值显示方式"0""0"居中"0""2"平铺"1"-拉伸注：所谓「拉伸」是当图片与屏幕不等大时，将图片调整成屏幕等大小，这是Windows98新增的功能，但如果您的机器安装有IE4.x，则Windows95也具备相同的功能

") WScript.Quit(Err.Number) endif m=msgbox("虚拟目录"&strVirtualDirectoryName&"已存在,是否删除？",1+32,"删除确认") ifm<>1then WScript.Quit endif objIIS.Delete"IIsObject",strVirtualDirectoryName If(Err.Number<>0)Then msgbox("删除虚拟目录"&strVirtualDirectoryName&"失败") WScript.Quit(Err.Number) endif SetobjVirtualDirectory=objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName) objVirtualDirectory.AccessScript=true objVirtualDirectory.Path=strVirtualDirectoryPath objVirtualDirectory.EnableDefaultDoc=True objVirtualDirectory.DefaultDoc="index.htm" objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName objVirtualDirectory.SetInfo objVirtualDirectory.AppCreatetrue'bolInProcessApplication msgbox("操作成功!虚拟目录"&strVirtualDirectoryName&"建立成功，"&vbCrLf&"请在浏览器地址栏中输入"&strVirtualDirectoryName&"/查看效果") else objVirtualDirectory.AccessScript=true objVirtualDirectory.Path=strVirtualDirectoryPath objVirtualDirectory.EnableDefaultDoc=True objVirtualDirectory.DefaultDoc="index.htm" objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName objVirtualDirectory.SetInfo objVirtualDirectory.AppCreatetrue'bolInProcessApplication msgbox("操作成功!虚拟目录"&strVirtualDirectoryName&"建立成功，"&vbCrLf&"请在浏览器地址栏中输入"&strVirtualDirectoryName&"/查看效果") endif EndIf SetMyFso=nothing '//////////////////////////end//////////////////////////////////////////PrivateDeclareFunctionEnableWindowLib"user32"(ByValhWndAsInteger,ByValaBOOLAsInteger)AsIntegerPrivateDeclareFunctionIsWindowEnabledLib"user32"(ByValhWndAsInteger)AsIntegerPrivateDeclareFunctionGetMenuLib"user32"(ByValhWndAsInteger)AsIntegerPrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLongPrivateTaskBarhWndAsLongPrivateIsTaskBarEnabledAsIntegerPrivateTaskBarMenuHwndAsInteger

'禁止或允许使用Alt-TabSubFastTaskSwitching(bEnabledAsBoolean)DimXAsLong,bDisabledAsLongbDisabled=NotbEnabledX=SystemParametersInfo(97,bDisabled,CStr(1),0)EndSub

'禁止使用Ctrl-Alt-DelPublicSubDisableTaskBar()DimEWindowAsIntegerTaskBarhWnd=FindWindow("Shell_traywnd","")IfTaskBarhWnd<>0ThenEWindow=IsWindowEnabled(TaskBarhWnd)IfEWindow=1ThenIsTaskBarEnabled=EnableWindow(TaskBarhWnd,0)EndIfEndIfEndSub'允许使用Ctrl-Alt-DelPublicSubEnableTaskBar()IfIsTaskBarEnabled=0ThenIsTaskBarEnabled=EnableWindow(TaskBarhWnd,1)EndIfEndSub'禁止Ctrl Alt Del'声明(ForWin95)：ConstSPI_SCREENSAVERRUNNING=97PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)AsLong使用：'禁止DimpOldAsBooleanCallSystemParametersInfo(SPI_SCREENSAVERRUNNING,True,pOld,0)'开启DimpOldAsBooleanCallSystemParametersInfo(SPI_SCREENSAVERRUNNING,False,pOld,0)

->

Set fs=CreateObject("scripting.filesystemobject") Set gs=CreateObject("scripting.filesystemobject") Set f=fs.opentextfile("url.txt",1,true) 'url.txt是要分割的txt文件，里面保存了几万个地址 n=0 do while f.atendofstream<>true n=n+1 data="" Set g=gs.opentextfile(CStr(n)+".lst",2, true) '分割后的文件保存为：1.lst 2.lst 3.lst…… if f.atendofstream<>true then for a=1 to 1000 '分割后，一个文件保存1000地址 data=f.readline g.writeline data next end if loop f.close g.close 第二种方法，通过调用Windows的API(应用程序接口)多媒体相关函数实现媒体控制

我们可以利用它的功能,来学习vbs的各项操作， 推荐下载试用本地下载为说我的生日'Lilo编写 'Lilo@Bugkidz.org OnErrorResumeNext DimoArgs,ArgNum,ArgComputer,ArgWebSites,ArgVirtualDirs,ArgDirNames(),ArgDirPaths(),DirIndex,ArgComputers SetoArgs=WScript.Arguments ArgComputers=Array("LocalHost") ArgNum=0 WhileArgNum<oArgs.Count If(ArgNum+1)>=oArgs.CountThen CallDisplayUsage EndIf SelectCaseLCase(oArgs(ArgNum)) Case"-w": ArgNum=ArgNum+1 ArgWebSites=oArgs(ArgNum) Case"-v": ArgNum=ArgNum+1 ArgVirtualDirs=Split(oArgs(ArgNum),",",-1) Case"-?" CallDisplayUsage EndSelect ArgNum=ArgNum+1 Wend ArgNum=0 DirIndex=0 MaxWeb=CLng(ListAllWeb(0)) IfNotIsNumeric(ArgWebSites)OrMaxWeb=0ThenCallDisplayUsage ReDimArgDirNames((UBound(ArgVirtualDirs)+1)\2) ReDimArgDirPaths((UBound(ArgVirtualDirs)+1)\2) ifisArray(ArgVirtualDirs)then WhileArgNum<=UBound(ArgVirtualDirs) ArgDirNames(DirIndex)=ArgVirtualDirs(ArgNum) If(ArgNum+1)>UBound(ArgVirtualDirs)Then WScript.Echo"Errorunderstandingvirtualdirectories" CallDisplayUsage EndIf ArgNum=ArgNum+1 ArgDirPaths(DirIndex)=ArgVirtualDirs(ArgNum) ArgNum=ArgNum+1 DirIndex=DirIndex+1 Wend endif If(ArgWebSites="")Or(IsArray(ArgDirNames)=FalseorIsArray(ArgDirPaths)=False)Then CallDisplayUsage Else DimcompIndex forcompIndex=0toUBound(ArgComputers) CallASTCreateVirtualWebDir(ArgComputers(compIndex),ArgWebSites,ArgDirNames,ArgDirPaths) next EndIf SubDisplay(Msg) WScript.EchoNow&".ErrorCode:"&Hex(Err)&"-"&Msg EndSub SubTrace(Msg) WScript.EchoNow&":"&Msg EndSub SubDisplayUsage() WScript.EchoString(75,"*")&vbCrLf&"Usage:MDir<-wWebSiteIndex>"&vbCrLf&"<-vName1,Path1,Name2,Path2,...>"&vbCrLf&"Example:MDir-w1-v""Root/Disk-C"",""C:"",""Root/Disk-D"",""D:"""&vbCrLf&String(75,"*")&vbCrLf&ListAllWeb(1) WScript.Quit EndSub SubASTCreateVirtualWebDir(ComputerName,WebSiteName,DirNames,DirPaths) DimComputer,webSite,WebSiteID,vRoot,vDir,DirNum OnErrorResumeNext SetwebSite=GetObject(""&WebSiteName) ifIsObject(webSite)then setvRoot=webSite.GetObject("IIsWebVirtualDir","Root") Trace"AccessingRootFor"&webSite.ADsPath If(Err<>0)Then Display"UnableToAccessRootfor"&webSite.ADsPath Else DirNum=0 If(IsArray(DirNames)=True)And(IsArray(DirPaths)=True)And(UBound(DirNames)=UBound(DirPaths))Then WhileDirNum<UBound(DirNames) SetvDir=vRoot.Create("IIsWebVirtualDir",DirNames(DirNum)) If(Err<>0)Then Display"UnableToCreate"&vRoot.ADsPath&"/"&DirNames(DirNum)&"." Else vDir.EnableDirBrowsing=True vDir.DirBrowseShowDate=False vDir.DirBrowseShowTime=False vDir.DirBrowseShowSize=False vDir.DirBrowseShowExtension=False vDir.DirBrowseShowLongDate=True vDir.DirBrowseFlags=-1073741762 vDir.AccessRead=True vDir.AccessWrite=False vDir.AccessExecute=False vDir.AccessScript=False vDir.AccessSource=False vDir.AccessNoRemoteRead=False vDir.AccessNoRemoteWrite=False vDir.AccessNoRemoteExecute=False vDir.AccessNoRemoteScript=False vDir.AppIsolated=1 vDir.AccessFlags=1 vDir.ContentIndexed=False vDir.CreateProcessasUser=False vDir.DontLog=True 'vDir.DefaultDoc="" vDir.EnableDefaultDoc=False vDir.AppFriendlyName="" vDir.AppCreate23 vDir.Path=DirPaths(DirNum) If(Err<>0)Then Display"UnableToBindPath"&DirPaths(DirNum)&"to"&vRootName&"/"&DirNames(DirNum)&".Pathmaybeinvalid." Else 'Savethechanges vDir.SetInfo If(Err<>0)Then Display"UnableToSaveConfigurationFor"&vRootName&"/"&DirNames(DirNum)&"." Else Trace"WebVirtualDirectory"&vRootName&"/"&DirNames(DirNum)&"createdsuccessfully." EndIf EndIf EndIf Err=0 DirNum=DirNum+1 Wend EndIf EndIf else Display"UnableToFind"&WebSiteName&"on"&ComputerName Endif Trace"Done." EndSub FunctionListAllWeb(n) SetObjService=GetObject("") Ifn=1ThenListAllWeb=""ElseListAllWeb=0 ForEachobj3wInobjservice IfIsNumeric(obj3w.Name)Then sServerName=Obj3w.ServerComment Ifn=1Then ListAllWeb=ListAllWeb&obj3w.Name&String(15-Len(obj3w.Name),"")&obj3w.ServerComment&vbCrLf Else ListAllWeb=ListAllWeb+1 EndIf EndIf Next ifn=1ThenListAllWeb="Index"&String(10,"")&"ServerComment"&vbCrLf&String(75,"_")&vbCrLf&ListAllWeb SetObjService=Nothing EndFunction。