用VBS修改IIS Metabase的代码_vbs

//////////////////////////
作者:Jaron, 江都资讯网 
邮件:jaron@jdinfo.net
网址:http://www.jiangdu.net
如果您要转载该文章,请注明出处。
////////////////////////// 
本文解释如何用 Microsoft 自带的adsutil.vbs 来修改 IIS Metabase 的设置方法,这里是通过调用 BAT批处理的方法来实现的,灵活运用一下,可以用于 InstallShield 和其他地方。 

测试环境:Windows 2000 Server (装有IIS服务)
所需文件::
1. cscript.exe 
2. adsutil.vbs (该文件在 C:\Inetpub\AdminScripts 下) 
已经在目标目录下创建了一个IIS的子目录 

在InstallShield中的应用:
######### 
LaunchAppAndWait( SUPPORTDIR ^ "vdir.bat", szVdir + " \"" + szTarget + " \""); 
######### 
# szVdir 是虚拟目录名
# szTarget 是目录文件夹名 C:\inetpub\wwwroot\iis
我们通过一个 bat 来实现这些功能. 

vdir.bat 的详细内容:
###BEGIN### 
echo off 
set vdir=%1 
set vpath=%2 
chdir %vpath%\iis 
rem cd Inetpub\Adminscripts 
cscript adsutil.vbs delete w3svc/1/root/%vdir%   # 删除已经存在的虚拟目录
cscript adsutil.vbs create_vdir w3svc/1/root/%vdir%  #创建虚拟目录 
cscript adsutil.vbs set w3svc/1/root/%vdir%/path %vpath%  # 主目录路径
cscript adsutil.vbs set w3svc/1/root/%vdir%/DefaultDoc "login.asp"  # 默认文档
###END### 

adsutil.vbs 还可以实现很多功能,大家自已去探索吧,以下是关于 adsutil.vbs 的帮助(英文)
================================================================================
Usage:
     ADSUTIL.VBS CMD [param param] 

Note: ADSUTIL only supports the "no switch" option of MDUTIL 

Description:
IIS K2 administration utility that enables the manipulation with ADSI parameters 

Standard MDUTIL Commands:
adsutil.vbs GET      path             - display chosen parameter
adsutil.vbs SET      path value ...   - assign the new value
adsutil.vbs ENUM     path ["/P" | "/A"] - enumerate all parameters for given path
adsutil.vbs DELETE   path             - delete given path or parameter
adsutil.vbs CREATE   path [KeyType]   - create given path and assigns it the given KeyType 

adsutil.vbs APPCREATEINPROC  w3svc/1/root - Create an in-proc application
adsutil.vbs APPCREATEOUTPROC w3svc/1/root - Create an out-proc application
adsutil.vbs APPCREATEPOOLPROC w3svc/1/root- Create a pooled-proc application
adsutil.vbs APPDELETE        w3svc/1/root - Delete the application if there is one
adsutil.vbs APPUNLOAD        w3svc/1/root - Unload an application from w3svc runtime lookup table.
adsutil.vbs APPDISABLE       w3svc/1/root - Disable an application - appropriate for porting to another machine.
adsutil.vbs APPENABLE        w3svc/1/root - Enable an application - appropriate for importing from another machine.
adsutil.vbs APPGETSTATUS     w3svc/1/root - Get status of the application 

New ADSI Options:
/P - Valid for ENUM only.  Enumerates the paths only (no data)
/A - Valid for ENUM only.  Enumerates all data that CAN be set on the node
KeyType - Valide for CREATE only.  Assigns the valid KeyType to the path 

Extended ADSUTIL Commands:
adsutil.vbs FIND             path     - find the paths where a given parameter is set
adsutil.vbs CREATE_VDIR      path     - create given path as a Virtual Directory
adsutil.vbs CREATE_VSERV     path     - create given path as a Virtual Server
adsutil.vbs START_SERVER     path     - starts the given web site
adsutil.vbs STOP_SERVER      path     - stops the given web site
adsutil.vbs PAUSE_SERVER     path     - pauses the given web site
adsutil.vbs CONTINUE_SERVER  path     - continues the given web site 

