/********************************************************************/
/* Имя: Add_Groups_Users.js                                         */
/* Язык: JScript                                                    */
/* Описание: Создание групп на компьютере                           */
/*           Создание пользователей на компьютере                   */
/*           Помещение пользователей в группы на компьютере         */
/********************************************************************/

var NetWork=WScript.CreateObject("WScript.Network");
var NameComp=NetWork.ComputerName;     // Имя текущего компьютера

///var NameComp="ИМЯ";              // Имя произвольного компьютера

var WshShell=WScript.CreateObject("WScript.Shell"),
    ComputerObj=GetObject("WinNT://"+NameComp),       //Экземпляр объекта Computer
    Mess="";                                           //Текст сообщения

// Делаю группы

Make_Group("Rukovodstvo","Руководители");

WScript.Echo(Mess);

// Делаю юзеров
Make_User("Rukovodstvo","Логин_1_рук","Фам Имя Отч ","Должность","пароль");
Make_User("Rukovodstvo","Логин_2_рук","Фам Имя Отч ","Должность","пароль");
Make_User("Rukovodstvo","Логин_3_рук","Фам Имя Отч ","Должность","пароль");


/*************  Конец *********************************************/
// Функции

// Создаю группу с именем ng, описанием dg
function Make_Group(ng,dg)
{
  var i_err=true;
  var GroupObj=ComputerObj.Create("group",ng);  //Создаем объект класса Group
  GroupObj.Description=dg;                      //Меняем описание
  try {GroupObj.SetInfo()};                     //Сохраняем информацию на компьютере
  catch (e)
   {
     i_err=false;
     Mess+="\n Группа "+ng+" "+e.description;
   }
  if (i_err)
   {
     Mess+="\n Группа "+ng+" создана";
   }
}

// Создаю пользователя в группе ng 
//               с именем входа nu
//                   полное имя fu
//                     описание du
//             начальный пароль pu
//
function Make_User(ng,nu,fu,du,pu)
{
  var i_err=true;
  var Mess;
  var UserObj=ComputerObj.Create("user",nu);       //Экземпляр объекта User

  UserObj.FullName=fu;                             //Добавляем полное имя
  UserObj.Description=du;                          //Добавляем описание созданного пользователя
  UserObj.SetPassword(pu);                         //Добавляем пароль

  try {UserObj.SetInfo()};                         //Сохраняем информацию на компьютере
  catch (e)
   {
     i_err=false;
     Mess="\n Безуспешно пользователь "+nu+" "+e.description;
   }
  if (i_err)
   {
     Mess="\n Пользователь "+nu+" создан";
   }

   i_err=YesNever(nu);

  
   if (ng != "")  {UserInGroup(NameComp,ng,nu)};

   WshShell.Popup(Mess,1,"Создаем пользователей",64);

}

// В компьютере nc в группу ng помещаю пользователя nu
function UserInGroup(nc,ng,nu)
{
var GroupObj= GetObject("WinNT://"+nc+"/"+ng),     //Связываемся с компьютером
    UserObj,                                       //Экземпляр объекта User
    Mess;

  try {GroupObj.Add("WinNT://"+nc+"/"+nu)};       //Сохраняем информацию на компьютере
  catch (e)
   {
      Mess="\n Безуспешно в группу "+nu+" "+e.description;
      WshShell.Popup(Mess,1,"Ошибка при группировке",64);
   }
}

//// ставим юзеру птичку пароль никогда не меняется
function YesNever(NUser)
{
  var OUser,ltry=true;
  try     // Пытаемся найти имя в текущем компьютере
  {
    OUser=GetObject("WinNT://"+NameComp+"/"+NUser+",user");
  }

  catch (e)
  {
    ltry=e==0;
  }

  if (ltry)
  {
    var Never=OUser.Get("UserFlags");
    OUser.Put("UserFlags",0x10000);
    OUser.SetInfo();
  }
  return true;
}