Beranda>buku tutorial>tutorial ASP

Kuliah Praktek WSH---Kuliah 2 Membuat User, Direktori dan Situs

Penulis：Eve Cole Waktu Pembaruan：2009-05-30 19:53:49
Kuliah 2 Membuat pengguna, direktori dan situs

--------------------------------------------------- -----------------------------------

Kuliah ini akan menggunakan ADSI, yang merupakan Antarmuka Layanan Direktori Aktif. Anda dapat menemukan beberapa informasi terkait di 15Seconds.com.

1. Buat pengguna. Kode berikut membuat pengguna1 di server independen berwarna putih. Kata sandi awal adalah pengguna1, dan ADSI digunakan.


Kode:
--------------------------------------------------- -----------------------------------

Redupkan Nama Pengguna,UserPass Redupkan oDomain,oUser Username = "user1" UserPass = "user1" Setel oDomain =
GetObject("WinNT://white") Setel oUser = oDomain.Create ("pengguna", Nama Pengguna) Jika (err.number = 0) Lalu
oUser.SetInfo oUser.SetPassword UserPass oUser.SetInfo Else WScript.Echo "Buat Pengguna" & Nama Pengguna & "Error!" Berakhir Jika Diset oUser = Tidak Ada Set oDomain = Tidak Ada

--------------------------------------------------- -----------------------------------


2. Membuat direktori Gunakan FileSystemObject untuk membuat direktori:

Kode:
--------------------------------------------------- -----------------------------------

Redupkan FsObject Redupkan tmpFolder Setel FsObject = WScript.CreateObject("Scripting.FileSystemObject")
tmpFolder = "D:userdateuser1" Jika Bukan FsObject.FolderExists(tmpFolder) Lalu
FsObject.CreateFolder(tmpFolder) Jika Err.Number<>0 Lalu WScript.Echo "Buat direktori" & tmpFolder
& "Gagal!" Akhiri Jika Akhir Jika

--------------------------------------------------- -----------------------------------


Perhatikan bahwa sebelum membuat direktori, periksa apakah direktori tersebut ada. Jika sudah ada, tidak perlu membuatnya.
3. Buat situs Subrutin berikut bertanggung jawab untuk membuat situs WWW. Arti dari setiap parameter adalah: alamat IP situs, direktori root situs, deskripsi situs, nama host, nomor port, nama komputer (diubah menjadi LOCALHOST), apakah akan segera mulai, Akun yang digunakan untuk akses anonim, kata sandi akun yang digunakan untuk akses anonim, dan direktori file LOG.
Fungsi ini mengembalikan nomor seri situs yang dibuat di IIS (di IIS, semua situs diberi nomor secara berurutan, dengan yang pertama adalah 1).
Contoh panggilan:


Kode:
--------------------------------------------------- -----------------------------------

