44 lines
1.0 KiB
Plaintext
44 lines
1.0 KiB
Plaintext
Dim ArgCount
|
|
ArgCount = Wscript.arguments.count
|
|
|
|
If ArgCount = 3 Then
|
|
|
|
set n = getobject ("winmgmts:root/directory/ldap")
|
|
|
|
Set context = CreateObject("WbemScripting.SWbemNamedValueSet")
|
|
|
|
context.Add "__PUT_EXTENSIONS" , 1
|
|
context.Add "__PUT_EXT_CLIENT_REQUEST" , 1
|
|
context.Add "__PUT_EXT_PROPERTIES" , Array ( "DS_homePhone" )
|
|
|
|
set n = getobject ("winmgmts:root/directory/ldap")
|
|
|
|
|
|
Dim Query
|
|
Query = "select * from Ds_User Where ds_sn='" & Wscript.arguments.Item(0) & "' And ds_GivenName='" & Wscript.arguments.Item(1) & "'"
|
|
|
|
set users = n.ExecQuery ( Query )
|
|
|
|
For each user in users
|
|
|
|
user.DS_homePhone = Wscript.arguments.Item(2)
|
|
|
|
WScript.Echo "Writing"
|
|
User.Put_ 0 , context
|
|
if err <> 0 then
|
|
WScript.Echo Hex(Err.Number), Err.Description, Err.Source
|
|
Set LastError = CreateObject("WbemScripting.SWbemLastError")
|
|
WScript.Echo LastError.GetObjectText_
|
|
Err.Clear
|
|
end if
|
|
|
|
Next
|
|
|
|
Else
|
|
|
|
WScript.Echo "Run CScript EnumUsers.vbs Surname GivenName PhoneNumber"
|
|
|
|
End If
|
|
|
|
|