Показано с 1 по 6 из 6

Тема: Security

  1. #1
    КилоВаттник Аватар для Самогон
    Регистрация
    24.12.2008
    Сообщений
    14,901
    Записей в дневнике
    12
    Вес репутации
    334

    По умолчанию Security

    После не помню какого патча W2K3R2SP2 ломает настройки security manager и закрывает уделенный доступ к Remote Management
    Лечится вот так:
    Set SCM remote access rights
    Код:
    sc sdset scmanager D:(A;;CCLCRPRC;;;AU)(A;;CCLCRPWPRC;;;SY)(A;;KA;;;BA)S:(AU;FA;KA;;;WD)(AU;OIIOFA;GA;;;WD)
    Часто разлив по сто семьдесят граммов на брата, даже не знаешь, куда на ночлег попадешь.
    Запомни сам, скажи другому, что честный труд - дорога к дому!
    Путин - Бог свидомых.

  2. #2
    Общевойсковой командир-практик Аватар для Божья Искра
    Регистрация
    25.12.2008
    Сообщений
    4,483
    Записей в дневнике
    1
    Вес репутации
    320

    По умолчанию

    А как пропатчить KDE под FreeBSD????

    Президент Украины дал однозначный ответ: «Шановні друзі, пропатчити можуть допомогти програмісти Секретаріату Президента у різних операційних системах. Другий варіант — радив би користуватися новим программним забезпеченням і не морочити собі голову».
    Последний раз редактировалось Божья Искра; 24.11.2011 в 18:42.

  3. #3
    Знайка Аватар для танкист
    Регистрация
    26.12.2008
    Адрес
    Новосибирск, РФ
    Сообщений
    10,716
    Вес репутации
    220

    По умолчанию

    Ну не серьёзно, ...
    темы-то полезные, я так! думаю.
    Господи, дай мне душевный покой, чтобы принять то, что я не могу изменить, мужество, чтобы изменить то, что могу, и мудрость - чтобы всегда отличать одно от другого.
    (Краткая интерпретация молитвы Оптинских Старцев)


  4. #4
    Желчь на разлив, тара своя.
    Регистрация
    23.02.2015
    Сообщений
    15,304
    Вес репутации
    46

    По умолчанию

    Цитата Сообщение от Божья Искра Посмотреть сообщение
    А как пропатчить KDE под FreeBSD????
    Код:
    cd /usr/ports && make index; pkgdb -F
    cd /usr/ports/x11/xorg && make all install && make clean
    cd /usr/ports/x11/kde3/
    make && make install && make clean;
    portsnap fetch
    portsnap extract
    portsnap fetch update
    xorgcfg
    cp ~/xorg.conf.new /usr/X11R6/etc/X11/xorg.conf
    touch ~/.xinitrc && echo -ne “exec startkde” > ~/.xinitrc
    reboot
    startx
    (С)

  5. #5
    КилоВаттник Аватар для Самогон
    Регистрация
    24.12.2008
    Сообщений
    14,901
    Записей в дневнике
    12
    Вес репутации
    334

    По умолчанию

    Вот так для всех портов установленных
    Код:
    # portsnap fetch update
    # pkg_version -l '<'
    # portmaster -Da
    Часто разлив по сто семьдесят граммов на брата, даже не знаешь, куда на ночлег попадешь.
    Запомни сам, скажи другому, что честный труд - дорога к дому!
    Путин - Бог свидомых.

  6. #6
    КилоВаттник Аватар для Самогон
    Регистрация
    24.12.2008
    Сообщений
    14,901
    Записей в дневнике
    12
    Вес репутации
    334

    По умолчанию Добавить доменную группу в LocalAdministrators группу.

    Задача: добавить доменную группу в LocalAdministrators группу на каждом сервере из списка в файле servers.txt (один сервер на строку)
    Запускать лучше с помощью cscript что бы не щелкать ОК на каждое сообшение.

    Вот слепил из того что было
    Код:
    'Add2LocalAdmin.vbs
    Dim objFSO, strTextFile, strData, strLine, arrLines, Domain, GroupName, ComputerName
    CONST ForReading = 1
    Domain = "Pre2000domainname" 
    GroupName = "GROUP-YOU-NEED-TO-ADD" 
    'name of the text file with list of servers
    strTextFile = "servers.txt"
    
    'Create a File System Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    'Open the text file - strData now contains the whole file
    strData = objFSO.OpenTextFile(strTextFile,ForReading).ReadAll
    
    'Split the text file into lines
    arrLines = Split(strData,vbCrLf)
    
    'Step through the lines
    For Each strLine in arrLines
    'wscript.echo strLine
    ComputerName = strLine
    'aAdd the group to the local administrators group 
      Wscript.echo vbCrLf & "Adding " & Domain & "\" & GroupName & _ 
        " to the local administrators group on " & ComputerName 
      Select Case AddGroupToLocalAdmins(ComputerName,Domain,GroupName) 
        Case 0 
          wscript.echo "  Succes" 
        Case 1 
          wscript.echo "  Failed - unable to add the account to the local administrators group" 
        Case 2 
          wscript.echo "  Already a member" 
        Case 3 
          wscript.echo "  Failed - Unable to connect to the computer" 
      End Select 
           
    Next       
    'Cleanup
    Set objFSO = Nothing
    
    
     
    '############################# 
    'Function AddGroupToLocalAdmins 
     
    'Variables 
      'ComputerName 
      'Domain of Group being added 
      'GroupName (User account can be used as well) 
       
    'Returns 
      '0 if Group is added successfully to the local Admin group 
      '1 if function was unable to add the Group to the local Admin group 
      '2 if Group is already a member of the local Admin group 
      '3 if the function was unable to connect to the specified Computer 
     
      Function AddGroupToLocalAdmins(ComputerName,Domain,GroupName) 
     
        On Error Resume Next 
     
    'Create an group object referencing the local Administrators group on the 
    'Computer 
        Set objLocalGroup = GetObject("WinNT://" & ComputerName & "/Administrators, group") 
        If Err.Number = 0 Then 
     
    'Check to see if the Group already exists in the local Admin group 
          For each Group in objLocalGroup.Members  
            If Instr(ucase(Group.ADSPath),ucase(Domain & "/" & GroupName)) <> 0 Then 
              AlreadyExists = True 
            End If 
          Next 
     
    'Add the specified group to the local Administrators group if it doesn't already 
    'exist 
          If AlreadyExists = False Then 
            objLocalGroup.Add("WinNT://" & Domain & "/" & GroupName) 
     
            If Err.Number = 0 Then 
              AddGroupToLocalAdmins = 0 
            Else 
              AddGroupToLocalAdmins = 1 
              Err.Clear 
            End If 
     
          Else 
            AddGroupToLocalAdmins = 2 
          End If 
     
        Else 
          AddGroupToLocalAdmins =3 
          Err.Clear 
        End If 
      
      End Function 
           
    '#############################
    Часто разлив по сто семьдесят граммов на брата, даже не знаешь, куда на ночлег попадешь.
    Запомни сам, скажи другому, что честный труд - дорога к дому!
    Путин - Бог свидомых.

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •