Web Listing 1: DClist.vbs
BEGIN CALLOUT A
Set domain = GetObject("LDAP://dc=sto;dc=local")
END CALLOUT A
dim str
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("SetDClist.cmd", True)

For each child in domain
  IF child.name = "OU=Domain Controllers" then
    for each dc in child
      if not IsEmpty(str) then str = str + ","
      str=str & "\\" & mid(dc.name,instr(dc.name,"=")+1) & "\Security"
    next
  end if
Next

f.writeline "set DClist=" & str
f.close