AJUDA COM CLASSE WMI

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM CLASSE WMI

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#487658 - 14/03/2019 16:33:38

ALEVALE
JUNDIAI
Cadast. em:Março/2012


Pessoal boa tarde,

Uma ajuda, estou criando uma classe para retornar alguns dados remotos dos computadores utilizando WMI, até ai tudo bem.

Eu criei a classe estou criando na realidade, mas acho que ela não está "tecnicamente eficaz", alguém teria uma sugestão de como poderia melhorar a funcionalidade ?  

Imports System.Management

Public Class Computers_WMI

    Private Function WMI_Credentials() As ConnectionOptions
        Try
            Dim options As ConnectionOptions = New ConnectionOptions()
            options.Impersonation = System.Management.ImpersonationLevel.Impersonate
            options.Username = Username
            options.Password = Password
            Return options

        Catch ex As Exception

        End Try
    End Function

    Public Property SerialNumber() As String
        Get
            Dim scope As ManagementScope = New ManagementScope("\\COMPUTER\root\cimv2", WMI_Credentials)
            scope.Connect()

            Dim query As ObjectQuery = New ObjectQuery("SELECT * FROM win32_bios")
            Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(scope, query)
            Dim queryCollection As ManagementObjectCollection = searcher.[Get]()

            For Each m As ManagementObject In queryCollection
                If m.GetPropertyValue("SerialNumber") Is Nothing Then Return String.Empty
                Return CStr(m.GetPropertyValue("SerialNumber"))
            Next

        End Get

        Set(ByVal value As String)
            _count = value
        End Set
    End Property
End Class


---------------------------------------------------------------
"Já está provado por A+B que A+B num prova nada"
---------------------------------------------------------------

 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário