Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michaël THIBAUT
Bonjour,
Voici un script qui t'aidera à réaliser cela: ------- DEBUT ---------------- On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select DomainRole from Win32_ComputerSystem",,48) For Each objItem in colItems
Select case objItem.DomainRole
Case 0 Wscript.Echo "Standalone WorkStation"
Case 1 Wscript.Echo "Member WorkStation"
Case 2 Wscript.Echo "Standalone Server"
Case 3 Wscript.Echo "Member Server"
Case 4 Wscript.Echo "Backup Domain Controller"
Case 5 Wscript.Echo "Primary Domain Controller"
End Select
Next
------- FIN ----------------
Coucou,
Quelqu'un peu me rappeler rapidement pour un 2000 server (US) comment on voit sont statu de serveur indépendant, membre ou contrôleur ?
Merci, GOWAP
Bonjour,
Voici un script qui t'aidera à réaliser cela:
------- DEBUT ----------------
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select DomainRole from
Win32_ComputerSystem",,48)
For Each objItem in colItems
Select case objItem.DomainRole
Case 0
Wscript.Echo "Standalone WorkStation"
Case 1
Wscript.Echo "Member WorkStation"
Case 2
Wscript.Echo "Standalone Server"
Case 3
Wscript.Echo "Member Server"
Case 4
Wscript.Echo "Backup Domain Controller"
Case 5
Wscript.Echo "Primary Domain Controller"
End Select
Next
------- FIN ----------------
Coucou,
Quelqu'un peu me rappeler rapidement pour un 2000 server (US) comment on
voit sont statu de serveur indépendant, membre ou contrôleur ?
Voici un script qui t'aidera à réaliser cela: ------- DEBUT ---------------- On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select DomainRole from Win32_ComputerSystem",,48) For Each objItem in colItems
Select case objItem.DomainRole
Case 0 Wscript.Echo "Standalone WorkStation"
Case 1 Wscript.Echo "Member WorkStation"
Case 2 Wscript.Echo "Standalone Server"
Case 3 Wscript.Echo "Member Server"
Case 4 Wscript.Echo "Backup Domain Controller"
Case 5 Wscript.Echo "Primary Domain Controller"
End Select
Next
------- FIN ----------------
Coucou,
Quelqu'un peu me rappeler rapidement pour un 2000 server (US) comment on voit sont statu de serveur indépendant, membre ou contrôleur ?