程序代碼：

'=========================================================='
函數(shù)介紹：創(chuàng)建WebSite
'本函數(shù)使用ADSI，需要Administrators組用戶(hù)權(quán)限
'函數(shù)名稱(chēng)：CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,
GuestUserName,GuestUserPass,StartOrStop)
'用法：CreateWebSite 計(jì)算機(jī)名(一搬為L(zhǎng)ocalHost或127.0.0.1),站點(diǎn)IP地址,端口號(hào),主機(jī)名,站點(diǎn)根目錄,,LOG文件的目錄站點(diǎn)說(shuō)明,網(wǎng)站訪問(wèn)時(shí)所使用的帳號(hào),網(wǎng)站訪問(wèn)時(shí)所用帳號(hào)的口令,是否啟動(dòng)站點(diǎn)
'例：CreateWebSite "LocalHost","127.0.0.123","80","www.test.net","E:UserDataUserNum001",
"E:UserDataUserNum001LogFiles","CnKnow.Com","IUSR_Num001_test.net",
"abc888",True
'==================================================
Function CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,
GuestUserName,GuestUserPass,StartOrStop)
Dim w3svc, WebServer, NewWebServer, NewDir
Dim Bindings, BindingString, NewBindings, SiteNum, SiteObj, bDone
On Error Resume Next
Err.Clear
'檢測(cè)是否能夠加載W3SVC服務(wù)（即WEB服務(wù)）
Set w3svc = GetObject("IIS://" & Computer & "/w3svc")
If Err.Number <> 0 Then '顯示錯(cuò)誤提示
response.write "無(wú)法打開(kāi): "&"IIS://" & Computer & "/w3svc"
response.end
End If
'檢測(cè)是否有設(shè)定相同IP地址、端口及主機(jī)名的站點(diǎn)存在
BindingString = IPAddr & ":" & PortNum & ":" & HostName
For Each WebServer in w3svc
If WebServer.Class = "IIsWebServer" Then
Bindings = WebServer.ServerBindings
If BindingString = Bindings(0) Then
response.write "IP地址沖突:" & IPAddr & ",請(qǐng)檢測(cè)IP地址！."
Exit Function
End If
End If
Next

'確定一個(gè)不存在的站點(diǎn)編號(hào)做為新建站點(diǎn)編號(hào)，系統(tǒng)默認(rèn)WebSite站點(diǎn)編號(hào)為1，因此從2開(kāi)始
SiteNum=2
bDone = False
While (Not bDone)
Err.Clear
Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&SiteNum) '加載指定站點(diǎn)
If (Err.Number = 0) Then
'response.write " Step_1站點(diǎn)"&SiteNum&"存在"
SiteNum = SiteNum + 1
Else
'response.write " Step_1站點(diǎn)"&SiteNum&"不存在"
Err.Clear
Set NewWebServer = w3svc.Create("IIsWebServer",SiteNum) '創(chuàng)建指定站點(diǎn)
If (Err.Number <> 0) Then
'response.write " Step_2站點(diǎn)"&SiteNum&"創(chuàng)建失敗"
SiteNum = SiteNum + 1
Else
'response.write " Step_2站點(diǎn)"&SiteNum&"創(chuàng)建成功"
bDone = True
End If
End If
If (SiteNum > 50) Then '服務(wù)器最大創(chuàng)建站點(diǎn)數(shù)
response.write "超出服務(wù)器最大創(chuàng)建站點(diǎn)數(shù)，正在創(chuàng)建的站點(diǎn)的序號(hào)為： "&SiteNum&"."
response.end
End If
Wend

'進(jìn)行站點(diǎn)基本配置
NewBindings = Array(0)
NewBindings(0) = BindingString
NewWebServer.ServerBindings = NewBindings
NewWebServer.ServerComment= WebSiteInfo
NewWebServer.AnonymousUserName= GuestUserName
NewWebServer.AnonymousUserPass= GuestUserPass
NewWebServer.KeyType = "IIsWebServer"
NewWebServer.FrontPageWeb = True
NewWebServer.EnableDefaultDoc = True
NewWebServer.DefaultDoc = "Default.htm, Default.asp, Index.htm, Index.asp"
NewWebServer.LogFileDirectory= LogDirectory
NewWebServer.SetInfo
Set NewDir = NewWebServer.Create("IIsWebVirtualDir", "ROOT")
NewDir.Path = WebSiteDirectory
NewDir.AccessRead = true
NewDir.AppFriendlyName = "應(yīng)用程序" & WebSiteInfo
NewDir.AppCreate True
NewDir.AccessScript = True
Err.Clear
NewDir.SetInfo
If (Err.Number <> 0) Then
response.write "主目錄創(chuàng)建時(shí)出錯(cuò)."
response.end
End If
If StartOrStop = True Then
Err.Clear
Set NewWebServer = GetObject("IIS://" & Computer & "/w3svc/" & SiteNum)
NewWebServer.Start
If Err.Number <> 0 Then
response.write "啟動(dòng)站點(diǎn)時(shí)出錯(cuò)!"
response.end
Err.Clear
End If
End If
response.write "站點(diǎn)創(chuàng)建成功，站點(diǎn)編號(hào)為："& SiteNum &" ，域名為："& HostName
End Function

使用ASP設(shè)置指定站點(diǎn)CPU最大使用程度
程序代碼：

'=================================================
'函數(shù)介紹：設(shè)置指定站點(diǎn)CPU最大使用程度
'本函數(shù)使用ADSI，需要Administrators組用戶(hù)權(quán)限
'函數(shù)名稱(chēng)：SetCPULimitVar (Computer,SiteNum,LimitVar)
'用法：SetCPULimitVar 計(jì)算機(jī)名，站點(diǎn)編號(hào)，最大限制值（100=1%，1000=10%）
'例：SetCPULimitVar "LocalHost","2","2000"
'=================================================
Function SetCPULimitVar(Computer,SiteNum,LimitVar)
Set MyObj001 = GetObject("IIS://"&Computer&"/W3SVC/"&SiteNum)
'設(shè)置啟用CPU限制
MyObj001.CpuLimitsEnabled = True
'設(shè)置限制使用額度值
MyObj001.CpuLimitLogEvent=LimitVar
MyObj001.setinfo
Set MyObj001=Nothing
End Function

使用ASP啟動(dòng)/停止指定WEB站點(diǎn)

程序代碼：

'=========================================================
'函數(shù)介紹：使用ASP啟動(dòng)/停止指定WEB站點(diǎn)
'本函數(shù)使用ADSI，需要Administrators組用戶(hù)權(quán)限
'函數(shù)名稱(chēng)：AdminWebSite(Computer,WebSiteNum,DoWhat)
'用法：AdminWebSite(計(jì)算機(jī)名稱(chēng),站點(diǎn)編號(hào),啟動(dòng)/停止)
'例：?jiǎn)?dòng)127.0.0.1計(jì)算機(jī)上站點(diǎn)編號(hào)為1的站點(diǎn)
'AdminWebSite "127.0.0.1","1",1
'例：停止127.0.0.1計(jì)算機(jī)上站點(diǎn)編號(hào)為1的站點(diǎn)
'AdminWebSite "127.0.0.1","1",0
'=======================================================
Function AdminWebSite(Computer,WebSiteNum,DoWhat)
On Error Resume Next
Set objServer = GetObject("IIS://" & Computer & "/W3SVC/" & WebSiteNum)
If Err.Number <> 0 Then
Response.Write Now & ". 錯(cuò)誤碼: " & Hex(Err)& " - " & "無(wú)法開(kāi)啟指定站點(diǎn)<br>"
End If
if Dowhat=1 then
'使用Start啟動(dòng)站點(diǎn)
objServer.Start
If Err.Number <> 0 Then
Response.Write "無(wú)法啟動(dòng)指定Web站點(diǎn)<br>"
else
Response.Write "已經(jīng)啟動(dòng)指定Web站點(diǎn)<br>"
End If
elseif DoWhat=0 then
'使用Stop停止站點(diǎn)
objServer.Stop
If Err.Number <> 0 Then
Response.Write "無(wú)法停止指定Web站點(diǎn)<br>"
else
Response.Write "已經(jīng)停止指定Web站點(diǎn)<br>"
End If
end if
End Function

使用ASP列出服務(wù)器WEB站點(diǎn)信息

程序代碼：

'=====================================================
'函數(shù)介紹：列出當(dāng)前服務(wù)器WEB站點(diǎn)信息
'本函數(shù)使用ADSI，需要Administrators組用戶(hù)權(quán)限
'函數(shù)名稱(chēng)：ListWebSite (Computer,Num)
'用法：ListWebSite (計(jì)算機(jī)名稱(chēng),顯示站點(diǎn)數(shù)量)
'例：顯示127.0.0.1計(jì)算機(jī)上1000個(gè)站點(diǎn)信息
'ListWebSite "127.0.0.1","1000"
'====================================================
Function ListWebSite(Computer,Num)
On Error Resume Next
Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&i)
for i=0 to Num
Err.Clear
if Err.Number=0 then
response.write "<p><b>以下顯示為計(jì)算機(jī)："&Computer&"上所有站點(diǎn)信息</b></p>"
ShowWebSite = SiteObj.Get("ServerBindings") '獲得站點(diǎn)IP地址:端口:主機(jī)頭
Info=split(ShowWebSite(0),":")
response.write "站點(diǎn)編號(hào)："&i&"<br>"
response.write "站點(diǎn)IP地址："&Info(0)&"<br>"
response.write "站點(diǎn)端口："&Info(1)&"<br>"
response.write "站點(diǎn)主機(jī)頭："&Info(2)&"<br><br>"
end if
next
set SiteOjb=nothing
End Function

