'____________________________________________________________________[ header ]__
' Cerro Scripts:   ADSCreateDialog.cmd
'
' Copyright (c) 2005 Philipp Föckeler (www.cerrotorre.de)
'
' Sets the ADS user and contact creation dialog in ADS User and Computers
' to "Surname, Givenname". Works on english and geman management stations.
'
' Usage:  ads-create-dialog.cmd
'________________________________________________________________________________

Wscript.Echo "ADSCreateDialog  (c) 2004 Philipp Foeckeler (www.cerrotorre.de)" & vbCrLf
Wscript.Echo "Configuring ADS user and contact create dialog......."

Set root = GetObject("LDAP://RootDSE")
configNC = root.Get("ConfigurationNamingContext")

Set display = GetObject("LDAP://CN=contact-Display,CN=407,CN=DisplaySpecifiers," & configNC)
display.Put "createDialog", "%<sn>, %<givenName>"
display.SetInfo

Set display = GetObject("LDAP://CN=user-Display,CN=407,CN=DisplaySpecifiers," & configNC)
display.Put "createDialog", "%<sn>, %<givenName>"
display.SetInfo

Set display = GetObject("LDAP://CN=contact-Display,CN=409,CN=DisplaySpecifiers," & configNC)
display.Put "createDialog", "%<sn>, %<givenName>"
display.SetInfo

Set display = GetObject("LDAP://CN=user-Display,CN=409,CN=DisplaySpecifiers," & configNC)
display.Put "createDialog", "%<sn>, %<givenName>"
display.SetInfo