Today I had to troubleshoot a mail problem on a web server. I needed to determine if the SMTP Service was running. I used to have an ASP script to list Windows Services and their status but I needed something written in ASP.NET. As usual, I had problems finding any sample code on the Internet and there was a technical issue that frustrated me. The technical problem is that you need to manually add a reference to System.ServiceProcess in Visual Studio.NET 2003. You cannot use an Imports statement to reference that Namespace.<\/p>\n
\r\n Private<\/font> Sub<\/font> Page_Load(ByVal sender As<\/font> System.Object, ByVal e As<\/font> System.EventArgs) Handles MyBase<\/font>.Load\r\n 'Put user code to initialize the page here<\/font>\r\n ' Define a DataSet with a single DataTable.<\/font>\r\n ds.Clear()\r\n ds.Tables.Add("Services")\r\n\r\n ' Define two columns for this table.<\/font>\r\n ds.Tables("Services").Columns.Add("service_name")\r\n ds.Tables("Services").Columns.Add("service_status")\r\n\r\n Try<\/font>\r\n Dim<\/font> services() As<\/font> System.ServiceProcess.ServiceController\r\n services = System.ServiceProcess.ServiceController.GetServices()\r\n Dim<\/font> iCounter As<\/font> Integer<\/font>\r\n\r\n For<\/font> iCounter = 0 To services.Length - 1\r\n rs = ds.Tables("Services").NewRow()\r\n rs("service_name") = services(iCounter).DisplayName\r\n rs("service_status") = services(iCounter).Status\r\n ds.Tables("Services").Rows.Add(rs)\r\n Next<\/font>\r\n\r\n rptServices.DataSource = ds\r\n rptServices.DataBind()\r\n Catch<\/font> ex As<\/font> Exception\r\n lblError.Text = ex.Message & "<br>" & ex.StackTrace\r\n End Try<\/font>\r\n End Sub<\/font>\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Today I had to troubleshoot a mail problem on a web server. I needed to determine if the SMTP Service was running. I used to have an ASP script to list Windows Services and their status but I needed something … Continue reading