<code lang="VB.NET">
        Public Shared Function GetCurrentWindowsIdentity() As String
            Try
                Return System.Security.Principal.WindowsIdentity.GetCurrent.Name
            Catch ex As Exception
                Return String.Empty
            End Try
        End Function

        Public Shared Function GetCurrentEnvironmentIdentity() As String
            Try
                Return System.Environment.UserDomainName + "\" + System.Environment.UserName
            Catch ex As Exception
                Return String.Empty
            End Try
        End Function

        Public Shared Function GetCurrentEnvironmentDomain() As String
            Try
                Return System.Environment.UserDomainName
            Catch ex As Exception
                Return String.Empty
            End Try
        End Function
</code>