Скрипты для системных администраторов Windows, Полезные скрипты для Win2003 Опции

[Nazim]

Предлагаю выкладывать сюда скрипты для администрирования. Например вот мой для подключения сетевого диска

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

Set WshNetwork = CreateObject("WScript.Network")
'Создание объекта типа Network Set Drives = WshNetwork.EnumNetworkDrives
c = 0 'Пременная проверки на наличие хотя бы одного сетевого диска!
i = 0 While i <= Drives.Count-1 'Проверка на наличие сетевых диков
c = 1 'MsgBox " У вас есть сетевой диск " & Drives.Item(i) & " - " & Drives.Item(i+1) i = i+2 Wend if c=0 then
'MsgBox "Нет ни одного подключенного диска"
'MsgBox "Попытка подключить сетевой диск" 'Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Z:", "\\Имясервера\имя папки"
End if

для подключения принтера

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\имяпринтсервера\имя принтера"

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

Кстати кое что можно и тут найти

http://gallery.technet.microsoft.com/ScriptCenter/en-us/

Сообщение отредактировал Spectral - Apr 30 2011, 3:42

[lAero]

Привет всем.
Нужна помощь со скриптом на vbs.

Задача стоит такая: есть пользователи в AD, есть компьютеры там же. Надо чтобы при логине пользователя на компьютер, в поле Description пользователя прописывалось имя компьютера.

Пока пришел к такому решению:

Dim adsinfo, ThisComp, oUser

' Определяем объекты
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)

' Заносим данные в AD

'В поле Description учетки пользователя пишем имя компьютера
oUser.put "Description", ThisComp.cn
oUser.Setinfo
wscript.quit

Но так не подходит т.к. пользователи своими доменными УЗ заходят и на терминальные сервера, т.е. надо как то исключить их.
Все компьютеры названы одним и тем же паттерном (LND-WS0001, CPR-WS0001 и так далее, у нас четыре локации) а вот сервера бывают разные.
Думаю про какой то if then else, но язык vbs знаю из рук вон плохо.

было бы логично и в компьютер прописывать пользователя, кто залогинен. у нас есть куча компьютеров и мы не знаем чьи они. идеи?

[olexande]

Через пакет psexec можна дистанційно збирати за потребою ...
Без перезавантаження при перелогоні відпрацює правильно?

[romchikss]

Приветствую!
OS Windows 2012 R2. Есть каталог с подкаталогами (очень много), у каждой папки нарезаны свои права, унаследование отключено. Нужно через powershell нарезать на каждый каталог/подкаталог доменному пользователю право Read only. Есть возможность ? Спасибо

Сообщение отредактировал romchikss - Jan 28 2016, 17:48

[mak_v_]

А шо не так?

[artem.ultra]

нужен батник
1. подключаем сетевую шару с логином и паролем доменным \\192..168.150.150\back
2. проверяем файлы в этой шаре, если старше 30 дней - удаляем что там есть
3. копируем в эту шару файлы C:\Back
4. очищаем шару
5. размонтируем шару
как то так
запускать хочется через планировщика

[Dik]

Господа, подмогните! Может кто где то видел или знает скрипт, который позволит делать выборки:
пользователи.тхт --->выборка AD ---> User+PC.txt
PC.txt ---> выборка AD ---> PC+User.txt

Тоесть выборка из АД данных на основе списков.

[Koka-ftp]

не совсем понятнo описана задача)
если смотреть в сторону PS, то выборку из списка\текста можно делать командлетом Import-CSV
далее как-то так)

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

Import-Module ActiveDirectory

$results = @()
$Users = Get-ADUser -Filter * -Properties *
foreach ($User in $Users) {
   $GroupMembership = ($user.memberof | % { (Get-ADGroup $_).Name; } | Sort-Object) -join ';'
   $results += $User.SamAccountName + ';' + (Get-ADGroup $user.PrimaryGroup).Name + ';' + $GroupMembership
}

