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

dedaFlint

Всем прив!
предлагаю в этой ветке размещать скрипты которые облегчают админам жизнь.
Вопросы програмирования здесь лучше не обсуждать
На 98% процентов ваших вопрсов уже кто-то когда-то отвечал.
Для начала несколько ссылок
http://www.microsoft.com/technet/scriptcenter/resources/qanda/nov04/hey1104.mspx
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx

Код:

Вы можете неограниченно пользоваться этими скриптам и распространять их.
Скрипты предоставляются "как есть",
ПРИ ЭТОМ НЕ ПРЕДУСМАТРИВАЕТСЯ НИКАКИХ ГАРАНТИЙ, ЯВНЫХ ИЛИ ПОДРАЗУМЕВАЕМЫХ. ВЫ ИСПОЛЬЗУЕТЕ СКРИПТЫ НА СВОЙ СОБСТВЕННЫЙ РИСК. АВТОРЫ, НЕ НЕСУТ ОТВЕТСТВЕННОСТИ ЗА ПОТЕРИ ДАННЫХ, ПОВРЕЖДЕНИЯ, ПОТЕРИ ПРИБЫЛИ ИЛИ ЛЮБЫЕ ДРУГИЕ ВИДЫ ПОТЕРЬ, СВЯЗАННЫЕ С ИСПОЛЬЗОВАНИЕМ (ПРАВИЛЬНЫМ ИЛИ НЕПРАВИЛЬНЫМ) ЭТИХ СКРИПТОВ.

Если вы не согласны с приведенными условиями, вы не используете эти скрипты

Вы всё ещё не используете WMI? /Часть II /Константин Леонтьев/
http://www.samag.ru/art/02.2006/02.2006_02.html

Узнай секреты WMI: события и провайдеры /Часть I /Константин Леонтьев/

Узнай секреты WMI: события и провайдеры /Часть 2 /Константин Леонтьев/

По просьбам трудящихся.
ссылка на краткое содержание ветки (тов Max999 под забросил вести каталог, значит придется мне (время от времени буду править)

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

Краткое содержание special t.x. тов Max999
Сделал обзор темы в формате описание скрипта - автор, язык.

(ИМХО проще политиками)

buratino32@pisem.net

(ИМХО проще политиками)

(ИМХО изврат итересен, практическая ценность не понятна)

(ИМХО полезен, надо знать за что сидеть придется :-) .)

(ИМХО в 2003 домене есть это функционал по умолчанию, полезен для 2000 доменов.)

(ИМХО полезен, надо знать за что сидеть придется :-) .)

стр 15

стр 16

стр 17

стр 18

стр 19

стр 20

стр 21

стр 22

стр 23

dedaFlint

Итак на затравку Smile

Код:

' Где файлы килять будем?
path = "D:\Back-Up"
' Когда было последняя модификация файла?
killdate = date() - 7

arFiles = Array()
set fso = createobject("scripting.filesystemobject")

SelectFiles path, killdate, arFiles, true

nDeleted = 0
for n = 0 to ubound(arFiles)
on error resume next
arFiles(n).delete true
if err.number <> 0 then
wscript.echo "Unable to delete: " & arFiles(n).path
else
nDeleted = nDeleted + 1
end if
on error goto 0
next

msgbox nDeleted & " of " & ubound(arFiles)+1 _
& " eligible files were deleted"

sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders)
on error resume next
set folder = fso.getfolder(sPath)
set files = folder.files

for each file in files
dtlastmodified = null
on error resume Next
dtlastmodified = file.datelastmodified
on error goto 0
if not isnull(dtlastmodified) Then
if dtlastmodified < vKillDate then
count = ubound(arFilesToKill) + 1
redim preserve arFilesToKill(count)
set arFilesToKill(count) = file
end if
end if
next

if bIncludeSubFolders then
for each fldr in folder.subfolders
SelectFiles fldr.path,vKillDate,arFilesToKill,true
next
end if
end sub

dedaFlint

Продолжение
Это скрипт делает бык-уп системы и заливает его на фтп

Код:

strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell")
strCommand = "C:\WINDOWS\system32\ntbackup.exe backup @C:\cmd\Back-UP-Drive-C.bks /a /v:no /r:no /rs:no /hc:off /m normal /j Back-UP-Drive-C /l:s /f D:\Back-Up\Backup-drive-c.bkf"
WshShell.Run strcommand, 1, true

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime")

