原創文章：歡迎轉載，轉載時請保留作者名及出處
作者:jacksonluo
一：IIS的服務器前期配置(其他的安全就不提了) (以 freeshare.com.cn為例 )
1.創建該域的(freeshare.com.cn)計算機用戶名，并設置一個安全密碼
2.創建該域的目錄文件夾如(D:/Inetpub/freeshare.com.cn)
3.設置目錄訪問權限，freeshare.com.cn對該目錄完全控制(提供匿名用戶訪問該網站)
4.創建一個該域名的描述(公司名) 的單獨應用進程池，為每一個虛擬主機創建獨立的應用程序進程池，保個別網站的問題不會影響整臺服務器的運行。創建進程池時可以單獨設定用戶名和密碼并設置CPU,連接數等。這里采用的是默認的。
5.創建一個虛擬主機，并選擇上面所創建的應用進程池，在目錄安全性中選擇匿名用戶freeshare.com.cn，并設置與計算機創建freeshare.com.cn用戶名的密碼一致，必須一致，否則無法訪問該網站。
OK，這個就對每個虛擬主機要做的，那么這些是不是需要全部的人工的去完成呢？答案是否定的，WINDOWS下也可以實現腳本編程哦，(呵呵我原來也是不知道的)
那么即然可以不用去手工完成，用什么呢？用VBSCRIPT腳本吧。
二：用腳本完成上述創建虛擬主機的動作
保存為createsiglewebsite.vbs
代碼如下:
Dim SiteNum,IPAddr,PortNum,LenComputer,WebServerComment,LogDirectory
Dim user_password,GroupName,tmpFolder,UserNameComp,WebServerAutoStart
Dim WebAnonymousUserName
WebServerComment="公司名"'網站描述、計算機用戶描述及全名采用這個變量
UserNameComp="freeshare.com.cn"'計算機用戶名及用戶目錄采用這個變量
HostName = ":80:www.freeshare.com.cn"'虛擬主機站點主機名
WebAnonymousUserName = getComputer()&"/"&UserNameComp'虛擬主機匿名用戶(前面加了本地計算機名)
user_password = "**********"'計算機用戶和匿名用戶密碼。
GroupName = "Guests"'計算機用戶所在的組
IPAddr = ""'計算機IP地址，可以為空
tmpFolder = "D:/inetpub/"&UserNameComp'目標目錄
LenComputer = Len(getComputer())+1'計算機名＋'/'的長度
PortNum = "80"'虛擬主機端口
WebServerAutoStart = "true"'創建虛擬主機后是否運行true和false
LogDirectory = ""'日志目錄
'檢測是否存在該用戶的計算機帳號
If Not checkUser(UserNameComp) Then
'添加該計算機用戶帳號
AddUser getComputer(),UserNameComp,user_password,WebServerComment,WebServerComment,GroupName
Else
Wscript.echo "該計算機用戶名也存在.............."
End If
'創建用戶主目錄
CreateFileDirectory(tmpFolder)
'修改用戶主目錄的訪問權限
SetNTFSDirectoryPerssion(UserNameComp)
'創建應用進程池
createAppPool WebServerComment
'創建虛擬主機站點
CreateWebSite getComputer(),IPAddr,HostName,tmpFolder,LogDirectory,WebServerComment,UserNameComp,user_password,WebServerAutoStart
