[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