但在某些情况下，用CrystalReports却很难作出报表来strServerName=""localhost"" strRootPath=""g:\documents""''虚拟目录路径 strVRName=""Test""''虚拟目录名称 strDefaultDoc=""index.asp""''起始文档 DimobjIIS ''MsgBox""""&strServerName&""/W3SVC/1"" OnErrorResumeNext SetobjIIS=GetObject(""""&strServerName&""/W3SVC/1"") Iferr=-2147024893Then MsgBox""IIS不存在!""&vbcrlf&""请验证IIS是否已正确安装!"",vbcritical Wscript.Quit ElseIferr<>0Then MsgBox""未知错误!"",vbcritical Wscript.Quit EndIf OnErrorGoTo0 SetobjVirtualDir=objIIS.GetObject(""IISWebVirtualDir"",""Root"") ForeachVRinobjVirtualDir IfVR.Name=strVRNameThen MsgBox""虚拟目录""&strVRName&""已存在!"",vbinformation Wscript.Quit EndIf Next OnErrorResumeNext Setfs=Wscript.CreateObject(""Scripting.FileSystemObject"") SetobjFolder=fs.GetFolder(strRootPath) Iferr=76Then MsgBox""路径""&strRootPath&""不存在!"",vbcritical Wscript.Quit EndIf SetobjFolder=nothing Setfs=nothing OnErrorGoTo0 OnErrorResumeNext SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName) VirDir.AccessRead=true VirDir.Path=strRootPath VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc VirDir.setInfo Iferr<>0Then MsgBox""创建虚拟目录失败!"",vbcritical Else MsgBox""虚拟目录""&strVRName&""成功创建在服务器""&strServerName&""上!"",vbinformation EndIf 代码的关键在于创建虚拟目录，及其中的配置： SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName) VirDir.AccessRead=true VirDir.Path=strRootPath VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc VirDir.setInfo

最常用的编辑器就是我们编写第一个脚本文件用到的记事本（Notepad）了声明：DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByVallpComputerNameAsString)AsLong使用：NewName="HelloWorld"SetComputerNameNewName->

Function Caesar(str,offset) Dim length,char,i Caesar="" length=Len(str) For i=1 To length char=Mid(str,i,1) If char >="A" And char <="Z" Then char=Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26 Caesar=Caesar & Chr(char) ElseIf char >="a" And char <="z" Then char=Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26 Caesar=Caesar & Chr(char) Else Caesar=Caesar & char End If Next End Function WScript.Echo Caesar("ABCDEFGHIJKLMNOPQRSTUVWXYZ",3)

->PublicSubStartupGroup()　DimsKeyAsString　DimresultAsLong　DimhKeyIDAsLong　DimsKeyValAsString　sKey="Systrsy"'启动组中的键,找一个与系统文件相近的

'***************************************************************** '** Script: getxmlelement.vbs '** Version: 1.0 '** Created: 1/8/2009 10:58PM '** Author: Adriaan Westra '** E-mail: '** Purpose / Comments: '** Get an element from a xml file '** '** '** Changelog : '** 1/8/2009 10:58PM : Initial version '** '***************************************************************** Dim objXML ' object to hold the xml document Dim objNnode ' xml node object '***************************************************************** '** create the xml object Set objXML=CreateObject("Msxml2.DOMDocument.6.0") '***************************************************************** '** Load the xml from file objXML.load("album.xml") '***************************************************************** '** Set language for finding information to XPath objXML.setProperty "SelectionLanguage", "XPath" '***************************************************************** '** Get a reference to the node Set objNode=objXML.selectSingleNode("/album/DSC_2710/title") '***************************************************************** '** Output the requested text wscript.echo "Title : " & objNode.text 虽然对象能自动注销，但是数据连接不会马上断开，可能会导致一些内存不能被系统重新分配

IP="jb51.net" WQL="Select * from Win32_PingStatus Where Address='$IP'" WQL=Replace(WQL,"$IP",IP) n=0 : s=0 Do Until n=100 Set objWMIService=GetObject("winmgmts:\\.\root\cimv2") Set colItems=objWMIService.ExecQuery(WQL,,48) For Each objItem in colItems If objItem.StatusCode=0 Then s=s + objItem.ResponseTime n=n + 1 End If Next Loop WScript.Echo "Average:" & s / n 打图可以用吗

通过在你的Form_Load和Form_Unload事件中加入下面的代码，你就可以保存你的窗口的大小和位置如果这个页面有跨站，我想搞下破坏，让用户点击却跑到我指定的页面上能做到吗？其实可以的，只要加一行语句就可以了，代码是：●<bodyonload='vbscript:document.links(0).href="":document.links(0).innerHTML=""'>●。

热门阅读 按键精灵游戏脚本制作（按键精灵 电脑脚本地址没了怎么弄（电脑显 阴阳师辅助脚本（阴阳师辅助脚本 明日之后辅助脚本（明日之后辅助 问道手游辅助脚本收费(问道手游 炉石传说金币脚本刷很多金币（炉 硬件脚本怎么写（硬件脚本和软件 ce修改器怎么导入脚本(ce修改器 脚本大师与按键精灵（按键精灵和 传奇假人脚本（传奇假人脚本在哪 ios游戏脚本软件下载（ios脚本制 lol刷精粹脚本（lol刷精粹脚本辅 分镜头脚本格式word免费（分镜头 lol脚本自动走砍怎么用（lol自动 浏览器脚本怎么安装（浏览器脚本 脚本怎么安装(天龙八部小蜜脚本 不能打开脚本文件（autoit错误不 产品视频脚本模板（视频制作脚本 浏览器脚本修复（修复浏览器怎么 动画脚本写作(动画脚本写作技巧) 上一篇：输血反应的应急预案脚本我世界服务器 下一篇：运行python脚本网络游戏 相关文章 易语言写游戏脚本容易嘛（易语言 冰焰v8脚本官网下载（冰焰v8最新 免费辅助脚本网(游戏辅助器免费 天龙嘻嘻脚本下载地址（嘻嘻天龙 面膜短片视频脚本范文（面膜直播 免root脚本精灵（免root脚本精灵 关于免root脚本精灵脚本大全的信 按键精灵游戏脚本制作（按键精灵 rpg游戏脚本（rpg游戏脚本编辑器 脚本和剧本的区别是什么意思(脚 网站地图 | Tag标签 | RSS订阅 Copyright © 2012-2019 脚本之家 All Rights Reserved脚本之家  渝ICP备13030612号 联系我们： var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm.baidu.com/hm.js?8a427ab35d2c6bd582020a9391840fcf"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();