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

首頁 > 網站 > 建站經驗 > 正文

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)

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 雅江县| 大兴区| 梅河口市| 徐州市| 塔城市| 枞阳县| 花莲市| 界首市| 介休市| 固安县| 托克托县| 宁夏| 濮阳市| 荥经县| 犍为县| 左权县| 蓬安县| 满城县| 高碑店市| 姚安县| 本溪市| 壤塘县| 剑河县| 扬州市| 甘孜县| 勐海县| 台中县| 乌兰察布市| 基隆市| 徐水县| 海晏县| 通渭县| 文山县| 富顺县| 河南省| 内丘县| 新乡市| 阳春市| 和政县| 华蓥市| 双牌县|