🗊 В практических примерах

Категория: Информатика
Нажмите для полного просмотра!
  
    В практических примерах  , слайд №1  
    В практических примерах  , слайд №2  
    В практических примерах  , слайд №3  
    В практических примерах  , слайд №4  
    В практических примерах  , слайд №5  
    В практических примерах  , слайд №6  
    В практических примерах  , слайд №7  
    В практических примерах  , слайд №8  
    В практических примерах  , слайд №9  
    В практических примерах  , слайд №10  
    В практических примерах  , слайд №11  
    В практических примерах  , слайд №12  
    В практических примерах  , слайд №13  
    В практических примерах  , слайд №14  
    В практических примерах  , слайд №15  
    В практических примерах  , слайд №16  
    В практических примерах  , слайд №17  
    В практических примерах  , слайд №18  
    В практических примерах  , слайд №19  
    В практических примерах  , слайд №20  
    В практических примерах  , слайд №21  
    В практических примерах  , слайд №22  
    В практических примерах  , слайд №23  
    В практических примерах  , слайд №24  
    В практических примерах  , слайд №25  
    В практических примерах  , слайд №26  
    В практических примерах  , слайд №27  
    В практических примерах  , слайд №28  
    В практических примерах  , слайд №29  
    В практических примерах  , слайд №30  
    В практических примерах  , слайд №31  
    В практических примерах  , слайд №32  
    В практических примерах  , слайд №33  
    В практических примерах  , слайд №34  
    В практических примерах  , слайд №35  
    В практических примерах  , слайд №36  
    В практических примерах  , слайд №37  
    В практических примерах  , слайд №38  
    В практических примерах  , слайд №39  
    В практических примерах  , слайд №40

Содержание

Вы можете ознакомиться и скачать В практических примерах . Презентация содержит 40 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации


Слайд 1






В практических примерах
Описание слайда:
В практических примерах

Слайд 2


  
    В практических примерах  , слайд №2
Описание слайда:

Слайд 3





Новый интерпретатор командной строки и системный скриптовый язык
Новый интерпретатор командной строки и системный скриптовый язык
Долгожданный полноценный «shell» с возможностями не хуже Unix аналогов
Объектно ориентирован
Работает с унаследоваными скриптами VBS, WSH и утилитами командной строки
130 командлетов в стандартной поставке
Описание слайда:
Новый интерпретатор командной строки и системный скриптовый язык Новый интерпретатор командной строки и системный скриптовый язык Долгожданный полноценный «shell» с возможностями не хуже Unix аналогов Объектно ориентирован Работает с унаследоваными скриптами VBS, WSH и утилитами командной строки 130 командлетов в стандартной поставке

Слайд 4






Windows XP
Windows Vista 
Windows Server 2003
Windows Server 2008
Описание слайда:
Windows XP Windows Vista Windows Server 2003 Windows Server 2008

Слайд 5






Входит в поставку Windows 2008 Server по умолчанию
Большинство  административных интерфейсов превратятся в обертку над Powershell
Будет встроен во все новые серверные продукты от Microsoft
Будет использоваться в проектах VMWare и Citrix
Описание слайда:
Входит в поставку Windows 2008 Server по умолчанию Большинство административных интерфейсов превратятся в обертку над Powershell Будет встроен во все новые серверные продукты от Microsoft Будет использоваться в проектах VMWare и Citrix

Слайд 6





Ускоряет  автоматизирование типичных  задач системного администратора
Ускоряет  автоматизирование типичных  задач системного администратора
Прост и интуитивно понятен
Единый интерфейс к множеству рычагов управления, позволяющий легко связывать их воедино
Привычные утилиты командной строки
WMI, ADSI, COM
Новый рычаг - .Net
И многое другое…
Описание слайда:
Ускоряет автоматизирование типичных задач системного администратора Ускоряет автоматизирование типичных задач системного администратора Прост и интуитивно понятен Единый интерфейс к множеству рычагов управления, позволяющий легко связывать их воедино Привычные утилиты командной строки WMI, ADSI, COM Новый рычаг - .Net И многое другое…

