得到本计算机的一些信息

Public   Class Bq_Pc Class Bq_Pc   '得到本计算机的一些信息
    Private lPcIP, lName, lPcName As String
    Private lTemp, lSys32, lDesk, lWindir, lTemplates As String
    Private lFavorites, lProgramFiles As String

    Public Sub New()Sub New()
        Try
            Dim oEnv As System.Environment
            Dim oSpe As Environment.SpecialFolder
            Dim myip As System.Net.IPHostEntry
            Dim lBqfn As New bqbass.BqFnBass

            myip = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
            lName = System.Environment.UserName            '当前用户名
            If Len(lName) = 0 Then
                lName = System.Environment.UserDomainName   '当前用户名 
            End If
            lPcIP = myip.AddressList.GetValue(0).ToString
            lPcName = System.Environment.MachineName        '当前机器名 
            Dim s As String
            s = System.Environment.OSVersion.ToString
            lPcName = myip.HostName.ToString
            lTemp = lBqfn.BqPathG(System.IO.Path.GetTempPath())
            lDesk = lBqfn.BqPathG(oEnv.GetFolderPath(oSpe.DesktopDirectory))
            lSys32 = lBqfn.BqPathG(oEnv.GetFolderPath(oSpe.System))
            lWindir = lBqfn.BqPathG(oEnv.GetFolderPath(oSpe.MyComputer))   '????

            lTemplates = lBqfn.BqPathG(oEnv.GetFolderPath(oSpe.Templates))
            lProgramFiles = lBqfn.BqPathG(oEnv.GetFolderPath(oSpe.ProgramFiles))
            lFavorites = lBqfn.BqPathG(oEnv.GetFolderPath(oSpe.Favorites))


            Dim k As String = System.Environment.SystemDirectory
            Debug.WriteLine(k)

        Catch ex As Exception
        End Try

        '还要得到cpu的号，硬盘的号等
    End Sub
    Public ReadOnly Property sPcName()Property sPcName() As String        '当前机器名 
        Get
            Return lPcName
        End Get
    End Property   '当前机器名 
    Public ReadOnly Property sPcIP()Property sPcIP() As String        '主机IP
        Get
            Return lPcIP
        End Get
    End Property     '主机IP
    Public ReadOnly Property sUserName()Property sUserName() As String      '当前用户名 
        Get
            Return lName
        End Get
    End Property '当前用户名 
    Public ReadOnly Property sSysPathTemp()Property sSysPathTemp() As String
        Get
            Return lTemp
        End Get
    End Property
    Public ReadOnly Property sSysPathSys32()Property sSysPathSys32() As String
        Get
            Return lSys32
        End Get
    End Property
    Public ReadOnly Property sSysPathDesk()Property sSysPathDesk() As String
        Get
            Return lDesk
        End Get
    End Property
    Public ReadOnly Property sSysPathWindir()Property sSysPathWindir() As String
        Get
            Return lWindir
        End Get
    End Property
    Public ReadOnly Property sSysPathTemplates()Property sSysPathTemplates() As String
        Get
            Return lTemplates
        End Get
    End Property
    Public ReadOnly Property sSysPathFavorites()Property sSysPathFavorites() As String
        Get
            Return lFavorites
        End Get
    End Property
    Public ReadOnly Property sSysPathProgramFiles()Property sSysPathProgramFiles() As String
        Get
            Return lProgramFiles
        End Get
    End Property
End Class   ' 得到本计算机的一些信息