Nebo by kód mohl vypadat takhle s tím, že by se musel změnit řádek Set objUser?

Sub ChangePassword(sNewPassword)
   Set objSysInfo = CreateObject("ADSystemInfo")
   Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
   objUser.Password = sNewPassword
   objUser.SetInfo
   Set objUser = Nothing
   Set objSysInfo = Nothing
End Sub