VPF::Проблемы скрипта на VBS - Форум программистов

Гость_Delphin

Дата 30.12.2005, 10:34 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Написал я следующий скрипт для создания локального пользователя:

Код


Set objNetwork = CreateObject("Wscript.Network") 
strUserName = "admin2" 
strComputer = objNetwork.ComputerName 
Set objComputer = GetObject("WinNT://" & strComputer & "") 
Set colAccounts = GetObject("WinNT://" & strComputer & "") 
objComputer.Filter = Array("User") 
UserExist = 0 
For Each objUser In objComputer 
If LCase(objUser.Name) = strUserName Then 
UserExist = 1 
Exit For 
End If 
Next 

If UserExist = 0 Then 
Set objUser = colAccounts.Create("user", strUserName) 
End If 
objUser.SetPassword "@dmin2" 
objUser.SetInfo 
UserExist = 0 

Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators, group") 

For Each objUser1 In objGroup.Members 
If LCase(objUser1.Name) = strUserName Then 
UserExist = 1 
Exit For 
End If 
Next 

If UserExist = 0 Then 
'Set objUser = GetObject("WinNT://" & strComputer & "/pce_admin,user") 
objGroup.Add (objUser.ADsPath) 
End If

Цель скрипта. При загрузке компа он проверяет есть ли локальный пользователь Admin2, если нет, он его создает, а потом не зависимо от того был он или нет, назначает ему пароль. Эта часть работает. Потом он должен добавить его в группу локальных админов. На некоторых компах скрипт отрабатывает, а на некоторых выдается ошибка в месте:
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators, group")

Не подскажите, в чем может быть дело?

Akina

Дата 30.12.2005, 11:16 (ссылка)

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

Загрузка ...

Советчик

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

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

наверное, неплохо бы сказать какая именно ошибка...

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

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

Гость_Delphin

Дата 30.12.2005, 11:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

При залуске по Microsoft Visual basic 6.0 дает следующее
Run-time error '-2147463168 (80005000)':
Automation error

А если запустить файл vbs
Line: 21
Char: 1
Error: 0x80005000
Code: 80005000
Source: (null)

Guest

Дата 30.12.2005, 11:53 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Еще хочу добавить. У меня стоит ХР с SP2, прав у меня хоть отбавляй, на моем компе скрипт срабатыват. На еще одном моем компе стоит 2000, там загружается тоже под моей учетной записью, и выдается ошибка. Этот скрипт запускается через политики при старте компов по всему офису, ошибки выдаются процентов у 10 пользователей, но операционки у них пымому разные.

KEKCCCP

Дата 30.12.2005, 20:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Может Exists???

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