Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

VBS: Создание локального юзера, "connect as"

63K
08 октября 2010 года
Shams
1 / / 08.10.2010
День добрый, мастера технологий!

Есть в наличии несколько серверов Windows 2008(64bit) c ASP.NET. (IIS7, MSSQL 2008).
Периодически требуется заводить нового юзера:
- в системе
- в IIS (вот тут просто не знаю как)
- а затем на SQL сервере

Первая часть такая:

'Username
strAccount = "my_test_user"
'Password
strPswd = "Rddlj3vty7"
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
' Check if account already exists
intExists = 0
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")
For Each objUser In colAccounts
If objUser.Name = strAccount Then
intExists = 1
End If
Next
If intExists = 0 Then
' Creating user
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", strAccount)
' Set password
objUser.SetPassword strPswd
objUser.SetInfo
' Password parameters
Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",User")
objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags Or ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
' Add to required local Windows group
Set objGroup = GetObject("WinNT://" & strComputer & "/IIS_IUSRS,group")
Set objUser = GetObject("WinNT://" & strComputer & "/" & strAccount & ",user")
objGroup.Add(objUser.ADsPath)
End If

Третью часть планирую сделать с момощью sqlcmd.exe.

Помогите пожалуйста завести юзера скриптом в IIS7? Хочется именно прикрепить его (юзера) на конкретный сайт (Mysite - Basic settings - "connect as")

С уважением
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог