‎10-09-2013 06:26 PM
Set objUser = GetObject _
("LDAP://cn=User1,ou=MyUsers,ou=MySite,dc=MyDomain")
strCity = InputBox("Please enter the name of the city:", _
"Active Directory City Attribute")
If strCity = "" Then
Wscript.Quit
End If
strState = InputBox("Please enter the name of the state:", _
"Active Directory State Attribute")
If strState = "" Then
Wscript.Quit
End If
objUser.Put "l", strCity
objUser.Put "st", strState
objUser.SetInfo
‎10-10-2013 09:21 PM
‎10-10-2013 01:26 PM
{actionpath}ModCityState.vbs "{cn}"
‎10-09-2013 07:40 PM
struser= WScript.Arguments(0)
Set objUser = GetObject("LDAP://" & struser)
strCity = InputBox("Please enter the name of the city:", _
"Active Directory City Attribute")
If strCity = "" Then
Wscript.Quit
End If
strState = InputBox("Please enter the name of the state:", _
"Active Directory State Attribute")
If strState = "" Then
Wscript.Quit
End If
objUser.Put "l", strCity
objUser.Put "st", strState
objUser.SetInfo
{actionpath}ModCityState.vbs"{cn}"
‎10-09-2013 07:25 PM
struser= WScript.Arguments(0)
Set objUser = GetObject("LDAP://" & struser)
Experience Lansweeper with your own data. Sign up now for a 14-day free trial.
Try Now