=================================================================================================================
'Terima kasih telah menggunakan program fungsi praktis yang dikembangkan oleh Asp001 Studio
'Http://www.asp001.net
'========================================.
'QQ: 1974229
'E-mail: [email protected]
'Untuk lebih banyak program unduh, silakan kunjungi http://www.asp001.net
'=======================================================================================================
'Fungsi Pendahuluan: Mulai/Berhenti Menentukan Situs Web Menggunakan ASP
'Fungsi ini menggunakan ADSI dan membutuhkan izin pengguna grup administrator
'Fungsi Nama: AdminWebsite (komputer, WebSitEnum, dowhat)
'Pengembangan Program: Asp001 Studio Chuqi
'Penggunaan: AdminWebsite (Nama Komputer, Nomor Situs, Mulai/Berhenti)
'Contoh: Mulai situs dengan nomor situs 1 di komputer 127.0.0.1
'AdminWebSite "127.0.0.1", "1", 1
'Contoh: Hentikan situs dengan nomor situs 1 di komputer 127.0.0.1
'AdminWebSite "127.0.0.1", "1", 0
'=======================================================================================================
FunctionAdMinWebsite (komputer, WebSitEnum, dowhat)
OnerrorresumeNext
Setobjserver = getObject ("iis: //" & computer & "/w3svc/" & WebSitEnum)
Iferr.number <> 0then
Response.writenow & ". Kode kesalahan:" & hex (err) & "-" & "tidak dapat membuka situs yang ditentukan <br>"
Endif
ifdowhat = 1then
'Gunakan Mulai Situs
ObjServer.Start
Iferr.number <> 0then
Response.write "Tidak dapat memulai situs web yang ditentukan <br>"
kalau tidak
Response.write "Situs web yang ditentukan telah dimulai <br>"
Endif
elseifdowhat = 0then
'Hentikan situs menggunakan berhenti
ObjServer.Stop
Iferr.number <> 0then
Response.write "Tidak dapat berhenti menentukan situs web <br>"
kalau tidak
Response.write "Menentukan situs web telah berhenti <br>"
Endif
endif
Fungsi endfungsi