ID situs=
ASTCreateWebSite"10.1.3.122","d:userdatauser1","www_user1","","80","LocalHost",True,"IUSR_user1","8iui%
#","D:Logfiles")Fungsi ASTCreateWebSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum,
Komputer, Mulai,AnonymousUserName,AnonymousUserPass,LogFileDirectory) Redupkan w3svc, WebServer,
NewWebServer, NewDir Dim Bindings, BindingString, NewBindings, Index, SiteObj, bDone On Error
Lanjutkan Berikutnya Err.Clear Set w3svc = GetObject("IIS://" & Komputer & "/w3svc") If
Err.Number <> 0 Lalu WScript.Echo "Tidak dapat dibuka: "&"IIS://" & Komputer & "/w3svc" & VbCrlf & "Program akan keluar." WScript.Quit (1) Berakhir Jika BindingString = IpAddress & ":" & Nomor Port & ":" &
Nama Host Untuk Setiap WebServer di w3svc Jika WebServer.Class = "IIsWebServer" Lalu
Bindings = WebServer.ServerBindings Jika BindingString = Bindings(0) Lalu
WScript.Echo "Alamat IP bertentangan:" & IpAddress & ",Silakan periksa alamat IP!." & VbCrlf & "Batalkan pembuatan situs ini."
Keluar dari Fungsi Akhir Jika Berakhir Jika Indeks Berikutnya = 1 bSelesai = Salah
Sementara (Tidak Selesai) Err.Clear Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/" &
Indeks) Jika (Err.Number = 0) Maka Indeks = Indeks + 1 Else
Err.Clear Set NewWebServer = w3svc.Create("IIsWebServer", Indeks) Jika
(Err.Number <> 0) Maka Indeks = Indeks + 1 Lain Err.Clear
Setel SiteObj = GetObject("IIS://"&Komputer&"/w3svc/" & Indeks) Jika
(Err.Number = 0) Maka bDone = True Else Index
= Indeks + 1 Akhir Jika Akhir Jika Akhir Jika Jika (Indeks > 10000)
Kemudian WScript.Echo "Sepertinya situs tidak dapat dibuat. Nomor seri situs yang sedang dibuat adalah: "&Index&"." & VbCrlf & "Batalkan pembuatan situs ini." Fungsi Keluar Berakhir Jika Wend NewBindings = Array( 0)
Binding Baru(0) = BindingString NewWebServer.ServerBindings = Binding Baru
NewWebServer.ServerComment = ServerComment NewWebServer.AnonymousUserName = AnonymousUserName
NewWebServer.AnonymousUserPass = AnonymousUserPass NewWebServer.KeyType = "IIsWebServer"
NewWebServer.FrontPageWeb = Benar NewWebServer.EnableDefaultDoc = Benar NewWebServer.DefaultDoc
= "Default.htm, Default.asp, Index.htm, Index.asp" NewWebServer.LogFileDirectory = LogFileDirectory
NewWebServer.SetInfo Setel NewDir = NewWebServer.Create("IIsWebVirtualDir", "ROOT")
NewDir.Path = RootDirectory NewDir.AccessRead = true NewDir.AppFriendlyName = "Aplikasi" &
ServerComment NewDir.AppCreate Benar NewDir.AccessScript = Benar Err.Clear
NewDir.SetInfo If (Err.Number = 0) Then Else WScript.Echo "Kesalahan saat membuat direktori home."
Berakhir Jika Jika Mulai = Benar Lalu Err.Clear Set NewWebServer = GetObject("IIS://"
& Komputer & "/w3svc/" & Indeks) NewWebServer.Start Jika Err.Number <> 0 Lalu
WScript.Echo "Kesalahan memulai situs!" Err.Clear Else End If End If
ASTCreateWebSite = Fungsi IndexEnd Fungsi berikut membuat situs FTP: Fungsi ASTCreateFtpSite(IPAddress,
RootDirectory, ServerComment, HostName, PortNum, Komputer, Mulai, LogFileDirectory) Redupkan MSFTPSVC,
FtpServer, NewFtpServer, NewDir Dim Bindings, BindingString, NewBindings, Index, SiteObj, bDone
Pada Kesalahan Lanjutkan Berikutnya Err.Clear Set MSFTPSVC = GetObject("IIS://" & Komputer & "/MSFTPSVC")
Jika Err.Number <> 0 Maka WScript.Echo "Tidak dapat dibuka: "&"IIS://" & Komputer & "/MSFTPSVC" & VbCrlf
& "Program akan keluar." WScript.Quit (1) Berakhir Jika BindingString = IpAddress & ":" & PortNum
& ":" & Nama Host Untuk Setiap FtpServer di MSFTPSVC Jika FtpServer.Class="IIsFtpServer" Lalu
Bindings = FtpServer.ServerBindings Jika BindingString = Bindings(0) Lalu
WScript.Echo "Alamat IP bertentangan:" & IpAddress & ",Silakan periksa alamat IP!." & VbCrlf & "Batalkan pembuatan situs ini."
Fungsi Berakhir Jika Berakhir Jika Indeks Berikutnya = 1 bSelesai = Salah Sementara
(Tidak selesai) Err.Clear Set SiteObj = GetObject("IIS://"&Komputer&"/MSFTPSVC/" & Indeks)
Jika (Err.Number = 0) Maka Indeks = Indeks + 1 Else Err.Clear
Setel NewFtpServer = MSFTPSVC.Create("IIsFtpServer", Indeks) If (Err.Number <>
0) Kemudian Indeks = Indeks + 1 Else Err.Clear
Setel SiteObj = GetObject("IIS://"&Komputer&"/MSFTPSVC/" & Indeks) Jika (Err.Number = 0)
Maka bDone = True Else Indeks = Indeks + 1
Akhir Jika Akhir Jika Akhir Jika Jika (Indeks > 10000) Lalu
WScript.Echo "Sepertinya situs tidak dapat dibuat. Nomor seri situs yang sedang dibuat adalah: "&Index&"." & VbCrlf & "Batalkan pembuatan situs ini."
Keluar dari Fungsi Berakhir Jika Wend NewBindings = Array(0) NewBindings(0) =
BindingString NewFtpServer.ServerBindings = Binding Baru NewFtpServer.ServerComment =
ServerComment NewFtpServer.AllowAnonymous = Salah NewFtpServer.AccessWrite = Benar
NewFtpServer.AccessRead = Benar NewFtpServer.DontLog = Salah NewFtpServer.LogFileDirectory =
LogFileDirectory NewFtpServer.SetInfo Setel NewDir = NewFtpServer.Create
("IIsFtpVirtualDir", "ROOT") NewDir.Path = RootDirectory NewDir.AccessRead = true
Err.Clear NewDir.SetInfo If (Err.Number = 0) Then Else WScript.Echo "Terjadi kesalahan saat membuat direktori home." End If If Start = True Then Err.Clear Set NewFtpServer =
GetObject("IIS://" & Komputer & "/MSFTPSVC/" & Indeks) NewFtpServer.Mulai Jika
Err.Number <> 0 Lalu WScript.Echo "Kesalahan memulai situs!" Err.Clear Else
Berakhir Jika Berakhir Jika ASTCreateFtpSite = Fungsi IndexEnd

--------------------------------------------------- -----------------------------------
Artikel Terkait