使用ASP刪除指定IIS站點(diǎn)

程序代碼：

'======================================================
'函數(shù)介紹：刪除指定IIS站點(diǎn)
'本函數(shù)使用ADSI，需要Administrators組用戶(hù)權(quán)限
'函數(shù)名稱(chēng)：DelWebSite (Computer,SiteNum)
'用法：DelWebSite 計(jì)算機(jī)名，站點(diǎn)編號(hào)
'例：DelWebSite "127.0.0.1","2"
'======================================================
Function DelWebSite(Computer,SiteNum)
Set W3SVC = GetObject("IIS://"&Computer&"/w3svc")
W3SVC.delete "IIsWebServer",SiteNum
response.write "刪除成功！"
End Function

通過(guò)ASP管理NT帳號(hào)

程序代碼：

'=======================================================
'函數(shù)介紹：通過(guò)ASP管理NT帳號(hào)
'本函數(shù)使用ADSI，需要Administrators組用戶(hù)權(quán)限
'====================================================
'填加用戶(hù)
'函數(shù)用法：AddUser(Computer,UserName,PassWord,FullName,Info)
'參數(shù)：計(jì)算機(jī)名,帳號(hào)名稱(chēng),帳號(hào)密碼,帳號(hào)全名,帳號(hào)說(shuō)明
'例：AddUser "127.0.0.1","Test","Test","測(cè)試管理員帳號(hào)","本帳號(hào)通過(guò)ASP填加"
'修改指定用戶(hù)基本信息
'函數(shù)用法：EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
'參數(shù)：計(jì)算機(jī)名,帳號(hào)名稱(chēng),帳號(hào)密碼,帳號(hào)全名,帳號(hào)說(shuō)明
'例：EditUser "127.0.0.1","Test","Test2","測(cè)試管理員帳號(hào)修改","本帳號(hào)通過(guò)ASP修改過(guò)"
'刪除指定用戶(hù)
'函數(shù)用法：DelUser(Computer,UserName)
'參數(shù)：計(jì)算機(jī)名,用戶(hù)名'
'例：DelUser "127.0.0.1","Test"
========================================================
Function AddUser(Computer,UserName,PassWord,FullName,Info)
'執(zhí)行創(chuàng)建帳號(hào)命令
Set ComputerObj = GetObject("WinNT://"&Computer)
Set NewUser = ComputerObj.Create( "User" , UserName )
NewUser.SetInfo
'進(jìn)行帳號(hào)設(shè)置
NewUser.SetPassword ( PassWord ) '帳號(hào)密碼
NewUser.FullName = FullName '帳號(hào)全名
NewUser.Description = Info '帳號(hào)說(shuō)明
NewUser.UserFlags = &H10000 '&H20000(使用者下次登入時(shí)須變更密碼) &H0040(使用者不得變更密碼) &H10000(密碼永久正確) &H0002(帳戶(hù)暫時(shí)停用)
NewUser.SetInfo
response.write "帳號(hào)"&UserName&"創(chuàng)建成功！"
Set ComputerObj=nothing
End Function

Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
'讀取用戶(hù)信息
Set ChangeUserObj = GetObject("WinNT://"&Computer&"/"&UserName&",User")
'修改帳號(hào)密碼
if PassWord<>"" then
ChangeUserObj.SetPassword PassWord
response.write "帳號(hào)密碼修改成功！<br>"
end if
'修改帳號(hào)全名
if FullName<>"" then
UserFullName = ChangeUserObj.get("FullName")
ChangeUserObj.FullName = FullName
ChangeUserObj.SetInfo
response.write "帳號(hào)全名修改成功！<br>"
end if
'修改帳號(hào)說(shuō)明
if Info<>"" then
UserFullName = ChangeUserObj.get("Description")
ChangeUserObj.Description = Info
ChangeUserObj.SetInfo
response.write "帳號(hào)說(shuō)明修改成功！<br>"
end if
Set ChangeUserObj=nothing
End Function

Function DelUser(Computer,UserName)
Set DelUserObj = GetObject("WinNT://"&Computer&"/"&UserName)
If Err = &H800401E4 Then
Response.Write "用戶(hù)"&UserName&"不存在"
Response.End
End If
Set DelObj = GetObject(DelUserObj.Parent)
DelObj.Delete "User", DelUserObj.Name
Set DelUserObj = Nothing
Set DelObj = Nothing
Response.Write "刪除成功"
End Function

使用ASP控制指定站點(diǎn)解析腳本語(yǔ)言函數(shù)

程序代碼：

Function AdminAegis(Computer,SiteNum)
Set IIsWebServiceObj = GetObject("IIS://"&Computer&"/W3SVC/"&SiteNum)
dim Aegis(1)
Aegis(0)=".asp,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE"
'Aegis(1)=".aspx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG"
'解析其它文件請(qǐng)同樣使用Aegis(Num)=""這種格式，記得要將dim Aegis(Num)定義
'.htw,C:WINNTsystem32webhits.dll,3,GET,HEAD,POST
'.ida,C:WINNTsystem32idq.dll,7,GET,HEAD,POST
'.idq,C:WINNTsystem32idq.dll,7,GET,HEAD,POST
'.asp,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
'.cer,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
'.cdx,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
'.asa,C:WINNTsystem32inetsrvasp.dll,5,GET,HEAD,POST,TRACE
'.idc,C:WINNTsystem32inetsrvhttpodbc.dll,5,GET,POST<br>
'.shtm C:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>
'.shtml C:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>
'.stm C:WINNTsystem32inetsrvssinc.dll,5,GET,POST<br>
'.asax C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,POST,
DEBUG
'.ascx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.ashx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.asmx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.aspx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.axd,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.vsdisco,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.rem,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.soap,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
POST,DEBUG
'.config,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.cs,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.csproj,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.vb,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.vbproj,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.webinfo,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.licx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.resx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
POST,DEBUG
'.resources,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,
HEAD,POST,DEBUG
IIsWebServiceObj.ScriptMaps=Aegis
IIsWebServiceObj.SetInfo
'顯示支持腳本語(yǔ)言
response.write "當(dāng)前站點(diǎn)支持解析列表：<br>"
For ValueIndex = 0 To UBound(IIsWebServiceObj.ScriptMaps)
response.write IIsWebServiceObj.Get("ScriptMaps")(ValueIndex)
response.write "<br>"
Next
End Function

使用ASP列出NT用戶(hù)組及用戶(hù)

程序代碼：

'=======================================================
'函數(shù)介紹：列出NT用戶(hù)組及用戶(hù)
'本函數(shù)使用ADSI，需要Administrators組用戶(hù)權(quán)限
'函數(shù)名稱(chēng)：ListGroup(Computer)
'用法：ListGroup(計(jì)算機(jī)名稱(chēng))
'例：顯示127.0.0.1計(jì)算機(jī)NT用戶(hù)組及用戶(hù)
'ListGroup "127.0.0.1"
'=======================================================
Function ListGroup(Computer)
response.write "<p><b>以下為計(jì)算機(jī)"&Computer&"系統(tǒng)用戶(hù)組及用戶(hù)列表</b></p>"
Set ComputerObj = GetObject("WinNT://"&Computer)
ComputerObj.Filter = Array("Group")
For Each Member in ComputerObj
Response.Write "用戶(hù)組："&Member.Name&"<br>"
ListUser Computer,Member.Name
Next
end Function

'列出指定用戶(hù)組用戶(hù)
Function ListUser(Computer,Group)
Set UserObj = GetObject("WinNT://"&Computer&"/"&Group)
For Each Member in UserObj.Members
Response.write " 組中用戶(hù)："&Member.Name &"<br>"
Next
End Function

IIS 提供了 IIS Admin Objects，讓用戶(hù)可以通過(guò)程序來(lái)管理IIS。IIS Admin Objects 基于 Microsoft Active Directory Service Interfaces (ADSI)。任何支持 Automation 的編程語(yǔ)言，如 ASP 中的 VBScript/JScript，Visual Basic, Java, 或 C++ 都能使用它。
您可以參考以下的 ASP 示例程序來(lái)修改 IIS 默認(rèn)站點(diǎn)的地址：
<%
Set IISOBJ = GetObject("IIS://MyServer/w3svc/1/root")
IISOBJ.Path = "D:newroot"
IISOBJ.SetInfo
Set IISOBJ=Nothing
%>
注意：用戶(hù)必須要對(duì) IIS Metabase 有足夠的權(quán)限。
關(guān)于如何用程序來(lái)管理 IIS，您可以到 MSDN 參考以下的文章：
Administering IIS Programmatically
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iisref/html/psdk/asp/aint7e9l.asp