Слайд 7





Один язык для интерактивной работы, разработки скриптов и их отладки
Один язык для интерактивной работы, разработки скриптов и их отладки
Прост в изучении
Руководство пользователя и встроенная справка на русском языке
Доступно множество полезных книг
Большинство элементов языка вам уже знакомы
Новые вещи изучаются интерактивно
Знания полученные во время изучения одного компонента легко применимы к другим
Время потраченное на обучение не пропадет зря 
Создан специально для системных администраторов.
Доступно множество дополнительных компонентов от сторонних разработчиков
Описание слайда:
Один язык для интерактивной работы, разработки скриптов и их отладки Один язык для интерактивной работы, разработки скриптов и их отладки Прост в изучении Руководство пользователя и встроенная справка на русском языке Доступно множество полезных книг Большинство элементов языка вам уже знакомы Новые вещи изучаются интерактивно Знания полученные во время изучения одного компонента легко применимы к другим Время потраченное на обучение не пропадет зря Создан специально для системных администраторов. Доступно множество дополнительных компонентов от сторонних разработчиков

Слайд 8





Пока малопригоден для logon/startup скриптов
Пока малопригоден для logon/startup скриптов
Скорость выполнения не высока
Требуется инсталляция*
Не работает на Windows 2000
Пока недоступен в Windows 2008 Server Core
Описание слайда:
Пока малопригоден для logon/startup скриптов Пока малопригоден для logon/startup скриптов Скорость выполнения не высока Требуется инсталляция* Не работает на Windows 2000 Пока недоступен в Windows 2008 Server Core

Слайд 9





GUI хост для PowerShell
GUI хост для PowerShell
Позволяет работать с PowerShell не зная его
Легко расширяемый с помощью несложных скриптов
Превосходный редактор с подсветкой и автоматическим завершением кода и встроенным отладчиком
Возможность выполнить действие с помощью графического интерфейса, а затем посмотреть соответствующий код PowerShell
Доступна русификация
http://powergui.org/
Описание слайда:
GUI хост для PowerShell GUI хост для PowerShell Позволяет работать с PowerShell не зная его Легко расширяемый с помощью несложных скриптов Превосходный редактор с подсветкой и автоматическим завершением кода и встроенным отладчиком Возможность выполнить действие с помощью графического интерфейса, а затем посмотреть соответствующий код PowerShell Доступна русификация http://powergui.org/

Слайд 10


  
    В практических примерах  , слайд №10
Описание слайда:

Слайд 11


  
    В практических примерах  , слайд №11
Описание слайда:

Слайд 12





Инструменты для облегчения работы с Active Directory из командной строки.
Инструменты для облегчения работы с Active Directory из командной строки.
Бесплатен, прекрасная поддержка.
http://www.quest.com/activeroles-server/arms.aspx
Описание слайда:
Инструменты для облегчения работы с Active Directory из командной строки. Инструменты для облегчения работы с Active Directory из командной строки. Бесплатен, прекрасная поддержка. http://www.quest.com/activeroles-server/arms.aspx

Слайд 13





Дополняет:
Дополняет:
Командлеты и их параметры
Классы WMI
Классы, методы, конструкторы, перечисления .Net 
Свойства объектов
Каталоги, файлы, ключи реестра(и другие объекты текущего PSDrive)
Имена исполняемых файлов из $env:path
Имена скриптов .PS1 и их параметры
Имена компьютеров и общих папок
Преобразовывает псевдонимы в команды
Имена и параметры пользовательских функций
Имена переменных
Настраиваемые пользователем элементы
Многое другое…
Описание слайда:
Дополняет: Дополняет: Командлеты и их параметры Классы WMI Классы, методы, конструкторы, перечисления .Net Свойства объектов Каталоги, файлы, ключи реестра(и другие объекты текущего PSDrive) Имена исполняемых файлов из $env:path Имена скриптов .PS1 и их параметры Имена компьютеров и общих папок Преобразовывает псевдонимы в команды Имена и параметры пользовательских функций Имена переменных Настраиваемые пользователем элементы Многое другое…

Слайд 14





