strComputer = "."

Set objNetwork = CreateObject("Wscript.Network")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery ("Select DomainRole from Win32_ComputerSystem")

For Each objComputer in colComputers

    Select Case objComputer.DomainRole
        Case 0
            Wscript.Echo objNetwork.ComputerName & " : Station de travail autonome"
        Case 1       
            Wscript.Echo objNetwork.ComputerName & " : Station de travail membre du domaine " & objNetwork.UserDomain
        Case 2
            Wscript.Echo objNetwork.ComputerName & " : Serveur autonome"
        Case 3
            Wscript.Echo objNetwork.ComputerName & " : Serveur membre du domaine " & objNetwork.UserDomain
        Case 4
            Wscript.Echo objNetwork.ComputerName & " : Contôleur de domaine secondaire (BDC) du domaine " & objNetwork.UserDomain
        Case 5
            Wscript.Echo objNetwork.ComputerName & " : Contôleur de domaine du domaine " & objNetwork.UserDomain
    End Select

Next