Dim myConnectionOptions As New System.Management.ConnectionOptions
            With myConnectionOptions
                .Impersonation = _
                  System.Management.ImpersonationLevel.Impersonate
                '* Use next line for XP
                .Authentication = System.Management.AuthenticationLevel.Packet
                .Authority = "ntlmdomain:mydomain"
                .Username = "myname"
                .Password = "mypassword"
            End With
 
            Dim myManagementScope As System.Management.ManagementScope
            '* Replace the "." with an actual servername for remote connection
            Dim myServerName As String = "myserver"
            myManagementScope = New System.Management.ManagementScope("\\" & _
              myServerName & "\root\cimv2", myConnectionOptions)
            '* connect to WMI namespace
            myManagementScope.Connect()
            If myManagementScope.IsConnected = False Then
                MsgBox("Could not connect to WMI namespace")
            End If 
 
            Dim myObjectSearcher As System.Management.ManagementObjectSearcher
            Dim myCollection As System.Management.ManagementObjectCollection
            Dim myObject As System.Management.ManagementObject
            myObjectSearcher()
            myObjectSearcher = New System.Management.ManagementObjectSearcher( _
              myManagementScope.Path.ToString, "Select * From Win32_Process")
            '* execute query
            myCollection = myObjectSearcher.Get()
            '* list packages installed
            For Each myObject In myCollection
                MsgBox(myObject.GetPropertyValue("Caption"))
            Next