Список вариантов с помощью псевдографики: 
Список вариантов с помощью псевдографики: 
позволяет уточнять запрос после вызова меню донабирая текст вручную или курсорными клавишами.
База настроек в XML файле, для сохранения пользовательских параметров и оптимизации.
Цветовые темы
Бесплатен
Написан на PowerShell
Скачивать тут - http://thepowershellguy.com/blogs/posh/pages/powertab.aspx
Скринкаст с демонстрацией установки и использования – http://xaegr.wordpress.com/2008/02/04/powertab-screencast/
Описание слайда:
Список вариантов с помощью псевдографики: Список вариантов с помощью псевдографики: позволяет уточнять запрос после вызова меню донабирая текст вручную или курсорными клавишами. База настроек в XML файле, для сохранения пользовательских параметров и оптимизации. Цветовые темы Бесплатен Написан на PowerShell Скачивать тут - http://thepowershellguy.com/blogs/posh/pages/powertab.aspx Скринкаст с демонстрацией установки и использования – http://xaegr.wordpress.com/2008/02/04/powertab-screencast/

Слайд 15


  
    В практических примерах  , слайд №15
Описание слайда:

Слайд 16


  
    В практических примерах  , слайд №16
Описание слайда:

Слайд 17





Новые командлеты и функции:
Новые командлеты и функции:
Get/Set/Out-Clipboard
*-Bitmap
New-Hardlink
New-Junction
New-Shortcut
Get-Hash
Ping-Host; Resolve-Host
Get/Stop/Disconnect-TerminalSession
Write-Zip; Write-BZip; Write-GZip
Elevate
И еще множество других…
PSDrive провайдеры
Feed storage
Active Directory
Скачивать тут - http://www.codeplex.com/PowerShellCX
Описание слайда:
Новые командлеты и функции: Новые командлеты и функции: Get/Set/Out-Clipboard *-Bitmap New-Hardlink New-Junction New-Shortcut Get-Hash Ping-Host; Resolve-Host Get/Stop/Disconnect-TerminalSession Write-Zip; Write-BZip; Write-GZip Elevate И еще множество других… PSDrive провайдеры Feed storage Active Directory Скачивать тут - http://www.codeplex.com/PowerShellCX

Слайд 18





param ([string]$Name="*")
param ([string]$Name="*")
	$Root = New-Object -comObject "FPC.Root"
	if( $root.Arrays.Count -gt 0)
	{
		$root.Arrays|?{$_ -like $name}
	}
	else
	{
		if ($name -eq "*")
		{
			$name = read-host "Enter name of the ISA array"
		}
		$root.Arrays.Connect($name)
	}
Описание слайда:
param ([string]$Name="*") param ([string]$Name="*") $Root = New-Object -comObject "FPC.Root" if( $root.Arrays.Count -gt 0) { $root.Arrays|?{$_ -like $name} } else { if ($name -eq "*") { $name = read-host "Enter name of the ISA array" } $root.Arrays.Connect($name) }

Слайд 19





# Подключаемся к com-объекту
# Подключаемся к com-объекту
$isa = .\Get-IsaArray.ps1
# Смотрим какие диапазоны портов уже разрешены
$isa.ArrayPolicy.WebProxy.TunnelPortRanges
# Добавляем диапазон портов
$isa.ArrayPolicy.WebProxy.TunnelPortRanges.AddRange(
	"SSL 1234", 1234, 1234)
# Удаляем диапазон
$isa.ArrayPolicy.WebProxy.TunnelPortRanges.Remove("SSL 1234")
# Применяем изменения
$isa.ApplyChanges()
Описание слайда:
# Подключаемся к com-объекту # Подключаемся к com-объекту $isa = .\Get-IsaArray.ps1 # Смотрим какие диапазоны портов уже разрешены $isa.ArrayPolicy.WebProxy.TunnelPortRanges # Добавляем диапазон портов $isa.ArrayPolicy.WebProxy.TunnelPortRanges.AddRange( "SSL 1234", 1234, 1234) # Удаляем диапазон $isa.ArrayPolicy.WebProxy.TunnelPortRanges.Remove("SSL 1234") # Применяем изменения $isa.ApplyChanges()

