Приветствую!
Есть задача: на сервере Win2KServ без домена находятся порядка 100 пользователей... необходимо им установить флаг "Срок действия пароля не ограничен".
при выполнении следующего кода возникает ошибка

1: ServerName="Server1"
2: UserName="User1"
3: Const DONT_EXPIRE_PASSWD = &h10000
4: Set objUser = GetObject("WinNT://" & ServerName & "/" & UserName & ",user")
5: intUAC = objUser.Get("userAccountControl")
6: If Not (DONT_EXPIRE_PASSWD AND intUAC) Then
7:    objUser.Put "userAccountControl", intUAC XOR DONT_EXPIRE_PASSWD
8:    objUser.SetInfo
9: End If

Ругается на строку 5 и говорит: "Свойства службы каталогов Active Directory не могут быть найдены в кэше"

В чем загвоздка? Каким образом нужно модифицировать скрипт?