$results | out-file ('C:\blar_{0}-{1:yyyyMMddHHmm}.csv' -f $env:userdomain,(Get-Date))
или
$results | Export-Csv -path ('C:\all_ad_groups_{0}-{1:yyyyMMddHHmm}.csv' -f $env:userdomain, (Get-Date)) -Encoding 'UTF8' -force -NoTypeInformation -UseCulture

Сообщение отредактировал Koka-ftp - Aug 29 2017, 16:38

[Dik]

не совсем понятнo описана задача)
если смотреть в сторону PS, то выборку из списка\текста можно делать командлетом

Имеется в виду, что есть список пользователей (например 100 имен), все учетки с указанными дескрипшинами (например есть логин Pupkin.V с дескрипшином Пупкин Василий).
Список записан в файл, тхт или csv ...
И вот задача вытащить из АД, по очереди используя список, и создать список в виде логин/дескрипшн юзера/имя ПК/время входа и записать это в файл.
Или наоборот, по имени ПК вытащить то же самое но про пользователя.

Сообщение отредактировал Dik - Aug 30 2017, 10:10

[mak_v_]

Можт у кого-то есть под рукой скриптик для АД (2к3) выгребающий список локальных админов со всех раб.станций?
Ну и в идеале конечно смена паролей для них-же.

[Morftimg]

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

Наваял скриптец но он не универсальный и не делает что я хочу.

NET USE \\Server\IPC$ /u:Server\user *password*

@echo off

set day=%date:~0,2%

set month=%date:~3,2%

set year=%date:~6,4%

Robocopy c:\users\Karpov \\Server\UserBackup\karpov%day%%month%%year%\ /E /A /DCOPY:T /R:2 /W:5 /MT:64

Что надо чтоб было СИСТЕМА WIN 10:
Авторизация на сетевой шаре и после бекапа размонтирование шары.

1. Универсальный скрипт, чтоб копировал профиль пользователя (только профили реальных пользователей, а не всех юзеров типа администратор и тд)
2. Все содержимое раздела D:\ исключая системный папки корзины и тд
3. К названию конечной папки чтоб дописывалась текущая дата, и вообще класно было бы если б было доступ 5 папок с датам допустим Karpov20042018 Karpov21042018 Karpov22042018 чтоб когда пишет 6 папку самая старая удалялась.
4. Хочется чтоб был батник, чтоб можно было вставить в обычный планировщик.

Очень надо срочно ) Спасибо.

[Morftimg]

Помогите со скриптом, уже срочно надо

[olexande]

Что надо чтоб было СИСТЕМА WIN 10:
Авторизация на сетевой шаре и после бекапа размонтирование шары.

Чим не влаштовує збережені системно паролі / мережеві диски ?

Простим перейменуванням можна організувати "глибину історії збереження" чи аналізувати дату створення

Рекомендую дату як частину імені файлу вивести в підкаталог (чи продублювати).

[Morftimg]

Напомните простой скрип для удаления файлов с датой более надцать дней от сегодня?

[qazzy]

Напомните простой скрип для удаления файлов с датой более надцать дней от сегодня?

Как-то так

find /path/to/files -type f -mtime +5 -exec rm {} \;

Должно удалять старше 5 дней. Перед использованием проверить где-то, память она такая - лучше перепроверить.

Сообщение отредактировал qazzy - Jan 18 2019, 22:28

[mak_v_]

Как-то так

find /path/to/files -type f -mtime +5 -exec rm {} \;

Должно удалять старше 5 дней. Перед использованием проверить где-то, память она такая - лучше перепроверить.

Люто плюсую!

[Sintorres]

Напомните простой скрип для удаления файлов с датой более надцать дней от сегодня?

Опубликовано sv (не проверено) в Пнд, 2015-03-09 16:40.

Раньше тоже так делал. Пока не пришло осознание, что лучше старый бекап, чем никакого. Все бывает, верно? И если по каким-то причинам бекап перестал выполняться, то find все также будет удалять файлы, пока не останется ни одного. При этом сообщение об ошибке при выполнении бекапа, например, на тот же email, также не помешает.

Как-то так

find /path/to/files -type f -mtime +5 -exec rm {} \;

Должно удалять старше 5 дней. Перед использованием проверить где-то, память она такая - лучше перепроверить.

А это вообще законно, для винды?

2Win и ЕЩЕ
И для винды "Удалять если больше N штук"

[qazzy]

А это вообще законно, для винды?

2Win и ЕЩЕ
И для винды "Удалять если больше N штук"

Упс, не обратил внимание

[Alekssander]

Помогите плиз со скриптом.
Нужен скрипт для создания локального пользователя с правами администратора.
Десяток перепробовал, не работают.

[Sub Focus]

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

Делал через Powershell

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

# Get the ID and security principal of the current user account
$myWindowsID = [System.Security.Principal.WindowsIdentity]::GetCurrent();
$myWindowsPrincipal = New-Object System.Security.Principal.WindowsPrincipal($myWindowsID);

# Get the security principal for the administrator role
$adminRole = [System.Security.Principal.WindowsBuiltInRole]::Administrator;

# Check to see if we are currently running as an administrator
if ($myWindowsPrincipal.IsInRole($adminRole))
{
# We are running as an administrator, so change the title and background colour to indicate this
$Host.UI.RawUI.WindowTitle = $myInvocation.MyCommand.Definition + "(Elevated)";
$Host.UI.RawUI.BackgroundColor = "DarkBlue";
Clear-Host;
}
else {
# We are not running as an administrator, so relaunch as administrator

# Create a new process object that starts PowerShell
$newProcess = New-Object System.Diagnostics.ProcessStartInfo "PowerShell";

# Specify the current script path and name as a parameter with added scope and support for scripts with spaces in it's path
$newProcess.Arguments = "& '" + $script:MyInvocation.MyCommand.Path + "'"

# Indicate that the process should be elevated
$newProcess.Verb = "runas";

# Start the new process
[System.Diagnostics.Process]::Start($newProcess);

# Exit from the current, unelevated, process
Exit;
}

# Run your code that needs to be elevated here...

Write-Host
Write-Host ″Menu″ -BackgroundColor White -ForegroundColor Red
Write-Host

Write-Host ″1. Kyocera TR1 in a center″ -ForegroundColor Green
Write-Host ″2. Kyocera TR2 near exit″ -ForegroundColor Green
Write-Host ″3. HP Color M477 in a center″ -ForegroundColor Green
Write-Host ″4. Exit″ -ForegroundColor Green
Write-Host

$choice = Read-Host ″Select the menu item″

Switch($choice){
1{$driver = "Kyocera Ecosys M2540dn KX"
$address = "10.252.128.18"
$name = "Kyocera TR1"
$sleep = "3"

$DriverLocation = Join-Path $pwd "\KX_Universal_Printer_Driver\64bit\OEMSETUP.INF"



# The invoke command can be added to specify a remote computer by adding -computername. You would need to copy the .inf file to the remote computer first though.
# This script has it configured to run on the local computer that needs the printer.
# The pnputil command imports the .inf file into the Windows driverstore.
# The .inf driver file has to be physically on the local or remote computer that the printer is being installed on.
$DriverLocation2 = Join-Path $pwd "\KX_Universal_Printer_Driver\"
Get-ChildItem $DriverLocation2 -Recurse -Filter "*inf" | ForEach-Object { PNPUtil.exe /add-driver $_.FullName /install }


#Invoke-Command {pnputil.exe /add-driver (Join-Path $pwd "\KX_Universal_Printer_Driver\64bit\OEMSETUP.INF") /install }


#Add-PrinterDriver -Name $driver

Start-Sleep $sleep

# This creates the TCP\IP printer port. It also will not use the annoying WSD port type that can cause problems.
# WSD can be used by using a different command syntax though if needed.

Add-PrinterPort -Name $address -PrinterHostAddress $address

start-sleep $sleep

Add-Printer -DriverName $driver -Name $name -PortName $address


Start-Sleep $sleep


# This prints a list of installed printers on the local computer. This proves the newly added printer works.

get-printer |Out-Printer -Name $name }
2{$driver = "Kyocera Ecosys M2540dn KX"
$address = "10.120.4.5"
$name = "Kyocera TR2 NE"
$sleep = "3"



# The invoke command can be added to specify a remote computer by adding -computername. You would need to copy the .inf file to the remote computer first though.
# This script has it configured to run on the local computer that needs the printer.
# The pnputil command imports the .inf file into the Windows driverstore.
# The .inf driver file has to be physically on the local or remote computer that the printer is being installed on.

$DriverLocation2 = Join-Path $pwd "\KX_Universal_Printer_Driver\"
Get-ChildItem $DriverLocation2 -Recurse -Filter "*inf" | ForEach-Object { PNPUtil.exe /add-driver $_.FullName /install }

#Invoke-Command {pnputil.exe /add-driver (Join-Path $pwd "\KX_Universal_Printer_Driver\64bit\OEMSETUP.INF") /install}


#Add-PrinterDriver -Name $driver

Start-Sleep $sleep

# This creates the TCP\IP printer port. It also will not use the annoying WSD port type that can cause problems.
# WSD can be used by using a different command syntax though if needed.

Add-PrinterPort -Name $address -PrinterHostAddress $address

start-sleep $sleep

Add-Printer -DriverName $driver -Name $name -PortName $address



# This prints a list of installed printers on the local computer. This proves the newly added printer works.

get-printer |Out-Printer -Name $name }
3{$driver = "Kyocera Ecosys M2540dn KX"
$address = "10.120.4.5"
$name = "Kyocera TR2 NE"
$sleep = "3"


# The invoke command can be added to specify a remote computer by adding -computername. You would need to copy the .inf file to the remote computer first though.
# This script has it configured to run on the local computer that needs the printer.
# The pnputil command imports the .inf file into the Windows driverstore.
# The .inf driver file has to be physically on the local or remote computer that the printer is being installed on.

Invoke-Command {pnputil.exe /add-driver (Join-Path $pwd "\KX_Universal_Printer_Driver\64bit\OEMSETUP.INF") /install}


#Add-PrinterDriver -Name $driver

Start-Sleep $sleep

# This creates the TCP\IP printer port. It also will not use the annoying WSD port type that can cause problems.
# WSD can be used by using a different command syntax though if needed.

Add-PrinterPort -Name $address -PrinterHostAddress $address

start-sleep $sleep

Add-Printer -DriverName $driver -Name $name -PortName $address



# This prints a list of installed printers on the local computer. This proves the newly added printer works.

get-printer |Out-Printer -Name $name $driver = "HP Color LaserJet MFP M477 PCL6"
$address = "10.252.128.17"
$name = "HP Color TR"
$sleep = "3"



# The invoke command can be added to specify a remote computer by adding -computername. You would need to copy the .inf file to the remote computer first though.
# This script has it configured to run on the local computer that needs the printer.
# The pnputil command imports the .inf file into the Windows driverstore.
# The .inf driver file has to be physically on the local or remote computer that the printer is being installed on.

Invoke-Command {pnputil.exe /add-driver (Join-Path $pwd "\KX_Universal_Printer_Driver\64bit\OEMSETUP.INF") /install}


#Add-PrinterDriver -Name $driver

Start-Sleep $sleep

# This creates the TCP\IP printer port. It also will not use the annoying WSD port type that can cause problems.
# WSD can be used by using a different command syntax though if needed.

Add-PrinterPort -Name $address -PrinterHostAddress $address

start-sleep $sleep

Add-Printer -DriverName $driver -Name $name -PortName $address



# This prints a list of installed printers on the local computer. This proves the newly added printer works.

get-printer |Out-Printer -Name $name
}
4{Write-Host ″Exit″; exit}
default {Write-Host ″Wrong choice, try again.″ -ForegroundColor Red}
}

Write-Host -NoNewLine "Press any key to continue...";
$null = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown");

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

Сообщение отредактировал Sub Focus - Nov 4 2021, 19:55