続いてはこちら、こういう設定したいって要望は結構ありますな。
これ設定することで動作しなくなるアプリケーションがあったりするので、注意が必要です。
On Error Resume Next
strPatternDN = "OU=Worker, OU=Users, OU=Sales, DC=yama3, DC=net"
strWorkstations = "pc1,pc2,pc3,pc4,pc5,pc6,pc7,pc8,pc9,pc10"
Set objOU = GetObject("LDAP://" & strPatternDN)
objOU.Filter = Array("User")
For Each objItem in objOU
Err.Clear
strUser = objItem.CN
WScript.Echo strUser
Set objUser = GetObject("LDAP://CN=" & strUser & ", " & strPatternDN)
objUser.Put "userWorkstations", strWorkstations
objUser.SetInfo
If Err.Number <> 0 Then
WScript.Echo " Error"
WScript.Echo " " & Err.Number
WScript.Echo " " & Err.Description
WScript.Echo " " & Err.Message
Err.Clear
End If
Next
strWorkstationsの値を、指定したOUに属するコンピュータから生成するようにするのも結構実用的な気がしますね。