Слайд 20





# Подключаемся к com-объекту
# Подключаемся к com-объекту
$isa = .\Get-IsaArray.ps1
# Записываем текущую дату в нужном формате в переменную
$date = Get-Date -Format "yyyy-MM-dd"
# Экспортируем настройки политик
$ISA.ArrayPolicy.ExportToFile(
	"c:\logs\ISA-Policy-$date.xml",0,"", "Exported at $date")
Описание слайда:
# Подключаемся к com-объекту # Подключаемся к com-объекту $isa = .\Get-IsaArray.ps1 # Записываем текущую дату в нужном формате в переменную $date = Get-Date -Format "yyyy-MM-dd" # Экспортируем настройки политик $ISA.ArrayPolicy.ExportToFile( "c:\logs\ISA-Policy-$date.xml",0,"", "Exported at $date")

Слайд 21





# Подключаемся к com-объекту
# Подключаемся к com-объекту
$isa = .\Get-IsaArray.ps1
# Записываем текущую дату в нужном формате в переменную
$date = Get-Date -Format "yyyy-MM-dd"
# Получаем политики, выбираем пользовательские, форматируем и сохраняем
$ISA.ArrayPolicy.PolicyRules | where {-not $_.System} |
select Order, Name, Enabled, 
@{Name="Type"; Expression={
	switch($_.type){
		0 {"Access"}; 
		1 {"Publishing"}; 
		2 {"Web Publishing"}
	}
}}, 
@{Name="Action"; Expression={
	if($_.action -eq 0){"Allow"}else{"Deny"}
}, 
EnableLogging, Description |
ConvertTo-HTML | Set-Content "c:\reports\Report-$date.html"
Send-SmtpMail -To "CIO@domain.ru" -Subject "SPAM" –AttachmentPath "c:\reports\Report-$date.html"
Описание слайда:
# Подключаемся к com-объекту # Подключаемся к com-объекту $isa = .\Get-IsaArray.ps1 # Записываем текущую дату в нужном формате в переменную $date = Get-Date -Format "yyyy-MM-dd" # Получаем политики, выбираем пользовательские, форматируем и сохраняем $ISA.ArrayPolicy.PolicyRules | where {-not $_.System} | select Order, Name, Enabled, @{Name="Type"; Expression={ switch($_.type){ 0 {"Access"}; 1 {"Publishing"}; 2 {"Web Publishing"} } }}, @{Name="Action"; Expression={ if($_.action -eq 0){"Allow"}else{"Deny"} }, EnableLogging, Description | ConvertTo-HTML | Set-Content "c:\reports\Report-$date.html" Send-SmtpMail -To "CIO@domain.ru" -Subject "SPAM" –AttachmentPath "c:\reports\Report-$date.html"

Слайд 22





param ([int[]]$ports=@(25,80,443))
param ([int[]]$ports=@(25,80,443))
$wc = new-object System.Net.WebClient
foreach ($port in $ports)
{
	$url = "http://www.utorrent.com/testport.php?port=$port"
	$ret = $wc.DownloadString($url)
	new-object psobject | select @{N="Port"; E={$port}}, 
	@{N="State"; E={$ret -match "port $port is open"}}
}
Описание слайда:
param ([int[]]$ports=@(25,80,443)) param ([int[]]$ports=@(25,80,443)) $wc = new-object System.Net.WebClient foreach ($port in $ports) { $url = "http://www.utorrent.com/testport.php?port=$port" $ret = $wc.DownloadString($url) new-object psobject | select @{N="Port"; E={$port}}, @{N="State"; E={$ret -match "port $port is open"}} }

Слайд 23





# Смотрим процессы на другом компьютере
# Смотрим процессы на другом компьютере
[System.Diagnostics.Process]::GetProcesses("PC01")
# Отправляем почту
$smtp = New-Object System.Net.Mail.SmtpClient
$smtp.Host = "localhost"
$smtpclient.Send("from@domain.ru","to@domain.ru","Тема",
	"Текст сообщения")
# Декодируем URI строку
$string = "%D0%9F%D0%BE%D0%B2%D0%B5%D1%80%D0%A8%D0%B5%D0%BB%D0%BB«
[System.Uri]::UnescapeDataString($string)
# Получаем произвольное число
$rnd = New-Object random
$rnd.Next(1,100)
# Функция Out-Notepad
function Out-Notepad {
$file = [System.IO.Path]::GetTempFileName()
$input | Out-String | Set-Content $file
notepad.exe $file }
Описание слайда:
# Смотрим процессы на другом компьютере # Смотрим процессы на другом компьютере [System.Diagnostics.Process]::GetProcesses("PC01") # Отправляем почту $smtp = New-Object System.Net.Mail.SmtpClient $smtp.Host = "localhost" $smtpclient.Send("from@domain.ru","to@domain.ru","Тема", "Текст сообщения") # Декодируем URI строку $string = "%D0%9F%D0%BE%D0%B2%D0%B5%D1%80%D0%A8%D0%B5%D0%BB%D0%BB« [System.Uri]::UnescapeDataString($string) # Получаем произвольное число $rnd = New-Object random $rnd.Next(1,100) # Функция Out-Notepad function Out-Notepad { $file = [System.IO.Path]::GetTempFileName() $input | Out-String | Set-Content $file notepad.exe $file }

Слайд 24





# Список общих папок
# Список общих папок
Get-WmiObject Win32_Share -ComputerName "PC02"
# Смена метки диска
$disk = Get-WmiObject Win32_LogicalDisk | 
	where {$_.deviceId -eq "C:"}
$disk.VolumeName = "Main"
$disk.Put()
# Запускаем процесс на другом компьютере
$proc = [wmiClass]"\\PC02\ROOT\CIMV2:win32_process"
$proc.create("Calc")
# Список установленного ПО
Get-WmiObject Win32_Product | sort vendor | format-table name, vendor, version
# Планки памяти
Get-WmiObject Win32_MemoryDevice | 
	Format-Table DeviceId, 
	@{label="Size"; expression={$_.EndingAddress - $_.startingAddress}}
# Топ 10 засорителей почтовых ящиков Exchange 2003
Get-WmiObject -Class Exchange_Mailbox -Namespace ROOT\MicrosoftExchangev2 | 
	sort size -Descending | select -first 10 | 
	Format-Table *DisplayName, Size, TotalItems
Описание слайда:
# Список общих папок # Список общих папок Get-WmiObject Win32_Share -ComputerName "PC02" # Смена метки диска $disk = Get-WmiObject Win32_LogicalDisk | where {$_.deviceId -eq "C:"} $disk.VolumeName = "Main" $disk.Put() # Запускаем процесс на другом компьютере $proc = [wmiClass]"\\PC02\ROOT\CIMV2:win32_process" $proc.create("Calc") # Список установленного ПО Get-WmiObject Win32_Product | sort vendor | format-table name, vendor, version # Планки памяти Get-WmiObject Win32_MemoryDevice | Format-Table DeviceId, @{label="Size"; expression={$_.EndingAddress - $_.startingAddress}} # Топ 10 засорителей почтовых ящиков Exchange 2003 Get-WmiObject -Class Exchange_Mailbox -Namespace ROOT\MicrosoftExchangev2 | sort size -Descending | select -first 10 | Format-Table *DisplayName, Size, TotalItems

Слайд 25





# Быстрая выборка параметров
# Быстрая выборка параметров
${function:...}={process {$Object=$_; $args[0]|%{$Object.($_)}}}
Get-Process powershell | ... Id
dir p* | ... Fullname
# Быстрый For
1..10 | foreach {"Число $_"}
Get-Content .\computers.txt | foreach { ping.exe $_ -n 1 | Select-String "Ответ" }
# Регулярные выражения
Get-Content ftp.log |
where {$_ -match "^(\S+) .+USER (\S+)"} | 
foreach {"Юзер $($matches[2]) зашел на FTP в $($matches[1])"
Описание слайда:
# Быстрая выборка параметров # Быстрая выборка параметров ${function:...}={process {$Object=$_; $args[0]|%{$Object.($_)}}} Get-Process powershell | ... Id dir p* | ... Fullname # Быстрый For 1..10 | foreach {"Число $_"} Get-Content .\computers.txt | foreach { ping.exe $_ -n 1 | Select-String "Ответ" } # Регулярные выражения Get-Content ftp.log | where {$_ -match "^(\S+) .+USER (\S+)"} | foreach {"Юзер $($matches[2]) зашел на FTP в $($matches[1])"

Слайд 26


  
    В практических примерах  , слайд №26
Описание слайда:

Слайд 27





set objNamedArgs=Wscript.Arguments.Named
set objNamedArgs=Wscript.Arguments.Named
 
path=objNamedArgs.item("path")
killdate=date() - objNamedArgs.item("killdate")
recur=objNamedArgs.item("recur")
wscript.echo path, killdate, recur
arFiles = Array() 
set fso = createobject("scripting.filesystemobject") 
'Ничего не удаляем, пока пробегаем по возвращенному набору файлов.
'Набор может быть перемешан.
'Создаём массив файловых объектов, чтобы этого избежать
 
SelectFiles path, killdate, arFiles, recur 
 
nDeleted = 0 
for n = 0 to ubound(arFiles) 
 
on error resume next 'in case of 'in use' files... 
arFiles(n).delete true 
if err.number = 0 then 
nDeleted = nDeleted + 1 
 
end if
on error goto 0
next
Описание слайда:
set objNamedArgs=Wscript.Arguments.Named set objNamedArgs=Wscript.Arguments.Named path=objNamedArgs.item("path") killdate=date() - objNamedArgs.item("killdate") recur=objNamedArgs.item("recur") wscript.echo path, killdate, recur arFiles = Array() set fso = createobject("scripting.filesystemobject") 'Ничего не удаляем, пока пробегаем по возвращенному набору файлов. 'Набор может быть перемешан. 'Создаём массив файловых объектов, чтобы этого избежать SelectFiles path, killdate, arFiles, recur nDeleted = 0 for n = 0 to ubound(arFiles) on error resume next 'in case of 'in use' files... arFiles(n).delete true if err.number = 0 then nDeleted = nDeleted + 1 end if on error goto 0 next

Слайд 28





sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) 
sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) 
on error resume next 
' добавляем файлы на удаление в массив 
set folder = fso.getfolder(sPath) 
set files = folder.files 
for each file in files 
' на всякий случай отслеживаем ошибки доступа к 
' свойству Date
' 
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
Описание слайда:
sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders) on error resume next ' добавляем файлы на удаление в массив set folder = fso.getfolder(sPath) set files = folder.files for each file in files ' на всякий случай отслеживаем ошибки доступа к ' свойству Date ' 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

