Vadimsoul
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Так же вопрос, что я должен изменить в первой части этого скрипта, чтоб он просто у меня заработал:Dim WshNetwork, dn, UserName, strComputer, colItems, objUser Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 ' берем имя компа и пользователя раб станции Set WshNetwork = WScript.CreateObject ("WScript.Network") strComputer = WshNetwork.ComputerName UserName = WshNetwork.UserName ' вытаскиваем distinguishedName пользователя Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\directory\LDAP") Set colItems = objWMIService.ExecQuery("SELECT * FROM ads_user WHERE DS_sAMAccountName='" & UserName & "'", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems FullName = objItem.DS_Name dn = objItem.DS_distinguishedName Next ' подключаемся к АД и вносим имя компа в поле userWorkstations пользователя Set objUser = GetObject ("LDAP://OU=company,OU=Users,OU=ttt,dc=domein,dc=ru") objUser.Put "wWWHomePage",strComputer objUser.SetInfo 'Прописываем пользователя в описание локальной машины k = 34 ' ASCII-код кавычек kk = Chr(k) ' преобразуем в символ для корректного применения в строке Set WshShell = WScript.CreateObject ("WScript.Shell") Set net = WshShell.Exec ("net config server /srvcomment:" & kk & FullName & kk) Права учетке выдал, скрипт выполняется . в userWorkstations ничего не записывает. При это в локальном описании все появляется. |