'==========================================================================
'
' NAME: <ModifyTelephoneAttributes.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 6/13/2006
'
' COMMENT: <Uses adsi to user telephone profile>
'
'==========================================================================
Option Explicit
Dim strProvider 'defines how will talk. 
Dim strOU ' path to where new object will be created
Dim strDomain 'name of domain connecting to
Dim strOUName 'User name
Dim objUser 'holds connection to adsi

strProvider = "LDAP://"
strOU = "ou=mred,"
strDomain = "dc=nwtraders,dc=msft"
strOUName = "CN=myNewUser,"

Set objUser = GetObject(strProvider & strOUName & strOU & strDomain)
WScript.echo strProvider & strOUName & strOU & strDomain ' debug info
objUser.put "homePhone", "(215)788-4312"
objUser.put "pager", "(215)788-0112"
objUser.Put "mobile", "(715)654-2341"
objUser.Put "facsimileTelephoneNumber", "(215)788-3456"
objUser.Put "ipPhone", "192.168.6.112"
objUser.Put "info", "All contact information is confidential, " &_
	"and is for official use only."
objUser.SetInfo

If Err.Number = 0 Then
WScript.Echo("User " & strOUName & " was modified") 
Else
WScript.echo "an error occurred. it was: " & Err.Number
End If