Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim RC As String = TextBox1.Text Dim taskID As String = listview2.selecteditems (doesnt work), (when i replace with "4784", it works) Dim theScope As New ManagementScope("\\" & RC & "\root\cimv2") Dim objectQuery As New ObjectQuery(String.Concat("SELECT * FROM Win32_Process WHERE ProcessID='", taskID, "'")) For Each managementObject As ManagementObject In (New ManagementObjectSearcher(theScope, objectQuery)).[Get]() managementObject.InvokeMethod("Terminate", Nothing) Next End Sub
Join the community of 500,000 technology professionals and ask your questions.