Resette alle password til det samme som brugernavnet

For du ikek lov til hvis complex password er slået til, så må dele af brugernavnet ikke indgå i passwordet.

okay men så et andet password... fx bare at kodeordet skal være kodeord ved alle brugere...

vil det ikke give problemer at bruge tidligere profiler ? et andet må du vist scripte dig ud af tror jeg...

Jo, det kan gøres med et script, men som sb skriver, så må komplex password ikke være sat.

Skrevet i vbscript kan du gøre således:

Option Explicit

Dim objDSE, strDN, objContainer, objChild

Set objDSE = GetObject("LDAP://rootDSE")
strDN = "CN=Users," & objDSE.Get("defaultNamingContext")
Set objContainer = GetObject("LDAP://" & strDN)

objContainer.Filter = Array("user")
For Each objChild In objContainer
    WScript.Echo objChild.Name & vbTab & objChild.Description
    objUser.SetPassword "<ønsket password>"
'    eksempel hvor password er brugernavn
'    objUser.SetPassword objUser.samAccountName
    objUser.SetInfo
Next

lille rettelse, så OU=elever bliver brugt

Option Explicit

Dim objDSE, strDN, objContainer, objChild

Set objDSE = GetObject("LDAP://rootDSE")
strDN = "OU=Elever," & objDSE.Get("defaultNamingContext")
Set objContainer = GetObject("LDAP://" & strDN)

objContainer.Filter = Array("user")
For Each objChild In objContainer
    WScript.Echo objChild.Name & vbTab & objChild.Description
    objUser.SetPassword "<ønsket password>"
'    eksempel hvor password er brugernavn
'    objUser.SetPassword objUser.samAccountName
    objUser.SetInfo
Next
--
det er ikke testet, men det burde virke