For Each objItem in colItems
strCommand = "C:\Arch\7z.exe a D:\Back-Up\Backup-dc-srv-01-DayOf-Week-"&objItem.DayOfWeek&".7z D:\Back-Up\*.bkf -t7z -m0=BCJ2 -m1=LZMA:d23 -m2=LZMA:d19 -m3=LZMA:d10M -mb0:1 -mb0s1:2 -mb0s2:3"
Next
WshShell.Run strcommand, 1, true
strCommand = "ftp -s:C:\CMD\ctp-command.txt"
WshShell.Run strcommand, 1, true

----------------------
зы. модеры если прилепите на верх то это будет гуд

Andy_user

Получаем информацию об учетных записях пользователей на удаленном компе.

Код:

On error Resume Next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
'******************************************
strComputer = "193.125.10.5"
strUser = "Andy_user"
strPassword = "PASSWORD"
strDomain = ""
'******************************************
Err.Clear
'--- Подключаемся ---
Set objSWbemLocator = CreateObject ("WbemScripting.SWbemLocator")
If (Err.Number <> 0) Then
WScript.Echo "Error (objSWbemLocator) : " & Err.Number & " " & Err.Description
WScript.Quit
End If
Err.Clear
Set objSWbemServices = objSWbemLocator.ConnectServer ( _
strComputer, _
"root\cimv2", _
strUser, _
strPassword, _
"MS_409", _
"ntlmdomain:" & strDomain)
If (Err.Number <> 0) Then
WScript.Echo "Error (objSWbemServices) : " & Err.Number & " " & Err.Description
WScript.Quit
End If
Err.Clear
Set file_object = CreateObject("Scripting.FileSystemObject")
Set list = file_object.OpenTextFile("./Rezult.log",ForWriting,True)
Set colAcc = objSWbemServices.ExecQuery ("Select * from Win32_UserAccount")
WScript.Echo "Обнаружено " & colAcc.Count & " учетных записей."
For Each ttt in colAcc
list.Write ttt.Caption & " " & vbCrLf
list.Write " " & "Caption : " & ttt.Caption & vbCrLf
list.Write " " & "Name : " & ttt.Name & vbCrLf
list.Write " " & "Description : " & ttt.Description & vbCrLf
list.Write " " & "Domain : " & ttt.Domain & vbCrLf
list.Write " " & "SID : " & ttt.SID & vbCrLf
list.Write " " & "SIDType : " & ttt.SIDType & vbCrLf
list.Write " " & "Disabled : " & ttt.Disabled & vbCrLf
list.Write " " & "Lockout : " & ttt.Lockout & vbCrLf
list.Write " " & "PasswordChangeable : " & ttt.PasswordChangeable & vbCrLf
list.Write " " & "PasswordExpires : " & ttt.PasswordExpires & vbCrLf
list.Write " " & "PasswordRequired : " & ttt.PasswordRequired & vbCrLf
list.Write " ------------------------------- " & vbCrLf
Next
list.Close

shs

Код:

///////////////////////////////////////////////////////////////////////////////
////// Скрипт предназначен для "оптового" изменения ярлыков,
////// которые находятся в одной папке
////// (В свойствах ярлыка, содержащих ссылку на запускаемый объект,
////// меняем старое имя исполняемого файла на новое)
////// 05/10/2005 ShS
///////////////////////////////////////////////////////////////////////////////
//Папка, в которой должны лежать интересующие нас ярлыки
var strFldrName="\\\\DC\\NETLOGON\\!\\Test Gepard"
//Подстрока, которую надо заменить
var strOld="Gepard.bat";
//Подстрока, на которую надо заменить
var strNew="GepardTest.bat";
////////////////////////////////////////////////////////////////////////////////
//Объект для доступа к свойствам ярлыка
var oShellLink;
var iStartOfFileName;
var strPath;
//создаем объект FSO для доступа к папкам и файлам
var FSO=WScript.CreateObject("Scripting.FileSystemObject");
//Создаем объект Folder для strFldrName
var fsoFldr=FSO.GetFolder(strFldrName);
//Получим колекцию файлов в папке strFldrName
var colFiles= new Enumerator (fsoFldr.Files);
//
var WshShell = WScript.CreateObject("WScript.Shell");
//Цикл по всем файлам в папке
for (;!colFiles.atEnd();colFiles.moveNext())
{
   //Есть ли у файла расширение "lnk"? (Т.е. ярлык ли это?)
   if (colFiles.item().Name.length-colFiles.item().Name.lastIndexOf(".lnk")-4==0)
   {
      oShellLink = WshShell.CreateShortcut(strFldrName + "\\"+colFiles.item().Name);
      //Проверяем, что текущий ярлык содержит в пути запуска искомое имя файла strOld
      if (oShellLink.TargetPath.lastIndexOf(strOld)!=-1)
      {
         //вычисляем позицию, с которой начинается интересуемое нас имя файла
         iStartOfFileName=oShellLink.TargetPath.length - strOld.length;
         strPath= oShellLink.TargetPath.substr(0,iStartOfFileName-1);
         //заменяем старое имя файла на новое
         oShellLink.TargetPath = strPath+"\\"+strNew;
         oShellLink.Save();
      }
   }
}

