[bahacan]

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,

[Virtuozzo]

Entrenix Panel'i bilgisayarına kurarak inceleyebilirsin.
Sana bir çok konuda fikir vereceği muhakkak.

[arsende]

Ekte IIS admin paneli var, çok basit kodları örnek teşkil eder... (Resmi sitesi kapalı olduğu için ekliyorum )

Not: Dosya ücretsizdir.

[bahacan]

Çok teşekkürederim.

Peki Türkçe içeriği olan entrenix den başka bir uygulama mevcutmu ?

[arsende]

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