Слайд 29





# Получаем текущую дату
# Получаем текущую дату
$DateX = Get-Date
# “Прибавляем” к ней минус 7 дней
$DateX = $DateX.AddDays(-7)
# Получаем список файлов в каталоге
Dir –Recurse |
# Выбираем те где дата создания меньше $dateX
where {$_.LastWriteTime –lt $DateX} | 
# Будто бы удаляем отобранные файлы
Del –Whatif
Описание слайда:
# Получаем текущую дату # Получаем текущую дату $DateX = Get-Date # “Прибавляем” к ней минус 7 дней $DateX = $DateX.AddDays(-7) # Получаем список файлов в каталоге Dir –Recurse | # Выбираем те где дата создания меньше $dateX where {$_.LastWriteTime –lt $DateX} | # Будто бы удаляем отобранные файлы Del –Whatif

Слайд 30





On error Resume Next 
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)
Описание слайда:
On error Resume Next 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)

Слайд 31





If (Err.Number <> 0) Then 
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
Описание слайда:
If (Err.Number <> 0) Then 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

Слайд 32





# Получаем учетные данные с другого компьютера, указав другие учетные данные
# Получаем учетные данные с другого компьютера, указав другие учетные данные
$Accounts = Get-WmiObject -ComputerName scenic12 Win32_UserAccount -Credential (Get-Credential)
# Выводим количество записей
"Обнаружено $($Accounts.Count) учетных записей"
# Выводим выбранные свойства в виде автоматически выровненной таблицы
$Accounts | Format-Table Caption, sid*, disabled,
	lockout, password*, description –AutoSize
# Выводим то же самое в HTML файл
$Accounts | Select Caption, sid*, disabled,
	lockout, password*, description | 
	ConvertTo-Html | Set-Content Accounts.html
Описание слайда:
# Получаем учетные данные с другого компьютера, указав другие учетные данные # Получаем учетные данные с другого компьютера, указав другие учетные данные $Accounts = Get-WmiObject -ComputerName scenic12 Win32_UserAccount -Credential (Get-Credential) # Выводим количество записей "Обнаружено $($Accounts.Count) учетных записей" # Выводим выбранные свойства в виде автоматически выровненной таблицы $Accounts | Format-Table Caption, sid*, disabled, lockout, password*, description –AutoSize # Выводим то же самое в HTML файл $Accounts | Select Caption, sid*, disabled, lockout, password*, description | ConvertTo-Html | Set-Content Accounts.html

Слайд 33





var sDomain = ""; // enter your domain here. 
var sDomain = ""; // enter your domain here. 
var iCutOffDays = 0; // last login cut-off in days. 
var TRUE = 1; 
var ForReading = 1; 
var ForWriting = 2; 
var DAYMSECS = 86400000; // number of milliseconds in a day 
var DomObj, CollObj, sSubDir; 
var iNumUsers = 0; 
var CutOff; 
var WSHShell = new ActiveXObject("WScript.Shell"); 
var fs = new ActiveXObject("Scripting.FileSystemObject"); 
WSHShell.Popup("Starting Last Log Report " ); 
CutOff = new Date(); 
CutOff.setTime( CutOff.valueOf() - iCutOffDays*DAYMSECS ); 
DomObj = GetObject("WinNT://" + sDomain ); 
CollObj = new Enumerator(DomObj);
Описание слайда:
var sDomain = ""; // enter your domain here. var sDomain = ""; // enter your domain here. var iCutOffDays = 0; // last login cut-off in days. var TRUE = 1; var ForReading = 1; var ForWriting = 2; var DAYMSECS = 86400000; // number of milliseconds in a day var DomObj, CollObj, sSubDir; var iNumUsers = 0; var CutOff; var WSHShell = new ActiveXObject("WScript.Shell"); var fs = new ActiveXObject("Scripting.FileSystemObject"); WSHShell.Popup("Starting Last Log Report " ); CutOff = new Date(); CutOff.setTime( CutOff.valueOf() - iCutOffDays*DAYMSECS ); DomObj = GetObject("WinNT://" + sDomain ); CollObj = new Enumerator(DomObj);