shs

Код:

/** 2004 ShS
* Script: violater.js
* Purpose: Выдает имя текущего пользователя и название группы ("Опытные пользователи" или "Администраторы")
*          при условии, что текущей пользователь является членом этой группы.
*          Если назначить этот скрипт на вход/выход пользователя из системы, то получим перечень компьютеров и
*          пользователей, на которых эти пользователи обладают повышеными правами (т.е. являются членами
*          вышеназванных групп)
**/

// define constants
// Note: if a file exists, using forWriting will set
// the contents of the file to zero before writing to
// it.
var forReading = 1, forWriting = 2, forAppending = 8,
objDate, Today, strDate, strMonth, LogFileName;

objDate = new Date ();
Today = "_" + objDate.getYear();
strMonth = "" + (objDate.getMonth()+1);
strDate = "" + objDate.getDate();
Today += (strMonth.length<2) ? "0" + strMonth : strMonth;
Today += (strDate.length<2) ? "0" + strDate : strDate;

// Create FileSystemObject
fs = new ActiveXObject( "Scripting.FileSystemObject" );
//[b]Лог-файл, куда скрипт будет записывать результаты[/b]
var LogFileName = "\\\\admiral\\WhoIsViolater$\\" + "Violaters"+ Today + ".txt";

//city0 - имя домена WinNT

showusers( "city0/." );

/**
*
* example - showusers( "DOMAINNAME" );
* - showusers( "DOMAINNAME/Computer" );
**/

function showusers( domain )
{
var WshNet,UserName;
WshNet=WScript.CreateObject("WScript.Network");
UserName=WshNet.UserName;
try
{
var DomainMembers = GetObject( "WinNT://" + domain );
var e = new Enumerator( DomainMembers );
for( ; !e.atEnd(); e.moveNext() )
{
var Group = e.item();
if( Group.Class == "Group" )
{
if (Group.Name=="Administrators" ||
Group.Name=="Администраторы" ||
Group.Name=="Power Users" ||
Group.Name=="Опытные пользователи")
{
   var ee= new Enumerator(Group.Members());
   for( ; !ee.atEnd(); ee.moveNext() )
   {
      var Member = ee.item();
      if ((Member.Class=="User") && (Member.Name==UserName))
         {
         print( "Computer : " + WshNet.ComputerName);
         print( "Group : " + Group.Name );
         print( "Member : " + Member.Name );
         print( "============================" );
      }
   }
}
}
}
}
catch( e )
{
print( "Error: " + e.description );
}
}

function print( msg )
{

try
   {
      os = fs.GetFile( LogFileName );
   }
catch (e)
   {
      if (e!=0)
         {
            fs.CreateTextFile( LogFileName ); // Create the text file
            os = fs.GetFile( LogFileName );
         }

   }
os = os.OpenAsTextStream( forAppending, 0 ); // Open the file for appending
// Write two lines of text to the file
os.write( msg+"\r\n" );

// Close the file
os.Close();

//WScript.Echo( msg );
}

city0 - имя домена

shs

Код:

//*****************************************************************************
// JScript 2004 Shs
//Этот скрипт предназначен для копирования файла в пользовательские перемещаемые профили
//(Добавляем ярлычок в меню пользователя)
//******************************************************************************
//
//
//*****************************************************************************
// Рекурсивная функция перехода по всем подкаталогам, начиная с заданого (PolFldr)
// и копирования заданного файла (ScriptName) по заданым папкам (FldrName)
//******************************************************************************
function LoopSubFolders (PolFldr, DeepCount)
{
var SubFolders, // Коллекция подкатологов системных политик
fsoPolFldr, //объект для доступа к папке
CurFldr; //текущая папка

DeepCount++;
//WScript.Echo(DeepCount);
if (DeepCount<DeepLimit)
{
fsoPolFldr = FSO.GetFolder(PolFldr);
//Получаем коллекцию подкаталогов каталога системных политик
SubFolders = new Enumerator (fsoPolFldr.SubFolders);
//
for (;!SubFolders.atEnd();SubFolders.moveNext())
   {
CurFldr = SubFolders.item();
if (CurFldr.Name == FldrName)
         {
            try {
                  WScript.Echo(CurFldr.Path+"\\"+ScriptName);
                  //WScript.Echo(Path2Scripts + "\\"+ ScriptName);
               FSO.CopyFile(Path2Scripts + "\\"+ ScriptName,CurFldr.Path+"\\"+ScriptName,true)
               }
            catch (e)
               {//обрабатываем возможные ошибки
                  var Msg;
                  if (e !=0) Msg="Error - "+e.description
                  else Msg="Ok";
                  WScript.Echo(Msg);
               }
         }
//рекурсивный вызов
LoopSubFolders (CurFldr,DeepCount);
   }//end for
}//end if
}
//********************************************************************************
//
//

