Obtener Grupo de Trabajo desde VB. 2008

[noejoel25]

Hola saludos a todos y muchas gracias por ver mi tema..

He conseguido obtener el ip, nombre del pc y dominio de red de un pc a traves de Visual Basic 2008.

Solo me falta obtener el grupo de trabajo de una pc.


Muchas gracias. espero una respuesta para salir de esta bronquilla

[portalmana]

Hola, espero que ya lo hayas logrado pero si no fue así esto te puede ayudar.
Crea una Clase o Modulo con la siguiente Funcion

Código vb:

Public Function getPropiedad(ByVal propiedad As String, Optional tipo As String = "OperatingSystem") As String
            Dim valorPropiedad As String = ""
 
            Dim objMgmt As New Management.ManagementObject
            Dim objMOS As Management.ManagementObjectSearcher
 
            Try
                objMOS = New Management.ManagementObjectSearcher("SELECT " & propiedad & " FROM Win32_" & tipo)
                For Each objMgmt In objMOS.Get
                    valorPropiedad = objMgmt.Item(propiedad).ToString()
                Next
            Catch ex As Management.ManagementException
                Select Case ex.ErrorCode.ToString
                    Case "InvalidClass"
                        MsgBox("Se requiere un tipo valido")
                    Case "InvalidQuery"
                        MsgBox("Se requiere una propiedad valida")
                    Case Else
                        MsgBox("Error de Consulta Inesperado")
                End Select
            Catch ex As Exception
                MsgBox(ex.Message & " " & ex.GetType().ToString)
            End Try
 
            Return valorPropiedad
        End Function
 

Acuérdate de añadir como referencia a:
System.Management

Luego para usar la función, solo le debes pasar el tipo y la propiedad que quieres.

Código vb:

tuModulo.getPropiedad("Workgroup","ComputerSystem")
 

Bueno no se si es esta la propiedad, pero si no aqui tienes una lista:
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

Saludos