รหัสโปรแกรม:
'=================================================' = ========='
การแนะนำฟังก์ชัน: สร้างเว็บไซต์
'ฟังก์ชันนี้ใช้ ADSI และต้องการสิทธิ์ผู้ใช้กลุ่มผู้ดูแลระบบ
'ชื่อฟังก์ชัน: CreateWebSite (คอมพิวเตอร์, IPAddr, PortNum, ชื่อโฮสต์, WebSiteDirectory, LogDirectory, WebSiteInfo,
GuestUserName,GuestUserPass,StartOrStop)
'การใช้งาน: ชื่อคอมพิวเตอร์ CreateWebSite (ย้ายไปที่ LocalHost หรือ 127.0.0.1), ที่อยู่ IP ของไซต์, หมายเลขพอร์ต, ชื่อโฮสต์, ไดเร็กทอรีรากของไซต์, คำอธิบายไซต์ไดเร็กทอรีไฟล์ LOG, บัญชีที่ใช้เมื่อเข้าถึงเว็บไซต์, เมื่อเข้าถึงเว็บไซต์ รหัสผ่านของ บัญชีที่ใช้ไม่ว่าจะเริ่มต้นเว็บไซต์
'ตัวอย่าง: CreateWebSite LocalHost,127.0.0.123,80,www.test.net,E:UserDataUserNum001,
E: UserDataUserNum001LogFiles, CnKnow.Com, IUSR_Num001_test.net,
abc888,จริง
'=================================================' ==
ฟังก์ชั่น CreateWebSite (คอมพิวเตอร์, IPAddr, PortNum, ชื่อโฮสต์, WebSiteDirectory, LogDirectory, WebSiteInfo,
GuestUserName,GuestUserPass,StartOrStop)
ติ่ม w3svc, เว็บเซิร์ฟเวอร์, NewWebServer, NewDir
Dim Bindings, BindingString, NewBindings, SiteNum, SiteObj, bDone
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
ผิดพลาด.เคลียร์
'ตรวจสอบว่าสามารถโหลดบริการ W3SVC (บริการเว็บ) ได้หรือไม่
ตั้งค่า w3svc = GetObject(IIS:// & คอมพิวเตอร์ & /w3svc)
หาก Err.Number <> 0 จากนั้น 'แสดงข้อความแสดงข้อผิดพลาด
response.write ไม่สามารถเปิดได้: &IIS:// & คอมพิวเตอร์ & /w3svc
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
'ตรวจสอบว่ามีไซต์ที่มีที่อยู่ IP, พอร์ต และชื่อโฮสต์เดียวกันหรือไม่
BindingString = IPAddr & : & PortNum & : & ชื่อโฮสต์
สำหรับแต่ละเว็บเซิร์ฟเวอร์ใน w3svc
ถ้า WebServer.Class = IIsWebServer แล้ว
การผูก = WebServer.ServerBindings
ถ้า BindingString = Bindings(0) แล้ว
response.write ข้อขัดแย้งของที่อยู่ IP: & IPAddr & โปรดตรวจสอบที่อยู่ IP! -
ออกจากฟังก์ชัน
สิ้นสุดถ้า
สิ้นสุดถ้า
ต่อไป
'กำหนดหมายเลขไซต์ที่ไม่มีอยู่เป็นหมายเลขไซต์ใหม่ หมายเลขไซต์เว็บไซต์เริ่มต้นของระบบคือ 1 ดังนั้นจึงเริ่มจาก 2
หมายเลขไซต์=2
bDone = เท็จ
ในขณะที่ (ไม่ใช่ bDone)
ผิดพลาด.เคลียร์
ตั้งค่า SiteObj = GetObject(IIS://&Computer&/w3svc/&SiteNum) 'โหลดไซต์ที่ระบุ
ถ้า (Err.Number = 0) แล้ว
'response.write Step_1Site&SiteNum&มีอยู่
SiteNum = SiteNum + 1
อื่น
'response.write Step_1 site&SiteNum& ไม่มีอยู่
ผิดพลาด.เคลียร์
ตั้งค่า NewWebServer = w3svc.Create(IIsWebServer,SiteNum) 'สร้างไซต์ที่ระบุ
ถ้า (Err.Number <> 0) แล้ว
'response.write Step_2 site&SiteNum& ไม่สามารถสร้างได้
SiteNum = SiteNum + 1
อื่น
'response.write Step_2 Site&SiteNum& สร้างเรียบร้อยแล้ว
bเสร็จสิ้น=จริง
สิ้นสุดถ้า
สิ้นสุดถ้า
ถ้า (SiteNum > 50) จากนั้น 'จำนวนไซต์สูงสุดที่สร้างโดยเซิร์ฟเวอร์'
response.write เกินจำนวนไซต์สูงสุดที่สร้างโดยเซิร์ฟเวอร์ หมายเลขลำดับของไซต์ที่ถูกสร้างขึ้นคือ: &SiteNum&
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
เวนด์
'ดำเนินการกำหนดค่าไซต์ขั้นพื้นฐาน
NewBindings = อาร์เรย์(0)
NewBindings(0) = BindingString
NewWebServer.ServerBindings = NewBindings
NewWebServer.ServerComment= ข้อมูลเว็บไซต์
NewWebServer.AnonymousUserName= ชื่อผู้ใช้ทั่วไป
NewWebServer.AnonymousUserPass= GuestUserPass
NewWebServer.KeyType = IIsWebServer
NewWebServer.FrontPageWeb = จริง
NewWebServer.EnableDefaultDoc = จริง
NewWebServer.DefaultDoc = Default.htm, Default.asp, Index.htm, Index.asp
NewWebServer.LogFileDirectory= ไดเรกทอรีบันทึก
ใหม่WebServer.SetInfo
ตั้งค่า NewDir = NewWebServer.Create (IIsWebVirtualDir, ROOT)
NewDir.Path = WebSiteDirectory
NewDir.AccessRead = จริง
NewDir.AppFriendlyName = แอปพลิเคชัน&ข้อมูลเว็บไซต์
NewDir.AppCreate จริง
NewDir.AccessScript = จริง
ผิดพลาด.เคลียร์
NewDir.SetInfo
ถ้า (Err.Number <> 0) แล้ว
response.write เกิดข้อผิดพลาดขณะสร้างโฮมไดเร็กตอรี่
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
ถ้า StartOrStop = True แล้ว
ผิดพลาด.เคลียร์
ตั้งค่า NewWebServer = GetObject(IIS:// & คอมพิวเตอร์ & /w3svc/ & SiteNum)
ใหม่WebServer.Start
ถ้า Err.Number <> 0 แล้ว
response.write เกิดข้อผิดพลาดในการเริ่มไซต์!
การตอบสนองสิ้นสุด
ผิดพลาด.เคลียร์
สิ้นสุดถ้า
สิ้นสุดถ้า
response.write สร้างไซต์สำเร็จแล้ว หมายเลขไซต์คือ: & SiteNum & ชื่อโดเมนคือ: & HostName
ฟังก์ชันสิ้นสุด
ใช้การตั้งค่า ASP เพื่อระบุการใช้งาน CPU สูงสุดของไซต์
รหัสโปรแกรม:
-
'การแนะนำฟังก์ชัน: ตั้งค่าการใช้งาน CPU สูงสุดของไซต์ที่ระบุ
'ฟังก์ชันนี้ใช้ ADSI และต้องการสิทธิ์ผู้ใช้กลุ่มผู้ดูแลระบบ
'ชื่อฟังก์ชัน: SetCPULimitVar (คอมพิวเตอร์, SiteNum, LimitVar)
'การใช้งาน: ชื่อคอมพิวเตอร์ SetCPULimitVar, หมายเลขไซต์, ค่าขีดจำกัดสูงสุด (100=1%, 1000=10%)
'ตัวอย่าง: SetCPULimitVar LocalHost,2,2000
-
ฟังก์ชั่น SetCPULimitVar (คอมพิวเตอร์, SiteNum, LimitVar)
ตั้งค่า MyObj001 = GetObject(IIS://&Computer&/W3SVC/&SiteNum)
'ตั้งค่าเปิดใช้งานขีด จำกัด CPU
MyObj001.CpuLimitsEnabled = จริง
'กำหนดมูลค่าโควต้าการใช้งานจำกัด'
MyObj001.CpuLimitLogEvent=LimitVar
MyObj001.setinfo
ตั้งค่า MyObj001=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
ใช้ ASP เพื่อเริ่ม/หยุดเว็บไซต์ที่ระบุ
รหัสโปรแกรม:
'=================================================' = ========
'การแนะนำฟังก์ชัน: ใช้ ASP เพื่อเริ่ม/หยุดเว็บไซต์ที่ระบุ
'ฟังก์ชันนี้ใช้ ADSI และต้องการสิทธิ์ผู้ใช้กลุ่มผู้ดูแลระบบ
'ชื่อฟังก์ชัน: AdminWebSite(คอมพิวเตอร์,WebSiteNum,DoWhat)
'การใช้งาน: AdminWebSite(ชื่อคอมพิวเตอร์, หมายเลขไซต์, เริ่ม/หยุด)
'ตัวอย่าง: เริ่มต้นไซต์ด้วยไซต์หมายเลข 1 บนคอมพิวเตอร์ 127.0.0.1
'เว็บไซต์ผู้ดูแลระบบ 127.0.0.1,1,1
'ตัวอย่าง: หยุดไซต์ด้วยไซต์หมายเลข 1 บนคอมพิวเตอร์ 127.0.0.1
'เว็บไซต์ผู้ดูแลระบบ 127.0.0.1,1,0
'=================================================' = ======
ฟังก์ชั่น AdminWebSite(คอมพิวเตอร์,WebSiteNum,DoWhat)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
ตั้งค่า objServer = GetObject(IIS:// & คอมพิวเตอร์ & /W3SVC/ & WebSiteNum)
ถ้า Err.Number <> 0 แล้ว
Response.Write Now & . รหัสข้อผิดพลาด: & Hex(Err)& - & ไม่สามารถเปิดไซต์ที่ระบุได้<br>
สิ้นสุดถ้า
ถ้า Dowhat=1 แล้ว
'ใช้ Start เพื่อเริ่มไซต์
objServer.Start
ถ้า Err.Number <> 0 แล้ว
Response.Write ไม่สามารถเริ่มเว็บไซต์ที่ระบุได้ <br>
อื่น
Response.Write เว็บไซต์ที่ระบุได้เริ่มต้นแล้ว<br>
สิ้นสุดถ้า
มิฉะนั้นถ้า DoWhat=0 แล้ว
'ใช้ Stop เพื่อหยุดไซต์
objServer หยุด
ถ้า Err.Number <> 0 แล้ว
Response.Write ไม่สามารถหยุดเว็บไซต์ที่ระบุได้<br>
อื่น
Response.Write หยุดระบุเว็บไซต์แล้ว<br>
สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ใช้ ASP เพื่อแสดงรายการข้อมูลเว็บไซต์เซิร์ฟเวอร์
รหัสโปรแกรม:
'=================================================' = ====
'การแนะนำฟังก์ชั่น: แสดงรายการข้อมูลเว็บไซต์เซิร์ฟเวอร์ปัจจุบัน
'ฟังก์ชันนี้ใช้ ADSI และต้องการสิทธิ์ผู้ใช้กลุ่มผู้ดูแลระบบ
'ชื่อฟังก์ชัน: ListWebSite (คอมพิวเตอร์,หมายเลข)
'การใช้งาน: ListWebSite (ชื่อคอมพิวเตอร์ แสดงจำนวนไซต์)
'ตัวอย่าง: แสดงข้อมูลไซต์ 1,000 รายการบนคอมพิวเตอร์ 127.0.0.1
'รายการเว็บไซต์ 127.0.0.1,1000
'=================================================' = ===
รายการฟังก์ชั่นเว็บไซต์(คอมพิวเตอร์,หมายเลข)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
ตั้งค่า SiteObj = GetObject(IIS://&Computer&/w3svc/&i)
สำหรับ i=0 ถึง Num
ผิดพลาด.เคลียร์
ถ้า Err.Number=0 แล้ว
response.write <p><b>ต่อไปนี้จะแสดงข้อมูลเกี่ยวกับไซต์ทั้งหมดบนคอมพิวเตอร์: &คอมพิวเตอร์&</b></p>
ShowWebSite = SiteObj.Get(ServerBindings) 'รับที่อยู่ IP ของไซต์: พอร์ต: ส่วนหัวของโฮสต์
ข้อมูล=split(ShowWebSite(0),:)
response.write หมายเลขไซต์: &i&<br>
ที่อยู่ IP ของไซต์ response.write: &Info(0)&<br>
พอร์ตไซต์ response.write: &Info(1)&<br>
ส่วนหัวของโฮสต์ไซต์ response.write: &Info(2)&<br><br>
สิ้นสุดถ้า
ต่อไป
ตั้งค่า SiteOjb=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
ใช้ ASP เพื่อลบไซต์ IIS ที่ระบุ
รหัสโปรแกรม:
'=================================================' = =====
'การแนะนำฟังก์ชัน: ลบไซต์ IIS ที่ระบุ
'ฟังก์ชันนี้ใช้ ADSI และต้องการสิทธิ์ผู้ใช้กลุ่มผู้ดูแลระบบ
'ชื่อฟังก์ชัน: DelWebSite (คอมพิวเตอร์, SiteNum)
'การใช้งาน: ชื่อคอมพิวเตอร์ DelWebSite หมายเลขไซต์
'ตัวอย่าง: DelWebSite 127.0.0.1,2
'=================================================' = =====
ฟังก์ชั่น DelWebSite (คอมพิวเตอร์, SiteNum)
ตั้งค่า W3SVC = GetObject(IIS://&Computer&/w3svc)
W3SVC.ลบ IIsWebServer,SiteNum
ลบ response.write เรียบร้อยแล้ว!
ฟังก์ชันสิ้นสุด
จัดการบัญชี NT ผ่าน ASP
รหัสโปรแกรม:
'=================================================' = ======
'การแนะนำฟังก์ชั่น: จัดการบัญชี NT ผ่าน ASP
'ฟังก์ชันนี้ใช้ ADSI และต้องการสิทธิ์ผู้ใช้กลุ่มผู้ดูแลระบบ
'=================================================' = ===
'เพิ่มผู้ใช้
'การใช้งานฟังก์ชัน: AddUser(คอมพิวเตอร์,ชื่อผู้ใช้,รหัสผ่าน,ชื่อเต็ม,ข้อมูล)
'พารามิเตอร์: ชื่อคอมพิวเตอร์ ชื่อบัญชี รหัสผ่านบัญชี ชื่อเต็มของบัญชี คำอธิบายบัญชี
'ตัวอย่าง: AddUser 127.0.0.1, ทดสอบ, ทดสอบ, ทดสอบบัญชีผู้ดูแลระบบ บัญชีนี้ถูกเพิ่มผ่าน ASP
'แก้ไขข้อมูลพื้นฐานของผู้ใช้ที่ระบุ
'การใช้งานฟังก์ชั่น: EditUser (คอมพิวเตอร์, ชื่อผู้ใช้, OldPassWord, รหัสผ่าน, ชื่อเต็ม, ข้อมูล)
'พารามิเตอร์: ชื่อคอมพิวเตอร์ ชื่อบัญชี รหัสผ่านบัญชี ชื่อเต็มของบัญชี คำอธิบายบัญชี
'ตัวอย่าง: EditUser 127.0.0.1, Test, Test2, ทดสอบการปรับเปลี่ยนบัญชีผู้ดูแลระบบ บัญชีนี้ได้รับการแก้ไขผ่าน ASP
'ลบผู้ใช้ที่ระบุ
'การใช้งานฟังก์ชั่น: DelUser(คอมพิวเตอร์,ชื่อผู้ใช้)
'พารามิเตอร์: ชื่อคอมพิวเตอร์ ชื่อผู้ใช้'
'ตัวอย่าง: DelUser 127.0.0.1, ทดสอบ
================================================== ======. ======
ฟังก์ชั่น AddUser (คอมพิวเตอร์, ชื่อผู้ใช้, รหัสผ่าน, ชื่อเต็ม, ข้อมูล)
'ดำเนินการคำสั่งสร้างบัญชี
ตั้งค่า ComputerObj = GetObject(WinNT://&คอมพิวเตอร์)
ตั้งค่า NewUser = ComputerObj.Create( User , UserName )
ผู้ใช้ใหม่ SetInfo
'กำหนดการตั้งค่าบัญชี
NewUser.SetPassword ( รหัสผ่าน ) 'รหัสผ่านบัญชี'
NewUser.FullName = FullName 'ชื่อเต็มของบัญชี
NewUser.Description = ข้อมูล 'คำอธิบายบัญชี
NewUser.UserFlags = &H10000 '&H20000 (ผู้ใช้จะต้องเปลี่ยนรหัสผ่านในครั้งต่อไปที่เขาเข้าสู่ระบบ) &H0040 (ผู้ใช้ไม่ได้รับอนุญาตให้เปลี่ยนรหัสผ่าน) &H10000 (รหัสผ่านถูกต้องอย่างถาวร) &H0002 (บัญชีถูกระงับชั่วคราว)
ผู้ใช้ใหม่ SetInfo
response.write Account&UserName& สร้างสำเร็จแล้ว!
ตั้งค่า ComputerObj=nothing
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น EditUser (คอมพิวเตอร์, ชื่อผู้ใช้, OldPassWord, รหัสผ่าน, ชื่อเต็ม, ข้อมูล)
'อ่านข้อมูลผู้ใช้
ตั้งค่า ChangeUserObj = GetObject(WinNT://&Computer&/&UserName&,User)
'เปลี่ยนรหัสผ่านบัญชี
ถ้ารหัสผ่าน<>แล้ว
ChangeUserObj.SetPassword รหัสผ่าน
response.write รหัสผ่านบัญชีเปลี่ยนเรียบร้อยแล้ว! <br>
สิ้นสุดถ้า
'แก้ไขชื่อเต็มของบัญชี
ถ้า FullName<> แล้ว
UserFullName = ChangeUserObj.get(ชื่อเต็ม)
ChangeUserObj.FullName = ชื่อเต็ม
ChangeUserObj.SetInfo
response.write แก้ไขชื่อเต็มบัญชีสำเร็จแล้ว! <br>
สิ้นสุดถ้า
'แก้ไขคำอธิบายบัญชี
ถ้าข้อมูล <> แล้ว
UserFullName = ChangeUserObj.get (คำอธิบาย)
ChangeUserObj.Description = ข้อมูล
ChangeUserObj.SetInfo
response.write คำอธิบายบัญชี แก้ไขเรียบร้อยแล้ว! <br>
สิ้นสุดถ้า
ตั้งค่า ChangeUserObj=nothing
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น DelUser (คอมพิวเตอร์, ชื่อผู้ใช้)
ตั้งค่า DelUserObj = GetObject(WinNT://&Computer&/&UserName)
ถ้าเกิดข้อผิดพลาด = &H800401E4 แล้ว
Response.Write User&UserName& ไม่มีอยู่
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
ตั้งค่า DelObj = GetObject(DelUserObj.Parent)
ผู้ใช้ DelObj.Delete, DelUserObj.Name
ตั้งค่า DelUserObj = ไม่มีเลย
ตั้งค่า DelObj = ไม่มีเลย
ตอบกลับ ลบการเขียนสำเร็จแล้ว
ฟังก์ชันสิ้นสุด
การใช้ ASP เพื่อควบคุมฟังก์ชันภาษาสคริปต์แยกวิเคราะห์ไซต์ที่ระบุ
รหัสโปรแกรม:
ฟังก์ชั่น AdminAegis (คอมพิวเตอร์, SiteNum)
ตั้งค่า IIsWebServiceObj = GetObject(IIS://&Computer&/W3SVC/&SiteNum)
โล่ห์เอจิส(1)
Aegis(0)=.asp,C:WINNTsystem32inetsrvasp.dll,5,รับ,หัว,โพสต์,การติดตาม
' Aegis(1)=.aspx,C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
โพสต์ ดีบัก
'โปรดใช้รูปแบบเดียวกันของ 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, รับ, หัว, โพสต์, ติดตาม
'.cer, C: WINNTsystem32inetsrvasp.dll, 5, GET, HEAD, POST, TRACE
'.cdx, C: WINNTsystem32inetsrvasp.dll, 5, รับ, หัว, โพสต์, ติดตาม
'.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,
ดีบัก
'.ascx, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
โพสต์ ดีบัก
'.ashx, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
โพสต์ ดีบัก
'.asmx, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
โพสต์ ดีบัก
'.aspx, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
โพสต์ ดีบัก
'.axd, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
โพสต์ ดีบัก
'.vsdisco, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
โพสต์ ดีบัก
'.rem, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
โพสต์ ดีบัก
'.soap, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,1,GET,HEAD,
โพสต์ ดีบัก
'.config, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
โพสต์ ดีบัก
'.cs, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
โพสต์ ดีบัก
'.csproj, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
โพสต์ ดีบัก
'.vb, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
โพสต์ ดีบัก
'.vbproj, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
โพสต์ ดีบัก
'.webinfo, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
โพสต์ ดีบัก
'.licx, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
โพสต์ ดีบัก
'.resx, C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,HEAD,
โพสต์ ดีบัก
'.ทรัพยากร C:WINNTMicrosoft.NETFrameworkv1.1.4322aspnet_isapi.dll,5,GET,
HEAD, โพสต์, ดีบัก
IIsWebServiceObj.ScriptMaps=Aegis
IIsWebServiceObj.SetInfo
'แสดงภาษาสคริปต์ที่รองรับ
response.write ไซต์ปัจจุบันรองรับรายการแยกวิเคราะห์:<br>
สำหรับ ValueIndex = 0 ถึง UBound(IIsWebServiceObj.ScriptMaps)
response.write IIsWebServiceObj.Get (ScriptMaps) (ValueIndex)
ตอบกลับเขียน <br>
ต่อไป
ฟังก์ชันสิ้นสุด
ใช้ ASP เพื่อแสดงรายการกลุ่มผู้ใช้ NT และผู้ใช้
รหัสโปรแกรม:
'=================================================' = ======
'การแนะนำฟังก์ชั่น: แสดงรายการกลุ่มผู้ใช้ NT และผู้ใช้
'ฟังก์ชันนี้ใช้ ADSI และต้องการสิทธิ์ผู้ใช้กลุ่มผู้ดูแลระบบ
'ชื่อฟังก์ชั่น: ListGroup (คอมพิวเตอร์)
'การใช้งาน: ListGroup (ชื่อคอมพิวเตอร์)
'ตัวอย่าง: แสดงกลุ่มผู้ใช้ NT คอมพิวเตอร์ 127.0.0.1 และผู้ใช้
'กลุ่มรายการ 127.0.0.1
'=================================================' = ======
กลุ่มรายการฟังก์ชั่น (คอมพิวเตอร์)
response.write <p><b>ต่อไปนี้คือกลุ่มผู้ใช้คอมพิวเตอร์&คอมพิวเตอร์&ระบบ และรายชื่อผู้ใช้</b></p>
ตั้งค่า ComputerObj = GetObject(WinNT://&คอมพิวเตอร์)
ComputerObj.Filter = อาร์เรย์ (กลุ่ม)
สำหรับสมาชิกแต่ละคนใน ComputerObj
Response.Write กลุ่มผู้ใช้: &Member.Name&<br>
ListUser คอมพิวเตอร์ Member.Name
ต่อไป
ฟังก์ชั่นสิ้นสุด
'รายชื่อผู้ใช้ของกลุ่มผู้ใช้ที่ระบุ
รายการฟังก์ชันผู้ใช้(คอมพิวเตอร์,กลุ่ม)
ตั้งค่า UserObj = GetObject(WinNT://&Computer&/&Group)
สำหรับสมาชิกแต่ละคนใน UserObj.Members
Response.write ผู้ใช้ในกลุ่ม: &Member.Name &<br>
ต่อไป
ฟังก์ชันสิ้นสุด
IIS มี IIS Admin Objects ซึ่งช่วยให้ผู้ใช้สามารถจัดการ IIS ผ่านโปรแกรมได้ IIS Admin Objects ขึ้นอยู่กับ Microsoft Active Directory Service Interfaces (ADSI) ภาษาการเขียนโปรแกรมใดๆ ที่รองรับการทำงานอัตโนมัติ เช่น VBScript/JScript ใน ASP, Visual Basic, Java หรือ C++ ก็สามารถใช้งานได้
คุณสามารถอ้างอิงถึงโปรแกรมตัวอย่าง ASP ต่อไปนี้เพื่อปรับเปลี่ยนที่อยู่ของไซต์เริ่มต้น IIS:
-
ตั้งค่า IISOBJ = GetObject(IIS://MyServer/w3svc/1/root)
IISOBJ.Path = D:newroot
IISOBJ.SetInfo
ตั้งค่า IISOBJ=ไม่มีอะไร
-
หมายเหตุ: ผู้ใช้ต้องมีสิทธิ์เพียงพอบน IIS Metabase
เกี่ยวกับวิธีการใช้โปรแกรมเพื่อจัดการ IIS คุณสามารถดูบทความต่อไปนี้ใน MSDN:
การดูแลระบบ IIS โดยทางโปรแกรม
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iisref/html/psdk/asp/aint7e9l.asp