//********************************************************************************
//Заглушка
//********************************************************************************
//здесь будет код, получения из параметров командной строки
// 1)наименования расспространяемого файла
// 2)наименования каталога в каждом профиле, в который будет копироваться распространяемый файл
//********************************************************************************
var ScriptName = "Обновление рабочего меню.lnk",
FldrName = "Главное меню"; // Имя искомой подпапки в профиле (в нее будем копировать файл-ярлык)
//**********************************************************************************

//*********************************************************************************
//Объявляем глобальные переменные
//*********************************************************************************
var FSO,       // объект FileSystemObject
Path2Scripts,       // Путь к распростроняемому файлу (предполагается, что файлы лежат в той же папке, что и этот файл)
DeepCount,          //Счетчик глубины рекурсии
DeepLimit,          //Ограничение глубины рекурсии
PolF;          // Корень, с которого начинается поиск и распространение файлов по низлежащим папкам
//*********************************************************************************
PolF = "\\\\DC\\UserFolders\\OZI"; ////
// Создаем объект FileSystemObject;
FSO = WScript.CreateObject("Scripting.FileSystemObject");
DeepCount=0;
Path2Scripts = FSO.GetParentFolderName(FSO.GetFile(WScript.ScriptFullName));
// Ограничение глубины рекурсивных вызовов
DeepLimit=4;
LoopSubFolders(PolF,DeepCount);

shs

Код:

//*****************************************************
//JScript 2005 ShS addPrn.js
//Подключение сетевого принтера и установка его принтером по умолчанию
//Пример запуска: %LOGONSERVER%\NETLOGON\addPrn.js \\PrintServer\HPLJ2200DN(23)
//*****************************************************
var WshNetwork,
objArgs,
strErrMsg,
strPrinterPath;
//Путь к подключаемому принтеру берем из параметров запуска
objArgs=WScript.Arguments.Unnamed;
strPrinterPath=objArgs.Item(0);
//
WshNetwork=WScript.CreateObject("Wscript.Network");
try
{
WshNetwork.AddWindowsPrinterConnection(strPrinterPath);
WshNetwork.SetDefaultPrinter(strPrinterPath);
}
catch (objError)
{
if (objError !=0)
   {
   strErrMsg = "Произошла ошибка при пордключении сетевого принтера - "+strPrinterPath+"\n"+
            "Скорее всего узанный сетевой путь не существует"+"\n\n"+
            "Обратитесь к системному администратору по тел. 1333"
            //"Код ошибки: "+ objError.number;
   WScript.Echo(strErrMsg);
   }
}

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

dedaFlint

Выключение удаленной машины (по сети) от доменного администратора

Код:

Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//FNQ-имя-серверера-для-убийства").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.Shutdown()
Next

shs

Цитата:

//*************************************************************************
// JScript ShS 2004
// Этот скрипт предназначен для получения информации о пользователях домена
//
//*************************************************************************
var objConn, //объект Connection
objComm, //объект Command
objRS, //объект RecordSet
strRecord, //Результирующая строка, содержащая сведения о пользователе
arrAttribs, //Перечень атрибутов, значения которых мы будем извлекать для каждого пользователя
i, //Счетчик цикла
strDevOut, //Устройство вывода
RootDSE,
DefaultDomain, //Домен для текущего пользователя
strSpliter; //Раделитель полей для результирующей строки

