' Verify joined domain name
Public Function obf_DomainNameCheck() As Boolean
    On Error GoTo obf_ProcError
    Dim obf_obj, obf_partOfDomain, obf_DomainName, obf_expectedDomainName, obf_objWMIService

    obf_partOfDomain = False
    obf_DomainName = ""
    obf_expectedDomainName = "<<<DOMAIN_NAME>>>"

    Set obf_objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set obf_coll = obf_objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
    
    For Each obf_obj In obf_coll
        If obf_obj.partOfDomain Then
            obf_partOfDomain = True
            obf_DomainName = LCase(obf_obj.Domain)
        End If
    Next
    
    If obf_partOfDomain = False Then
        obf_DomainNameCheck = False
        Exit Function
    End If

    If obf_DomainName = "" Then
        obf_DomainNameCheck = False
        Exit Function
    Else
        If StrComp(obf_DomainName, obf_expectedDomainName, vbTextCompare) <> 0 Then
            obf_DomainNameCheck = False
            Exit Function
        End If
    End If
        
    obf_DomainNameCheck = True
    Exit Function

obf_ProcError:
    obf_DomainNameCheck = False
End Function