» Автоматизация администрирования. Часть 2

нужен скрипт для изменения владельца папки.
наверняка тут должен быть, но поиском не могу найти.

klimusu
xcacls.vbs
http://support.microsoft.com/kb/825751

ребята, выручайте .
надо делать так, чтоб после перезагрузки сервера (w2k3) через минуту запустился файл, который находится в: C:\Users\123.exe
время имеет значение. надо чтоб он запустится после полного загрузки сервера, чтоб инициализировал сетевую подключение. Пробовал ввести в авторан, но не помог, т.к. прога запускается раньше времени.

contrafack
Что-то в этом роде?
Это vbs, который пихаем в авторзагрузку.


Код: Set WshShell = CreateObject("WScript.Shell")

WScript.Sleep(60000) ' Время сна в милисекундах
WshShell.Run "C:\Users\123.exe" ' Путь к исполняемому файлу

AXVill

а это точно то, что мне надо? че то логику не понимаю.. а где функция отслежки перезагрузки? или я че-то не понимаю?

contrafack

Цитата:

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

Вот именно эту проблему и решает скрипт. Т.е. Скрипт запускается "раньше времени" и будет спать столько, сколько мы захотим, а потом подгрузит наш 123.exe.
Это какбэ самый простой способ.


Цитата:

функция отслежки перезагрузки

Это ты как себе представляешь?
Но идея мне понравилась

AXVill


Цитата:

Т.е. Скрипт запускается "раньше времени" и будет спать столько, сколько мы захотим, а потом подгрузит наш 123.exe.

а, ну вот это точно. просто я не понял синтаксис )))


Цитата:

Это ты как себе представляешь?
Но идея мне понравилась

да ХЗ писал да, а вдруг есть такая фонкция )))))))))
P.S. кстати, спасибо большое. работает )

contrafack

Цитата:

а где функция отслежки перезагрузки?

в шедуллер скрипт засунь и будет тебе счастье. там есть то, что тебе надо.

Пытаюсь удаленно запустить интерактивно скрипт через планировщик задач с помощью VBS методом objScheduledJob.Create. Задание создается, но создается только от имени SYSTEM. А в скрипте использутся сетевые пути, которые для SYSTEM недоступны.
Как можно зашедулить задание от имени определенного пользователя (у которого есть права на доступ к сетевым папкам)?

Собственно сам планировщик не нужен, просто нашел этот метод как возможность запуска программы интерактивно.

Ну или каким образом еще можно запустить скрипт/программу удаленно из под определенного пользователя и главное интерактивно?

disaboard
Единственный способ интерактивного удалённого запуска который я знаю - это использование планировщика. Минус - запуск от SYSTEM.

Попробуй psexec: -accepteula -i -u DOMAIN\Admin -p my_pass \\remotecomp ... Но у меня не получилось запускать интерактивно с помощью этой утилиты.

P.S. Если узнаешь как это делать напиши, пожалуйста

Цитата:

ребята, выручайте .
надо делать так, чтоб после перезагрузки сервера (w2k3) через минуту запустился файл, который находится в: C:\Users\123.exe
время имеет значение. надо чтоб он запустится после полного загрузки сервера, чтоб инициализировал сетевую подключение. Пробовал ввести в авторан, но не помог, т.к. прога запускается раньше времени.

ну так засунь запуск в батник с задержкой, время для задержки определи методом "научного тыка"

В начале скрипта
Option Explicit
dim , , , ,
SLEP-(твое время)

Цитата:

надо делать так, чтоб после перезагрузки сервера (w2k3) через минуту запустился файл, который находится в: C:\Users\123.exe

Option Explicit
dim , , , ,
Sleep(<твое время>) засеки сколько надо и в автозагрузку
потом его тело

вот сборник есть, может кому пригодиться

В первом архиве находится учебник Программирование для администраторов сетей и администраторов баз данных, лабораторные задания и ответы к ним

Во втором архиве диск к курсу по Административным скриптам в Windows

Содержание диска:
Дистрибутив PowerShell for XP
Дистрибутивы Microsoft Script Debugger
Дистрибутивы PrimalScript
Дистрибутивы Windows Script Host
Документация по WMI
Дополнительные утилиты - управление настройками:
AutoIt
ntfilmon
ntregmon
PowerToy
reg3
RegObj
REGSNAP
STRASTY
Книги по скриптам:
Microsoft Windows Script Host 2.0 Developers Guide
Vbscript in a Nutshell A Desktop Quick Reference-1565927206
Microsoft.WSH.and.VBScript.Programming.for.the.Absolute.Beginner.Second.Edition.Feb.2005-1592007317
Developing.Wmi.Solutions-0201616130
VBScript Programmers Reference Second Edition
Sams.VBScript.WMI.and.ADSI.Unleashed.May.2007
SAPIEN.Press.Microsoft.Windows.PowerShell.TFM.Jan.2007
Sams.Windows.PowerShell.Unleashed.Apr.2007
Manning.Windows.PowerShell.in.Action.Feb.2007
For.Dummies.JavaScript.for.Dummies.4Th.Edition.Nov.2004.ISBN0764576593
Wrox.Press.VBScript.Programmers.Reference.Second.Edition.ISBN0764559931
Course.Technology.Microsoft.VBScript.Professional.Projects.ISBN1592000568
McGraw.Hill.Osborne.Media.JavaScript.The.Complete.Reference.Second.Edition.Jul.2004.eBook-DDU
McGraw.Hill.Osborne.JavaScript.2.0.The.Complete.Reference.Second.Edition.eBook-LiB
OReilly - VBScript Pocket Reference
Курсы Microsoft по скриптам:
1153_Overview of MS EX Collaboration Development
1251_Programming with MS EX Collaboration Data Objects
2433_MS VB Scripting Edition and MS Windows Script Host Essentia
2439_Scripting Using MS Windows Management Instrumentation
Ответы к лабораторным работам
Примеры скриптов Microsoft - Script Centers
Справка Microsoft по VBScript
Справка Microsoft по WSH и Scripting Runtime
Утилиты Microsoft:
    ADSI Scriptomatic
    HTA Helpomatic
    LogParser
    Microsoft Script Component Wizard
    Microsoft Script Encoder
    Microsoft Windows Script Control
    Tweakomatic
    WMI Scriptomatic 1
    WMI Scriptomatic 2
Учебник и дистрибутив ADSI
Шаблоны скриптов для лабораторных работ

Скачать Первый архив 362.75 KB

Ссылка на архив №1 letitbit.net
Ссылка на архив №1 hotfile.com


Скачать Второй архив 137.55 MB

Ссылка на архив №2 letitbit.net
Ссылка на архив №2 hotfile.com

Помогите написать скрипт (PowerShell), выполняющий следующее:

Disable NetBIOS over TCPIP на сервере с w2k8 для всех установленных сетевых интерфейсов

HKLM\SYSTEM\CCS\Services\Netbt\Parameters\interface\TCPIP_GUID -

NetbiosOptions - REG_DWORD
Set Value according to requirement
1 - enable NetBIOS over TCPIP
2 - disable NetBIOS over TCPIP

и

Disable File and Print Sharing for Microsoft Networks
Disable Client for Microsoft Networks
(эти 2 опции надо только для интерфейса и именем SLAN.... только как идентифицировать ведь в регистри будет только ключ? )

Заранее спасибо

Подскажите как на удаленной машине запустить процесс с известным мне именем, который я кстати сам и создал. Psexec приветствуется.

FoxStalker
Переложи на рапиду или ифолдер

YURETS777
Скачать Первый архив 362.75 KB
Ссылка на архив №1 rapidshare.com

Скачать Второй архив 137.55 MB
Ссылка на архив №2 rapidshare.com

добрый день не подскажите можно ли переразбить диск из сети (например на с перекинуть 5Гб)

Есть задача:
-около 150 пк с разной виндой (2000, 2003, ХР), в сети без домена
-надо на эти компы:
1 залить програмку (около 400кб)
2 поменять логин пас встроеного админа
3 изменить реестр
4 выполнить программу из п1
5 сформировать отчет где выполнено, а где ошибка (например "ип компа:1111" - все выполнено, "ип компа:0000" -ничего не выполнено "ип компа:0101" -выполнен 2 и 4 п.

подскажите, как это можно автоматизировать?

Alexandrnew
Могу посоветовать утилиту PsExec из комплекта PsTools от Марка Руссиновича, PsTools можно взять здесь

И еще посмотри Обмен и публикация скриптов для администрирования в WIndows здесь

Alexandrnew

Цитата:

в сети без домена

тогда нужно использовать psexec, вместо групповых политик.

Цитата:

1 залить програмку (около 400кб)

Что здесь означает залить? Скопировать или установить? Если установить, то автоматизация ентого дела зависит от инсталлятора. Нужно знать какие использовать ключи для тихой установки без вопросов. Пример: "psexec @list.txt -s -с "\\server\deploy$\proga\install.exe /S"". Где list.txt - список компьютеров. Если скопировать, то используем xcopy. Пример: "xcopy /d /e /h /i /r /y "\\server\deploy$\proga" "%ProgramFiles%\proga"".

Цитата:

2 поменять логин пас встроеного админа

а). Создаём файл changePass.vbs:

Код: strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Администратор, user")

objUser.SetPassword "new_password"
objUser.SetInfo

Цитата:

Учебный курс "Программирование для администраторов " [CHM] - всем начинающим рекомендуется

http://wsh.net.ru/files/progr_admin.zip
Ссылка мёртвая.... перезалейте???

Автосбор драйверов со всех компов и положить на сервер в катлоги с названием компов - как?

Доброго дня.
можно ли с помощью команд DSxxxx вывести список всех пользователей, у который почтовые ящики в определённом домене?
Спасибо.

Есть простейший макрос который состав-т список из пользователей OU с соо-м Display Name и мылом:

Код: Sub test1()

Cells.Select
Range("A1").Activate
Selection.ClearContents

On Error Resume Next
Set objou = GetObject("LDAP://ou=God,dc=domain,dc=spb,dc=ru")

objou.Filter = Array("user")

Row = 1

For Each objUser In objou
Cells(Row, 1).Value = objUser.Get("displayName")
Cells(Row, 2).Value = objUser.Get("mail")
Row = Row + 1
Next

End Sub

greenfox

Код: Set objNetwork = CreateObject("WScript.Network")
wmiQuery = "Select * From Win32_UserAccount Where Domain='" & objNetwork.UserDomain & _
"' And Name='" & objNetwork.UserName & "'"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery(wmiQuery)
For Each objItem in colItems
WScript.Echo "Ваш sid: " & objItem.SID
Next

niichavo
не понял несколько что мне с ним делать? надо что-то вписать ещё?
хотелось бы в вышеописаный скрипт (исходный) добавить ещё 3-ю колонку в виде:
Cells(Row, 3).Value = "сюда sid впихнуть"

greenfox

Цитата:

не понял несколько что мне с ним делать?

Из кусочков собрать целое . Например, так:

Код:

'получаем sid
'--------------

Function myGetSid(UzverName, DomainName)

Dim strSid
Set objNetwork = CreateObject("WScript.Network")
wmiQuery = "Select * From Win32_UserAccount Where Domain='" & DomainName & _
"' And Name='" & UzverName & "'"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery(wmiQuery)
For Each objItem in colItems
strSid = objItem.SID
Next

myGetSid = strSid

End Function

'--------------

Sub test1()

strDomain = "YOURDOMAIN"

Cells.Select
Range("A1").Activate
Selection.ClearContents

On Error Resume Next
Set objou = GetObject("LDAP://ou=God,dc=domain,dc=spb,dc=ru")

objou.Filter = Array("user")

Row = 1

For Each objUser In objou
Cells(Row, 1).Value = objUser.Get("displayName")
Cells(Row, 2).Value = objUser.Get("mail")
Cells(Row, 3).Value = myGetSid(objUser.Get("sAMAccountName") , strDomain)
Row = Row + 1
Next

End Sub

Направьте на путь истинный...
Есть парк серверов, на каждом из них стоит несколько NIC адаптеров.

Необходимо автоматом убирать галочки с
Client for Microsoft Networks и File and Printer Sharing for Microsoft Networks только для сетевой с именем SLAN

долго билась над решением... не получается... help...

Имеем:
1) MS Windows 2003 Standart.

2) ~1TB данных, ~1 миллион файлов.

3) Куча длинных и "кривоватых" имён папок\файлов.

4) Небольшая кучка папок\файлов которые не хотят копироваться из за длинных имён\кривых названий.

Нужно:
1) Софт\скрипт\совет для резервного копирования данного хлама.

2) Корректный, без запросов пропуск - занятых, кривых, нечитаемых файлов

3) Копирование "из папки в папку" - чтобы юзеры в случае "убийства" основных данных - могли САМИ вручную выдернуть резервную инфу из расшаренной папки с бэкапами на файл-сервере.

4) Если будет лог копирования с пропущенными файлами и общей информацией - буду очень рад.