How To Pass The UserName & Password to any Domain using WMI and .NET

Sub ComputerInfo(ByVal strCN As String, ByVal strDomainName As String,
ByVal shtDomainid As Short, ByVal strUID As String, ByVal strPWD As String,
ByRef theRow As DataRow)

Dim options As New ConnectionOptions()

options.Username = strUID

options.Password = strPWD

Dim scope As New ManagementScope("\Computer.Domain.comrootcimv2", options)

'***************************************************************************

'Retrieves ComputerSystem, OperatingSystem query strings from app.config
' This is an SQL Formatted WMI query.

'***************************************************************************

Dim strCSquery As String = "Select * from Win32_ComputerSystem"
Dim objCSQuery As New WqlObjectQuery(strCSquery)
Dim objCSsearcher As New ManagementObjectSearcher(scope, objCSQuery)

Dim envVar As ManagementObject

Dim rowComputer As DataRow

Dim objCSItem As PropertyData
Dim strCSColName As String

Try

 scope.Connect()

Catch f As Exception

 Console.WriteLine(f.Message)

 Exit Sub

End Try

Try

 For Each envVar In objCSsearcher.Get()

  Try

   For Each objCSItem In envVar.Properties

    strCSColName = objCSItem.Name

    If Convert.ToString(objCSItem.Value) <> String.Empty Then

     theRow.Item(strCSColName) = objCSItem.Value

    Else

     theRow.Item(strCSColName) = Convert.DBNull

    End If

   Next

  Catch f As Exception

   Console.WriteLine(f.Message)
  End Try

 Next

Catch f As Exception

 Console.WriteLine(f.Message)
End Try

End Sub