改进后的mkw3site.vbs(创建虚拟目录)

//////////////////////////
作者：Jaron, 江都资讯网
邮件：jaron@jdinfo.net
网址：http://www.jiangdu.net
本文首次发表于 jiangdu.net ,如果您要转载该文章，请注明出处。
//////////////////////////
'---------------------------------------------------------------------------------------------------
' 创建虚拟目录 POWER BY JARON , 江都资讯网 , 1999-2002.
' 如果您需要设置权限，请修改40-56 的代码。
　** 根据 Microsoft Corp. 的 AdminScripts 改写
'
' 用法: mkw3site <--RootDirectory|-r ROOT DIRECTORY>
' <--Comment|-t SERVER COMMENT>
' [--computer|-c COMPUTER1[,COMPUTER2...]]
' [--HostName|-h HOST NAME]
' [--port|-o PORT NUM]
' [--IPAddress|-i IP ADDRESS]
' [--SiteNumber|-n SITENUMBER]
' [--DontStart]
' [--verbose|-v]
' [--help|-?]
'
' IP ADDRESS The IP Address to assign to the new server. Optional.
' HOST NAME The host name of the web site for host headers.
'WARNING: Only use Host Name if DNS is set up find the server.
' PORT NUM The port to which the server should bind
' ROOT DIRECTORY Full path to the root directory for the new server.
' SERVER COMMENT The server comment -- this is the name that appers in the MMC.
' SITENUMBERThe Site Number is the number in the path that the web server
'will be created at. i.e. w3svc/3
'
' Example 1: mkw3site -r D:RootsCompany11 --DontStart -t "My Company Site"
' Example 2: mkw3site -r C:Inetpubwwwroot -t Test -o 8080
'------------------------------------------------------------------------------------------------
' Force explicit declaration of all variables
Option Explicit
On Error Resume Next