Get Current Domain Name

   Public Function GetDomainName() As String

        Dim strDomain As String

        'Returns domain name and username
        strDomain = System.Security.Principal.WindowsIdentity.GetCurrent.Name

        'Extract domain name from full login
        strDomain = Mid(strDomain, 1, InStr(strDomain, "\") - 1)

        Return strDomain

    End Function