Konu Başlığı: ASP ile IIS Yönetimi | ACİL

Arkadaşlar merhaba.

Ben kendi LOCAL sunucumu yönetebilmek amacıyla ASP ile bir IIS yönetimi yazmak istiyorum. Daha önce bu tarz bir uygulamayla uğraşmadığımdan dolayı nasıl yapılır bilmiyorum.

Bunun için FSO yeterlimi ? Shell de gerekiyormu ? Bu konuyla alakalı geniş bilgi veren siteler varmı ?

Bilgisi dahilinde olan arkadaşların yardımını rica ediyorum.

Aynı konu için farklı söyleyeceğim şey ise, bu konuya hakim, ücretiyle bana ASP ile uygulama geliştirebilecek arkadaşlada konumak isterim.

Saygılarımla,

Entrenix ticari bir uygulama bu nedenle kendine özel DLL mevcut ve kodları ingilizce yazılmıştır ...

WScript.Shell, FileSystemObject ve GetObject("IIS://localhost/logging") şeklinde bir çok şey yapabilirsiniz doğrudan sistem kaynakları ile ..

http://www.microsoft.com/windows/win...p/aore5pyr.htm
http://msdn2.microsoft.com/en-us/library/ms524877.aspx

vs... isterseniz bir çok fonksiyon elimde mevcut özelden mail adresinizi atın gönderebilirim..

Sub RestartIIS()

Set whs = server.createobject("WScript.Shell")
command = "net stop ""World Wide web Publishing Service"" "
whsRun = whs.Run(command, 0, True)
command = "net start ""World Wide web Publishing Service"" "
whsRun = whs.Run(command, 0, True)
If err.number<>0 Then
WriteLogLine "In WWW Services Restarted"
Else
WriteLogLine "In ExtendFrontPage Success"
End If

command = "net stop ""FTP Publishing Service"" "
whsRun = whs.Run(command, 0, True)
command = "net start ""FTP Publishing Service"" "
whsRun = whs.Run(command, 0, True)
If err.number<>0 Then
WriteLogLine "In WWW Services Restarted"
Else
WriteLogLine "In ExtendFrontPage Success"
End If

command = "net stop ""Simple mail Transport Protocol (SMTP)"" "
whsRun = whs.Run(command, 0, True)
command = "net start ""Simple mail Transport Protocol (SMTP)"" "
whsRun = whs.Run(command, 0, True)
If err.number<>0 Then
WriteLogLine "In WWW Services Restarted"
Else
WriteLogLine "In ExtendFrontPage Success"
End If
set whsRun = nothing
End Sub