IIS 服務器備份轉移實現方法

2019-11-02 16:32:51

字體：大中小

來源：轉載

供稿：網友

原創文章：歡迎轉載，轉載時請保留作者名及出處

作者: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

'BuildNum = BuildNum+1

'Wscript.echo "=============================================="&BuildNum&"============================================="

'為每個IIS虛擬主機應用程序站點創建站點應用程序池

Function createAppPool(strName)

On Error Resume Next

Err.Clear

Set ObjAppPoolsExist = GetObject("IIS://"&getComputer()&"/W3SVC/AppPools"&strName)

上一篇：win2003 PHP服務器的突破新思路

下一篇：Win2008 iis7服務器中批量遷移到另外一臺IIS7的實現步驟

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

榮耀總裁趙明烏鎮演講：榮耀首款5G手機V30下月發布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術創造現實價值

2019-10-21 09:00:12

滴滴英文服務上線兩周年用戶已超200萬

2019-09-26 08:57:12

華為推出全球至快AI訓練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術團隊

2019-09-25 08:15:43

疑難解答

圖片精選

網友關注

国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

IIS 服務器備份轉移實現方法