var ADS_UF_ACCOUNTDISABLE=2; //"Флаг" битового атрибута userAccountControl
//
strDevOut="Display"
//
//Получим имя домена для пользователя, от имени которого запущен данный скрипт
RootDSE=GetObject("LDAP://RootDSE");
DefaultDomain=GetObject("LDAP://"+RootDSE.Get("DefaultNamingContext"));
WScript.Echo(DefaultDomain.distinguishedName);
//
strSpliter="*";
//Информацию о атрибутах можно получить здесь:
//http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ad/ad/user_object_attributes.asp
//Массив атрибутов должен содержать по крайней мере один элемент
arrAttribs = new Array ("displayName","sAMAccountName","profilePath","mail","userAccountControl","proxyAddresses");
//
//Инициализируем переменные, необходимые для работы с AD, как с БД
objConn = WScript.CreateObject("ADODB.Connection");
objComm = WScript.CreateObject("ADODB.Command");
objRS = WScript.CreateObject("ADODB.Recordset");
objConn.Provider = "ADsDSOObject";
objConn.Open("Active Directory Provider");
objComm.ActiveConnection = objConn;
//
//Формируем текст SQL-запроса к AD
objComm.CommandText = "SELECT ";
for ( i=0 ; i<arrAttribs.length-1; i++)
{
objComm.CommandText+=arrAttribs[i]+",";
}
//За последним полем в запросе не должна следовать запятая,
//поэтому добавляем имя последнего поля вне цикла
objComm.CommandText+=arrAttribs[i];
//Поиск проводим внутри OU "mg"
objComm.CommandText+= " FROM \'LDAP://ou=mg,"+DefaultDomain.distinguishedName+"\'"+
"WHERE objectClass = \'user\' and objectCategory = \'person\'";
//Фильтр для отбора тех, у кого есть внешний Email
//Заглушка
//objComm.CommandText+=" and (mail LIKE \'%mn.local\')";
//
//выполняем запрос
objRS = objComm.execute();
//Формируем строку-заголовок с названиями полей
strRecord="";
for ( i=0 ; i<arrAttribs.length; i++)
{
strRecord+=arrAttribs[i]+strSpliter;
}
//Вывод результирующей строки на устройство вывода
fnOut(strRecord,strDevOut);
//Формируем строки данных
objRS.MoveFirst();
while (!objRS.EOF)
{
strRecord="";
for ( i=0 ; i<arrAttribs.length; i++)
{
switch (arrAttribs[i])
{
case "userAccountControl":
//Выделяем бит ADS_UF_ACCOUNTDISABLE
if (objRS.Fields(arrAttribs[i]).Value&2) strRecord+="UserDisabled"+strSpliter;
else strRecord+="UserEnabled"+strSpliter;
break;
case "proxyAddresses":
vbarrEmailAddreses = objRS.Fields(arrAttribs[i]).Value;
if (vbarrEmailAddreses!=null)
{
arrEmailAddreses=vbarrEmailAddreses.toArray();
for (iEmailCounter=0;iEmailCounter<arrEmailAddreses.length-1;iEmailCounter++)
{
strRecord+=arrEmailAddreses[iEmailCounter]+"|";
}
strRecord+=arrEmailAddreses[iEmailCounter];
}
strRecord+=strSpliter;
break;
default:
strRecord+=objRS.Fields(arrAttribs[i]).Value+strSpliter;
}
}
fnOut(strRecord);
objRS.MoveNext();
}
objRS.close;
///////////////////////////////////////////////////////////////////////////////////////////
//Функция вывода результирующей строки
///////////////////////////////////////////////////////////////////////////////////////////
function fnOut(strOutRecord,strDev)
{
//Заглушка
WScript.Echo(strOutRecord);
}

/*Для справки
Константы для битового поля userAccountControl
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ad/ad/example_code_for_creating_a_user.asp

Const ADS_UF_SCRIPT = &H1
Const ADS_UF_ACCOUNTDISABLE = &H2
Const ADS_UF_HOMEDIR_REQUIRED = &H8
Const ADS_UF_LOCKOUT = &H10
Const ADS_UF_PASSWD_NOTREQD = &H20
Const ADS_UF_PASSWD_CANT_CHANGE = &H40
Const ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = &H80
Const ADS_UF_TEMP_DUPLICATE_ACCOUNT = &H100
Const ADS_UF_NORMAL_ACCOUNT = &H200
Const ADS_UF_INTERDOMAIN_TRUST_ACCOUNT = &H800
Const ADS_UF_WORKSTATION_TRUST_ACCOUNT = &H1000
Const ADS_UF_SERVER_TRUST_ACCOUNT = &H2000
Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000
Const ADS_UF_MNS_LOGON_ACCOUNT = &H20000
Const ADS_UF_SMARTCARD_REQUIRED = &H40000
Const ADS_UF_TRUSTED_FOR_DELEGATION = &H80000
Const ADS_UF_NOT_DELEGATED = &H100000
Const ADS_UF_USE_DES_KEY_ONLY = &H200000
Const ADS_UF_DONT_REQUIRE_PREAUTH = &H400000
Const ADS_UF_PASSWORD_EXPIRED = &H800000
Const ADS_UF_TRUSTED_TO_AUTHENTICATE_FOR_DELEGATION = &H1000000
*/