超備忘録

俺用備忘録 ADのTips
携帯から見られるし便利なのよね。

意外とネット上に情報が無いので、必要な方はどーぞ
こういうものって必要な時に頭の中から出てこないんだな

SAMIDとCN以外はdsmod userで変更できるのでそっちの方が楽

---------------
ADユーザのSAMIDとUPNを変更するスクリプト

Set objUser = GetObject("LDAP://CN=user1, OU=MyOU, DC=MyDomain, DC=com")
objUser.sAMAccountName = "user2"
objUser.userPrincipalName = "user2"
objUser.SetInfo

---------------
ADユーザの名前(CN)を変更するスクリプト

Set oTargetOU = GetObject("LDAP://OU=MyOU,DC=MyDomain,DC=com")

oTargetOU.MoveHere "LDAP://CN=user1,OU=MyOU,DC=MyDomain,DC=com","CN=user2"

---------------
ADの指定したOU以下の全ユーザのSAMIDを表示名と同一にするスクリプト
たまたま俺が表示名をSAMIDにしたかったからで、表示名じゃなくて別に姓でも名でもいいんだが…

Set oTargetOU = GetObject("LDAP://OU=MyOU,DC=MyDomain,DC=com")

oTargetOU.Filter = Array("user")

For each usr in oTargetOU
  if instr(usr.sAMAccountName, "$") = 0 then
    usr.put "sAMAccountName", usr.DisplayName
    usr.setinfo
  end if
Next

表示名に変な文字が入っててWindowsに怒られてもつまらんので、文字種のチェックする場合はこんな関数になるか？
わざわざ関数にしなくてもなんら問題ないけどね。
正規表現が使えると便利ですな。組織によってネーミングルールがあるだろうし。
Function fncStrChk(str1)
  set oRegEx = New RegExp
  oRegEx.Pattern = "[0-9A-Za-z]+"
  If oRegEx.Test(str1) Then
    fncStrChk=True
  Else
    fncStrChk=False
  End If
End Function

そうすると？これを
For each usr in oTargetOU
  if instr(usr.sAMAccountName, "$") = 0 then

こうすればイイんじゃね？超適当ですけどｗ とりあえずちゃんと動いた。
For each usr in oTargetOU
  if fncStrChk(usr.DisplayName)=True And instr(usr.sAMAccountName, "$") = 0 then

コアとなる部分だけ書いたけど、実際はエラーチェックとかCSVファイルから引っ張ってきたりするコードが必要なことは言うまでもなく。