VPF::VBS: TerminalServicesProfilePath - Форум программистов

quasi

Дата 28.8.2007, 04:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0

плиз ткните что не так?

Код



Option Explicit

Const ADS_PROPERTY_CLEAR = 1
Const ADS_PROPERTY_UPDATE = 2
Const ADS_PROPERTY_APPEND = 3
Const ADS_PROPERTY_DELETE = 4

Dim objUser, objRDSE
Dim colItems, objItem
Dim strTemp

Const strUserID = "[strUserID]"
Const strLDAPPath = "[strLDAP_Path]"

Set objRDSE = GetObject("LDAP://rootDSE")
Set objUser = GetObject("LDAP://cn=" & strUserID & "," & strLDAPPath & "," & objRDSE.Get("defaultNamingContext"))


WScript.Echo "TERMINAL SERVICES PROFILE PROPERTIES PAGE"

On Error Resume Next

objUser.TerminalServicesProfilePath = ""
objUser.SetInfo

Set objUser = Nothing

ругается на 16 строчку

Это сообщение отредактировал(а) quasi - 29.8.2007, 00:29

quasi

Дата 29.8.2007, 00:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 9.6.2007

Репутация: 1
Всего: 0

Вот такая ошибка....

Присоединённый файл ( Кол-во скачиваний: 6 )

error.jpg 11,26 Kb

Akina

Дата 29.8.2007, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Знаешь, если сделать тупой такой поиск на Гугле по 8-значному коду ошибки (80072032), который тебе выдает рантайм, то практически сразу получаешь ответ.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »