الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف نستطيع ايقاف و تشغيل Iis-specified Application Pools

بدأه بيلو في 12 نوفمبر 2009 · 3 رد · 680 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

أريد أن أسال كيف أستطيع ايقاف و اعادة تشغيل pool استعملت هذا الكود الذي يقوم بعرض ال application pools

 Dim sPath As String = "IIS://ServerName/W3SVC/AppPools"

Dim AppPools As New System.DirectoryServices.DirectoryEntry(sPath)

For Each AppPool As DirectoryEntry In AppPools.Children

ListBox1.Items.Add(AppPool.Name)

Next

صورةform مع المرفقات

وشكرا

post-129908-1258030660_thumb.jpg

#2

و عليكم السلام و رحمة الله تعالى و بركاته...

الكائنات من نوع DirectoryEntry لها الدالة Close() التي و كما اسمها يدل على أنها مخصصة لعملية الغلق...

جرب

#3

السلام عليكــم ورحمـة الله وبركاتــه ،،

الدالة close()لها عمل اخرو هو اغلاق كل ما هو مرتبط ب system.directory services.directoryEntry

شكرا على المساعدة

#4

السلام عليكــم ورحمـة الله وبركاتــه ،،

لقد ابدلت stop and Start بbutton واحد restart وهذا الحل :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim str1, str2 As String

str1 = Me.ListBox1.SelectedItem.ToString

str2 = Me.TextBox1.Text

RestartApplicationPool(str1, str2)

MsgBox("ApplicationPool " & str1 & " restarted")

End Sub

Private Sub RestartApplicationPool(ByVal applicationPoolName As String, ByVal ServerName As String)

If applicationPoolName Is Nothing Then

Throw New ArgumentNullException("applicationPoolName")

End If

Using applicationPool As New DirectoryEntry("IIS://" & ServerName & "/W3SVC/AppPools/" & applicationPoolName)

applicationPool.Invoke("Recycle")

End Using

End Sub

End Class

مواضيع مشابهة