Слайд 34





for ( ; !CollObj.atEnd(); CollObj.moveNext()) 
for ( ; !CollObj.atEnd(); CollObj.moveNext()) 
{ 
var Obj = CollObj.item(); 
if ( Obj.Class == "User" ) 
{ 
iNumUsers++; 
try 
{ 
if ( Obj.LastLogin < CutOff.valueOf() ) 
WriteLOG( Obj.name + " " + Obj.LastLogin ); 
} 
catch( ErrorObj ) 
{ 
WriteLOG( Obj.name + " has never logged in" ); 
} 
} 
} 
WriteLOG("Total number of users is " + iNumUsers ); 
WSHShell.Popup("Finished"); 
WScript.Quit();
Описание слайда:
for ( ; !CollObj.atEnd(); CollObj.moveNext()) for ( ; !CollObj.atEnd(); CollObj.moveNext()) { var Obj = CollObj.item(); if ( Obj.Class == "User" ) { iNumUsers++; try { if ( Obj.LastLogin < CutOff.valueOf() ) WriteLOG( Obj.name + " " + Obj.LastLogin ); } catch( ErrorObj ) { WriteLOG( Obj.name + " has never logged in" ); } } } WriteLOG("Total number of users is " + iNumUsers ); WSHShell.Popup("Finished"); WScript.Quit();

