A single pane of glass for real-time monitoring, troubleshooting and remediation across your IT infrastructure
A powerful tool to gain an understanding of your environment’s past behavior, optimization potential and future needs.
See and manage load balancers, gateways, and HDX session in real time
Measure, analyze, benchmark and improve load times for your enterprise key applications
Boost your management, troubleshoot, and remediation capabilities
with scripts created by experts in the IT community.
Version: 1.2.8Creator Name: Zeev EisenbergDate Created: 2014-02-20Date Modified: 2014-02-23Scripting language: VBSDownload Count: 164
On Error Resume Next
Set objStdErr = WScript.StdErr
If wscript.arguments(1) <> wscript.arguments(2) Then
objStdErr.Write("The password and its confirmation do not match. Please try again.")
' Constants for the NameTranslate object.
Const ADS_NAME_INITTYPE_GC = 3
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1
strUserAccount = wscript.arguments(0)
' Use the NameTranslate object to convert the NT user name to the
' Distinguished Name required for the LDAP provider.
Set objTrans = CreateObject("NameTranslate")
objTrans.Init ADS_NAME_INITTYPE_GC, ""
objTrans.Set ADS_NAME_TYPE_NT4, strUserAccount
strUserDN = objTrans.Get(ADS_NAME_TYPE_1779)
' Escape any "/" characters with backslash escape character.
' All other characters that need to be escaped will be escaped.
strUserDN = Replace(strUserDN, "/", "\/")
' Reset a User's password
Set objUser = GetObject("LDAP://" & strUserDN)
If Err.Number <> 0 Then
objStdErr.Write("Error in setting password: " & vbCrLf)
objStdErr.Write("Source: " & Err.Source & vbCrLf)
objStdErr.Write("Description: " & Err.Description & vbCrLf)
Wscript.Echo "The password was changed."
Gain access to ControlUp from your PC. Register and get a link to start your Free Trial.