Private Function CheckPrintLabelRunning() As Boolean
    Dim selectQuery As System.Management.SelectQuery = New System.Management.SelectQuery("Win32_Process")
    Dim searcher As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher(selectQuery)
    Dim y As System.Management.ManagementObjectCollection = searcher.Get
    For Each proc As System.Management.ManagementObject In y
        Dim s(1) As String
        proc.InvokeMethod("GetOwner", CType(s, Object()))
        Dim n As Integer = Convert.ToInt32(proc("ProcessId"))
        If proc("Name").ToString.ToUpper = "vbPrintLabel.exe".ToUpper Then
            Try
                If s(0).ToString.ToUpper = Environment.UserName.ToUpper Then
                    Return True
                End If
            Catch ex As Exception
            End Try
        End If
    Next
    Return False
End Function
Private Sub StartPrintLabelListener()
    If Not CheckPrintLabelRunning() Then
        'If Not CheckPrintLabelRunning() Then
        Dim p As New System.Diagnostics.Process
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.FileName = "C:Launcher.exe"
        p.StartInfo.Arguments = "vbPrintLabel.exe 4 " & COMPANY.ToUpper & " " & intSessionID & " " & Environment.UserName.ToUpper & " Y"
        p.Start()
    End If
End Sub

System.Management.ManagementException: Not found
   at System.Management.ManagementException.ThrowWithExtendedInfo(ManagementStatus errorCode)
   at System.Management.ManagementObject.InvokeMethod(String methodName, ManagementBaseObject inParameters, InvokeMethodOptions options)
   at System.Management.ManagementObject.InvokeMethod(String methodName, Object[] args)
   at vbFullCasePicking.frmFullCasePicking.CheckPrintLabelRunning()
   at vbFullCasePicking.frmFullCasePicking.StartPrintLabelListener()
   at vbFullCasePicking.frmFullCasePicking.PrintLabel(Boolean blnSMPLabels, String strCartonID)