' Check if domain-joined
Public Function obf_DomainJoinedCheck() As Boolean
    On Error GoTo obf_ProcError
    Dim obf_partOfDomain, obf_DomainName, obf_objWMIService, obf_coll, obf_obj

    obf_partOfDomain = False
    obf_DomainName = ""

    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
        End If
    Next
    
    If obf_partOfDomain = False Then
        obf_DomainJoinedCheck = False
        Exit Function
    End If
        
    obf_DomainJoinedCheck = True
    Exit Function

obf_ProcError:
    obf_DomainJoinedCheck = False
End Function