I have code here to kill a process on a remote machine. If I put in a node name that doesn't exist, it throws a nast vb system.execption error, how can I make so that a simple Msgbox shows that just simply says computer not found or destination host cannot be contacted, or even access denied if the program is being run without the proper permissions.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim objWMIService, objProcess, colProcess, objProgram
Dim strComputer, strProcessKill, strInput, strexe, strShell
strProcessKill = "''"
If (Trim(Me.Pcname.Text) = "") Then
Call MsgBox("Please, Type a Host Name or IP.", MsgBoxStyle.Exclamation, Application.ProductName)
Exit Sub
End If
' Input Box to get name of machine to run the process
Do
strComputer = Pcname.Text
If strComputer <> "" Then
strInput = True
End If
Loop Until strInput = True
objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill)
For Each objProcess In colProcess
objProcess.Terminate()
Next
TextBox1.Text = (" Just killed process " & strProcessKill _
& " on " & strComputer)
End Sub
ASKER