Слайд 35





////////////////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////////////////// 
// WriteLOG 
// 
var LogFile = new Object(); 
function WriteLOG( sLogLine ) 
{ 
var d = new Date(); 
if ( LogFile == null ) 
{ 
LogFile = fs.OpenTextFile( ".\\Logfile.txt" , ForWriting, TRUE ); 
LogFile.WriteLine( sLogLine ); 
} 
else 
{ 
LogFile.WriteLine( sLogLine ); 
} 
}
Описание слайда:
////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////// // WriteLOG // var LogFile = new Object(); function WriteLOG( sLogLine ) { var d = new Date(); if ( LogFile == null ) { LogFile = fs.OpenTextFile( ".\\Logfile.txt" , ForWriting, TRUE ); LogFile.WriteLine( sLogLine ); } else { LogFile.WriteLine( sLogLine ); } }

Слайд 36





# Получаем текущую дату
# Получаем текущую дату
$DateX = Get-Date
# “Прибавляем” к ней минус 3 месяца
$DateX = $DateX.AddMonths(-3)
# Получаем объекты из AD с указанными свойствами
Get-QADUser -IncludedProperties Name, LastLogon |
	# Выбираем с lastlogon меньше $DateX
	Where {$_.lastlogon -lt $DateX} |
	# Будто бы удаляем отобранные учетки
	Disable-QADUser -WhatIf
Описание слайда:
# Получаем текущую дату # Получаем текущую дату $DateX = Get-Date # “Прибавляем” к ней минус 3 месяца $DateX = $DateX.AddMonths(-3) # Получаем объекты из AD с указанными свойствами Get-QADUser -IncludedProperties Name, LastLogon | # Выбираем с lastlogon меньше $DateX Where {$_.lastlogon -lt $DateX} | # Будто бы удаляем отобранные учетки Disable-QADUser -WhatIf

Слайд 37


  
    В практических примерах  , слайд №37
Описание слайда:

Слайд 38





Официальные сайты
Официальные сайты
http://www.microsoft.com/powershell
http://www.microsoft.com/technet/scriptcenter/hubs/msh.mspx
Блоги на русском языке
http://www.itcommunity.ru/blogs/dmitrysotnikov/
http://xaegr.wordpress.com/
http://blogs.technet.com/abeshkov/
Блоги на английском языке
http://blogs.msdn.com/powershell/
http://thepowershellguy.com/
http://www.leeholmes.com/blog/
Список ресурсов по Powershell  http://windowspowershell.ru
Описание слайда:
Официальные сайты Официальные сайты http://www.microsoft.com/powershell http://www.microsoft.com/technet/scriptcenter/hubs/msh.mspx Блоги на русском языке http://www.itcommunity.ru/blogs/dmitrysotnikov/ http://xaegr.wordpress.com/ http://blogs.technet.com/abeshkov/ Блоги на английском языке http://blogs.msdn.com/powershell/ http://thepowershellguy.com/ http://www.leeholmes.com/blog/ Список ресурсов по Powershell http://windowspowershell.ru

Слайд 39





Веб-трансляции на русском языке
Веб-трансляции на русском языке
http://www.microsoft.com/rus/events/detail.mspx?eventid=1032358044
Веб-трансляции на английском языке
http://search.microsoft.com/results.aspx?mkt=en-US&setlang=en-US&q=powershell+webcast 
Скринкасты на русском языке
http://xaegr.wordpress.com/category/screencast/
Описание слайда:
Веб-трансляции на русском языке Веб-трансляции на русском языке http://www.microsoft.com/rus/events/detail.mspx?eventid=1032358044 Веб-трансляции на английском языке http://search.microsoft.com/results.aspx?mkt=en-US&setlang=en-US&q=powershell+webcast Скринкасты на русском языке http://xaegr.wordpress.com/category/screencast/

Слайд 40


  
    В практических примерах  , слайд №40
Описание слайда:



Похожие презентации
Mypresentation.ru
Загрузить презентацию