AD Account Unlock

[sotghalz]

Good Morning,

I have been toying around with this script I put together and I can't figure out one piece.

The questions is how do I get "userul" to become part of Set objDomain = GetObject(??????????????)?

Thank you for your help!

''''''''''
Dim userul
Dim strCN, strOU, strDC, strProvider
Dim objDomain

Do
TryAgain = "No"

userul = InputBox("Enter Users username")

If userul = "" Then
MsgBox "You must enter the users username!"
TryAgain = "Yes"
Else
MsgBox ("You entered: " & userul)
End If

Loop While TryAgain = "Yes"

strCN = userul
strOU = "ou = Standard, ou = User Accounts, ou = PHL,"
strDC = "dc = *****, dc = *****, dc = *****"
strProvider = "LDAP://"

Set objDomain = GetObject(strProvider & strCN & strOU & strDC)

objDomain.IsAccountLocked = False
objDomain.SetInfo

''''''''''

 

[frumpus]

Right now your ADS Path comes out as:

"LDAP://usernameou=Standard, ou=User Accounts, ou=PHL, dc=*****, dc=*****"

So for starters, you need to get CN= in front of the username and a comma behind it.

try this

strCN = "CN= " & userul & ", "

 

[sotghalz]

I get an error:
Line = 27
error = (null)
code = 80072030
source = (null)

System: There is no such object on the server

I have modified the whole script but put your suggestion in. Here is the whole script:

' This VBScript code unlocks a locked user.

Dim userul
Dim strCN, strOU, strDC, strProvider

MsgBox ("****Copy text in Username field****")

Do
  TryAgain = "No"
  
  userul = InputBox("Enter Users username") 

  If userul = "" Then
    MsgBox "You must enter the users username!"
      TryAgain = "Yes"
  Else
    MsgBox ("You entered: " & userul)
  End If

Loop While TryAgain = "Yes"

strCN = "CN=" & userul &", "
strOU = "ou=Standard,ou=User Accounts,ou=PHL,"
strDC = "dc=*****,dc=*****,dc=*****"
strProvider = "LDAP://"

[COLOR=red]set objUser = GetObject(strProvider & strCN  & strCN  & strOU  & strDC)[/color]

  if objUser.IsAccountLocked = TRUE then
     objUser.IsAccountLocked = FALSE
     objUser.SetInfo
     WScript.Echo "Account unlocked"
  Else
     WScript.Echo "Account not locked"
  End if

 

[sotghalz]

Got it to work. This code has an extra & strCN:

set objUser = GetObject(strProvider & strCN  & strCN  & strOU  & strDC)

Thanks for all your help.

Chase

 

[frumpus]

For future reference msgBox is a handy tool during coding to make sure you are putting your strings together right.

Like before you call GetObject throw in a temporary:

msgBox(strProvider & strCN & strCN & strOU & strDC)

that will throw up a message box with the string and an ok button so you can see what you are actually passing to GetObject. You would have caught your error right away.

 

[sotghalz]

Thank you. Good point.