Samples:
 adsutil.vbs GET W3SVC/1/ServerBindings
 adsutil.vbs SET W3SVC/1/ServerBindings ":81:"
 adsutil.vbs CREATE W3SVC/1/Root/MyVdir "IIsWebVirtualDir"
 adsutil.vbs START_SERVER W3SVC/1
 adsutil.vbs ENUM /P W3SVC
Extended ADSUTIL Commands:
adsutil.vbs FIND             path     - find the paths where a given parameter is set
adsutil.vbs CREATE_VDIR      path     - create given path as a Virtual Directory
adsutil.vbs CREATE_VSERV     path     - create given path as a Virtual Server
adsutil.vbs START_SERVER     path     - starts the given web site
adsutil.vbs STOP_SERVER      path     - stops the given web site
adsutil.vbs PAUSE_SERVER     path     - pauses the given web site
adsutil.vbs CONTINUE_SERVER  path     - continues the given web site 

Samples:
 adsutil.vbs GET W3SVC/1/ServerBindings
 adsutil.vbs SET W3SVC/1/ServerBindings ":81:"
 adsutil.vbs CREATE W3SVC/1/Root/MyVdir "IIsWebVirtualDir"
 adsutil.vbs START_SERVER W3SVC/1
 adsutil.vbs ENUM /P W3SVC

时间: 2024-09-19 19:10:24

用VBS修改IIS Metabase的代码_vbs的相关文章

用VBS修改IIS Metabase 的代码_vbs

////////////////////////// 作者:Jaron, 江都资讯网  邮件:jaron@jdinfo.net 网址:http://www.jiangdu.net 如果您要转载该文章,请注明出处. //////////////////////////  本文解释如何用 Microsoft 自带的adsutil.vbs 来修改 IIS Metabase 的设置方法,这里是通过调用 BAT批处理的方法来实现的,灵活运用一下,可以用于 InstallShield 和其他地方.  测试环

用VBS修改IIS Metabase

//////////////////////////作者:Jaron, 江都资讯网 邮件:jaron@jdinfo.net网址:http://www.jiangdu.net如果您要转载该文章,请注明出处.////////////////////////// 本文解释如何用 Microsoft 自带的adsutil.vbs 来修改 IIS Metabase 的设置方法,这里是通过调用 BAT批处理的方法来实现的,灵活运用一下,可以用于 InstallShield 和其他地方.测试环境:Window

vbs 获取当前目录的实现代码_vbs

CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test 当前VBS路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathW

vbs 定时删除功能实现代码_vbs

参考代码一: 复制代码 代码如下: Function DeleteLog( )    Dim objFSO, objFolder, strPath, targetFSO, subFSO, DirPath       DirPath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path&"\Log\"    Set objFS

用vbs操作注册表实例代码_vbs

打开或关闭CMD:   Dim WSHShell, r, m, v, t, g Dim i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\system\DisableCMD" i="REG_DWORD" t="命令提示窗口开关&

vbs 注册表操作类代码_vbs

复制代码 代码如下: Option Explicit Const WBEM_MAX_WAIT = &H80 ' Registry Hives Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_USERS = &H80000003 Const HKEY_CURRENT_CON

vbs加administrator用户的代码_vbs

set wsnetwork=CreateObject("WSCRIPT.NETWORK") os="WinNT://"&wsnetwork.ComputerName Set ob=GetObject(os) '得到adsi接口,绑定 Set oe=GetObject(os&"/Administrators,group") '属性,admin组 Set od=ob.Create("user","test

vbs选择文件夹效果代码_vbs

不用组件的话有两种办法:  set objFile = CreateObject("SAFRCFileDlg.FileOpen")  Set objShell = CreateObject("Shell.Application")  本blog里都有示例.  如果调用vb组件,可以是:  flag = &h200  whichone = OpenFile("Choose a File!", "C:\", "E

用VBS修改(设置)系统时间和日期的代码_vbs

那天跟别人聊到 Y2K38 问题,于是想到一个恶作剧:用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后,这样某些依赖于 Unix 时间戳的程序就会出问题.那么怎样用 VBS 修改系统的时间呢? 最简单也是最没有技术含量的方法就是调用 cmd 的 date 和 time 命令: 复制代码 代码如下: 'Author: Demon 'Website: http://demon.tw 'Date : 2011/4/27 Dim WshShell Set WshShell = Cr