Show all the PC in DC

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set PrimDomainContr = getobject("WinNT://" & wshNetwork.UserDomain)
    PrimDomainContr.filter = Array("Computer")   
    For each Computer in PrimDomainContr
      wscript.echo Computer.Name
    Next
Set PrimDomainContr = nothing
Set WshNetwork = nothing
WScript.quit