services agen...

[jorge]

Hey,
Id like to make a list of all services,
Via a list box i pasible, somesaid use System.ServiceProcess.ServiceController.GetServices()
But dont have a clow howto!
Anyone?

 

[PlausiblyDamp]

just add a listbox to a form and from the components tab drop a service controller onto the form, then use this code in aform_load

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim sc As System.ServiceProcess.ServiceController

		For Each sc In ServiceController1.GetServices
			ListBox1.Items.Add(sc.ServiceName)
		Next
	End Sub

 

[jorge]

Cool thanx
Can i filter them?
Like in the description need to be "some text"?
And set the listbox to select "apache2" as default?

 

[PlausiblyDamp]

The following will autoselect a particular item

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim sc As System.ServiceProcess.ServiceController

		For Each sc In ServiceController1.GetServices
			ListBox1.Items.Add(sc.DisplayName)   Edit: shows pretty name for service
		Next

		ListBox1.SelectedIndex = ListBox1.FindString("Indexing")    Change "Indexing" to "Apache2" or whatever the service name is
	End Sub

To filter you could use regular expressions if you need complex matching or for a simple one something like

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim sc As System.ServiceProcess.ServiceController

		For Each sc In ServiceController1.GetServices
			If sc.DisplayName.StartsWith("In") Then
				ListBox1.Items.Add(sc.DisplayName)
			End If
		Next

		ListBox1.SelectedIndex = ListBox1.FindString("Indexing")
	End Sub

 

[jorge]

ok Thanx a lot
//edit: Can i filter on description?
Did not see iet anywhere.
//edit2: How do i clear the listbox?

 

[PlausiblyDamp]

To clear the list

listbox1.Items.Clear

Not too sure how you would get the description without a lot more effort though.

 

[jorge]

Thanx,
Well, ill try filtering by names then