» Автоматизация администрирования

wwwregus

Это возможно, но для этого нужно обновить сервер до Windows 2003 R2, там больше возможностей для контроля за записываемыми файлами при помощи фильтров.

kazavo4ka

Цитата:

Дак это ж можно через групповые политики сделать. Что мешает?

на данный момент мешает незнание как это сделать...
и мне кажется что через скрипт это делается проще

JcVai

Цитата:

используй системные переменные:

Код:\\server\documents\%username%$

я понимаю что надо использовать системные переменные, мне сам листинг скрипта интересен (:

mrmarvin


Цитата:

я понимаю что надо использовать системные переменные, мне сам листинг скрипта интересен (:

Имелось ввиду не скрипт .
Открой dsa.msc, выдели всех пользователей и в свойствах выделенных вставь в личную папку \\server\documents\%username%$ и нажми применить. Все по указанному пути создадутся папки с именами всех пользователей и при просмотре свойств каждого, будет уже не переменная окружения, а именно папка пользователя.

+fox84
to mrmarvin

так же советую не \\server\documents\%username%$
а \\server\documents$\%username%
использовать, для удобства, бывают ситуации когда что нить сбоит у человека а причина неизвестна, помогает полная отчистка профиля, а удобнее смотреть их когда они видны, а не лезть на сервер и смотреть там)

wwwregus, это реально. Ищи информацию в направлении Veritas StorageExec.

alecsandrb
спасибо за инфу.... как обновлюсь поковыряюсь..

Sk1f
Veritas StorageExec как скачаю поюзаю ... спасибо.

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

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

Может кто знает, как скриптом сделать скриншот?

Нужно для поддержки пользователей в фирме, где запрещены лишние программы (скрипты можно). Из стандартного только Windows 2000 и Office 2000 (+WinRar, AntiVirus и корпоративная прога). В иделе при ошибке пользователь нажимает значек в трее и на сетевой диск копируется снимок экрана.

WSQ
Имхо одних возможностей WSH не достаточно для решения этой задачи.
Можно поискать какие нить СОМпоненты...
А проще поставить фриварный IrfanView (достаточно одного i_view32.exe) и запускать его командой типа:
Код: i_view32.exe /capture=0 /resize=(50p,50p) /convert=\\Server\Share\screen.png

WSQ
Нажимаешь комбинацию Shift+PrnScr, а затем вставляешь в документ офиса

WSQ

Цитата:

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

Код:
Option Explicit

Const sLocalPath = "c:\Database\"

Dim objExplorer

' On Error Resume Next

Set objExplorer = CreateObject("InternetExplorer.Application")

objExplorer.Navigate "file://" + sLocalPath
objExplorer.ToolBar = 1
objExplorer.StatusBar = 0

objExplorer.Width = 400
objExplorer.Height = 400
objExplorer.Visible = 1

'objExplorer.Quit

Помогите на KIXе написать скрипт по работе с файлом. Задача состоит в том, чтобы при логоне пользователя открывался файл baduser.txt, состоящий из строк, содержащих имена пользователей, и проверялось наличия имени пользователя @USERID в этом файле ...

Спасибо jONES1979 за скрипт - понял где копать, полистаю MSDN

JcVai
Цитата:

Нажимаешь комбинацию Shift+PrnScr, а затем вставляешь в документ офиса

Уже пробовал по телефону объяснить операционисту что такое Word - счас буду делать одним ярлыком.

Люди, помогите решить такую проблемму (сотню раз уже везде задаю никто не отвечает
Имеется сетевой принтер, печатают на котором через print-server (Windows 2003). В Windows 2003 R2 есть такая фича как управлние принт-серверами. И там есть фильтры, которые можно настраивать на принтер. Так вот тут у меня 2 вопроса:

1. Натроенные фильтры работатют только тогда, когда запущена консоль, в которой этот фильтр создан, а енто не гут. Как сделать, чтобы фильтру, а точнее скрипты, в этих фильтрах работали без консоли?

2.В фильтре я настроил выполнение скрпита, когда идёт печать. Скрпит определяет кто печатет, с какой машины, имя документа и т.д., всё енто заносит в скул базу... а ещё срипт - VBS. Всё енто я определяю средствами WMI. Так вот. не могу определить сколько страниц напечататно. Код:

Set colPrintJobs = objWMIService.ExecQuery ("Select * from Win32_PrintJob")
For Each objPrintJob in colPrintJobs
strPrinter = Split(objPrintJob.Name,",",-1,1)
document_name=objPrintJob.Document //Какой документ печатается
pages_printed=objPrintJob.TotalPages // Сколько страниц печатается
Next

Так вот этот objPrintJob.TotalPages и определяется неправильно...

strizhakovs

Цитата:

Вообщем почти все осилил, осталось только зделать WMI запросы на получение инфы о железе и о софте...Помогите с этим плз

[more]'получение имени машины

strComputer = InputBox ("Введите имя или IP-адрес компьютера", "Запрос","")

If strComputer= "" Then WScript.Quit

'объявление констант
'set constant
Const ForReading = 1
Const ForWriting = 2
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CURRENT_USER = &H80000001




' указание папки для создания файла отчета
' set folder for generate report
'strPath = "d:\"
strPath = InputBox ("Введите путь для сохранения файла", "Browse","")

'определение типа и параметров процессора
'get processor properties

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
        strInfo="Параметры процессора (процессоров)"
        strInfo=strInfo + vbCrLf+ "===================="
    For Each objItem in colItems
        strInfo=strInfo + vbCrLf+ "Производитель: " & objItem.Manufacturer
        strInfo=strInfo + vbCrLf+ "Модель: " & objItem.Name
    Next
        strInfo=strInfo + vbCrLf+ ""
        strInfo=strInfo + vbCrLf+ ""

'определение видеоадаптера и параметров видеоотображения
'get video properties

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
("Select * from Win32_DisplayControllerConfiguration")
    For Each objItem in colItems
        strInfo=strInfo + vbCrLf+ "Видеопараметры"
        strInfo=strInfo + vbCrLf+ "===================="
        strInfo=strInfo + vbCrLf+ "Модель видеокарты: " & objItem.Name
    'strInfo=strInfo + vbCrLf+ "Setting ID: " & objItem.SettingID
    strInfo=strInfo + vbCrLf+ "Видеорежим: " & objItem.VideoMode
Next
        strInfo=strInfo + vbCrLf+ ""
        strInfo=strInfo + vbCrLf+ ""
    
'определение сетевых параметров
'get network properties

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration")
        strInfo=strInfo + vbCrLf+ "Оборудование доступа к сети"
        strInfo=strInfo + vbCrLf+ "===================="
    For Each objItem in colItems
            If objItem.DNSHostName <> "" then
            strInfo=strInfo + vbCrLf+ "Модель: " & objItem.Caption
            'strInfo=strInfo + vbCrLf+ "Default IP Gateway: " & objItem.DefaultIPGateway
            strInfo=strInfo + vbCrLf+ "Имя в сети: " & objItem.DNSHostName
            'strInfo=strInfo + vbCrLf+ "IP Address: " & objItem.IPAddress
            strInfo=strInfo + vbCrLf+ "MAC адрес сетевой карты: " & objItem.MACAddress
        End if
    strPC1 = objItem.DNSHostName
    Next
        strInfo=strInfo + vbCrLf+ ""
        strInfo=strInfo + vbCrLf+ ""
    
'определение параметров жестких и сменных дисков
'get drive disk properties

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48)
        strInfo=strInfo + vbCrLf+ "Постоянные и сменные носители информации"
        strInfo=strInfo + vbCrLf+ "===================="
    For Each objItem in colItems
        strInfo=strInfo + vbCrLf+ "Название: " & objItem.Description
        strInfo=strInfo + vbCrLf+ "Модель: " & objItem.Caption
        strInfo=strInfo + vbCrLf+ "Количество логических разделов: " & objItem.Partitions
        strInfo=strInfo + vbCrLf+ "Общий размер: " & Round (objItem.Size/1000/1000) & "Mb"
        strInfo=strInfo + vbCrLf+ ""
    Next
        strInfo=strInfo + vbCrLf+ ""
        strInfo=strInfo + vbCrLf+ ""
    
'определение объема оперативной памяти и информации о пользователе
'get RAM memory properties and user account

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
    
    For Each objItem in colItems
        strUName = Right(objItem.UserName,6)
        strInfo=strInfo + vbCrLf+ "Оперативная память"
        strInfo=strInfo + vbCrLf+ "===================="
        strInfo=strInfo + vbCrLf+ "Общее количество оперативной памяти: " & Round (objItem.TotalPhysicalMemory/1024/1024) & "Mb"
        strInfo=strInfo + vbCrLf+ ""
        strInfo=strInfo + vbCrLf+ ""        
        strInfo=strInfo + vbCrLf+ "Информация о пользователе"
        strInfo=strInfo + vbCrLf+ "===================="
        strInfo=strInfo + vbCrLf+ "PrimaryOwnerName: " & objItem.PrimaryOwnerName
        strInfo=strInfo + vbCrLf+ "Полное имя пользователя: " & objItem.UserName
        strInfo=strInfo + vbCrLf+ ""
        
    Next
        strInfo=strInfo + vbCrLf+ ""
        strInfo=strInfo + vbCrLf+ ""


'получение списка ПО
'get PC's software


Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
        strInfo=strInfo + vbCrLf+ "Список установленного ПО"
        strInfo=strInfo + vbCrLf+ "===================="
For Each subkey In arrSubKeys
    If Left (subkey,1) <> "{" and Right (subkey,1) <> "}" Then
    strInfo=strInfo + vbCrLf+ subkey
    End If
    
Next


'запись собранной информации в файл    
'write properties in report file

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\default:StdRegProv")
    
        strKeyPath = "SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName\"
        strValueName = "ComputerName"
        oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
        strPC1 = strValue
        strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\WinLogon"
        strValueName = "DefaultUserName"
        oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
        strUName = strValue
        strPCsFile= strPC1 & "_" & strUName &".txt"
        'WScript.Echo strUName
    Set objTextFile = objFSO.OpenTextFile(strPath & strPCsFile, ForWriting, True)
        objTextFile.WriteLine strInfo
    objTextFile.Close
        'WScript.echo strInfo


'отправка почтой
Set objEmail = CreateObject("CDO.Message")

    objEmail.From = "*@*"
    objEmail.To = "*@*"
    
    objEmail.Subject = "script result"
    objEmail.Textbody = strPCsFile
    objEmail.AddAttachment (strPath & strPCsFile)
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
     "*"
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Send


WScript.Quit    [/more]

скрипт работает под win98 и winXP (на остальных не проверял)
в коде закоментишь оправку почтой если она не нужна
при отправке почтой:
1 выставить адрес отправителя и получателя (можно один и тот же)
2 выставить smtp сервер через который будет уходить письмо ( ("http://schemas.microsoft.com/cdo/configuration/smtpser ") "*" )
в первом inputbox задается имя компа (если "." - localhost, можно имя просто или IP-адрес)
во втором inputbox задается путь куда сохранить текстарь с результатами

З.Ы. если кто подскажет как выбирать IP-адрес и дефолтовый Gateway буду премного благодарен, так как в этом скрипте система сильно матерится если раскоментить эти строки

Цитата:

Подробнее...

скрипт работает под win98 и winXP (на остальных не проверял)
в коде закоментишь оправку почтой если она не нужна
при отправке почтой:
1 выставить адрес отправителя и получателя (можно один и тот же)
2 выставить smtp сервер через который будет уходить письмо ( ("http://schemas.microsoft.com/cdo/configuration/smtpser ") "*" )
в первом inputbox задается имя компа (если "." - localhost, можно имя просто или IP-адрес)
во втором inputbox задается путь куда сохранить текстарь с результатами

З.Ы. если кто подскажет как выбирать IP-адрес и дефолтовый Gateway буду премного благодарен, так как в этом скрипте система сильно матерится если раскоментить эти строки

Очень полезный скрипт! Спасибо пригодится!
Но я обошелся своими силами вот таким методом:

strComputer = "computer_name"
strUserName = "administrator"
strPassword = "password"
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(strComputer, "root\cimv2", strComputer & _
strUserName, strPassword)

Помогите разобраться. Есть задача переименовать группу компьютеров в домене. Есть файлик в экселе с новыми и старыми именами компьютеров. написал скрипт, который дёргает из файлика эти имена:

var ExcelPath,objExcel,objWorkbook,PathDir,WshShell,intRow;

WshShell=WScript.CreateObject("WScript.Shell");

PathDir=WshShell.CurrentDirectory+"\\";
ExcelPath=PathDir+"network.xls";

objExcel=WScript.CreateObject("Excel.Application");
objWorkbook = objExcel.Workbooks.Open (ExcelPath);

intRow = 1;

do

{
WScript.Echo("["+objExcel.Cells(intRow,2).Value+"]"+" from ["+objExcel.Cells(intRow,3).Value+"]");
intRow=intRow+1;
}
while (objExcel.Cells(intRow,2).Value != undefined);

objExcel.Quit();



Теперь собственно надо прицепить к скрипту переименовывание. Нашёл в книге O'Reily готовый скрипт на VBS:

    ' This code renames a computer in AD and on the host itself.
    ' ------ SCRIPT CONFIGURATION -------
    strComputer = "<ComputerName>" ' e.g. joe-xp
    strNewComputer = "<NewComputerName>" ' e.g. joe-pc
    strDomainUser = "<DomainUserUPN>" ' e.g. administrator@rallencorp.com
    strDomainPasswd = "<DomainUserPasswd>"
    strLocalUser = "<ComputerAdminUser>" 'e.g. joe-xp\administrator
    strLocalPasswd = "ComputerAdminPasswd>"
    ' ------ END CONFIGURATION ---------

    '###########################
    ' Connect to Computer
    '###########################
    set objWMILocator = CreateObject("WbemScripting.SWbemLocator")
    objWMILocator.Security_.AuthenticationLevel = 6
    set objWMIComputer = objWMILocator.ConnectServer(strComputer, _
     "root\cimv2", _
     strLocalUser, _
     strLocalPasswd)
    set objWMIComputerSystem = objWMIComputer.Get( _
     "Win32_ComputerSystem.Name='" & _
     strComputer & "'")
    '###########################
    ' Rename Computer
    '###########################
    rc = objWMIComputerSystem.Rename(strNewComputer, _
     strDomainPasswd, _
     strDomainUser)
    if rc <> 0 then
     WScript.Echo "Rename failed with error: " & rc
    else
     WScript.Echo "Successfully renamed " & strComputer & " to " & _
     strNewComputer
    end if

    WScript.Echo "Rebooting … "
    set objWSHShell = WScript.CreateObject("WScript.Shell")
    objWSHShell.Run "rundll32 shell32.dll,SHExitWindowsEx 2"

Не могу разобраться, как он работает. Мне нужно список не переименовавшихся компов скинуть в другой экселевский файл.
Скрипт по идее должен работаь в 2 этапа: переименовывать учётку компа в домене и менять свойство name у Win32_ComputerSystem.Name. Домен-то доступен всегда, а вот компьютеры бывают выключены. То есть сначала надо переименовать комп, и если всё пройдёт удачно, то переименовывать его учётку в домене, иначе - отписать имя компа в файл. Как это сделать?

Bugriy

Цитата:

Домен-то доступен всегда, а вот компьютеры бывают выключены. То есть сначала надо переименовать комп, и если всё пройдёт удачно, то переименовывать его учётку в домене, иначе - отписать имя компа в файл. Как это сделать?

как вариант: при обращении к выключенному компьютеру произойдет ошибка, которую ты сможешь отловить с помощью объекта Err. ТО ЕСТЬ если Err.Number = 0, то переименовываешь, иначе сохраняешь имя компа в файл
...

...

Кстати, сдается мне что код:

Код:
set objWSHShell = WScript.CreateObject("WScript.Shell")
objWSHShell.Run "rundll32 shell32.dll,SHExitWindowsEx 2"

А где там в скрипте идёт обращение к домену, а где к компу? Я так понимаю, что

rc = objWMIComputerSystem.Rename(strNewComputer, _
strDomainPasswd, _
strDomainUser)

- обращение непосредственно к переименовываемому хосту. А где обращение к домену?

И что делает эта строка?
set objWMIComputerSystem = objWMIComputer.Get( _
"Win32_ComputerSystem.Name='" & _
strComputer & "'")
Разве имя компа не совпадает с тем что указано в strComputer = "<ComputerName>" ?

Bugriy
обсуждалось както, и пиршли к выводу что работает только у меня, но всеже:

берем пример из скрипт центра:

Цитата:

'Rename a Computer and Computer Account

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers
err = objComputer.Rename("WebServer")
Next

доработываем напильником и вставляем в логон скрипт
в зарание созданной политике для компьютеров, в зарание созданном UO с интересующими нас компьютерами.
на уровне этого OU делигируем полные или просто на запись права данным компьютерам (например domain computers, если домен небольшой и не страшно=)

далее остается gpupdate/ force и пару раз перезагрузиться.

urel
Чё-то извращение какое-то выносить компы в отдельное OU и логон скриптом их переименовывать. Ещё и права делегировать. Мне 60 компьютеров надо переименовать и это только первый этап.

Bugriy, это не изврат. А поможет тебе более централизованно управлять компьютерами в сети.

Нужна помощь.
Задача стоит в перемещении (копировании) файла с одного компьютера на другой по локалке, но без использования bat файлов.

Есть код при копировании локально (из папки в папку) все ok, но по сети не копируется.

On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
Set colFolders = objService.ExecQuery("SELECT * FROM Win32_Directory WHERE Name = 'c:\\test\\info.txt'")
For Each objFolder In colFolders
    objFolder.Copy "\\192.168.10.12\c$"
Next

Как победить эту штуку?

Пробовал и через

Set fso = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "info.txt", "\\192.168.10.12\c$"

возникает ошибка Permission denied

Bugriy
как ты уже заметил - компьютеры у тебя не все время включены, так
tedhome
для доступа на административные шары нужно иметь права администратора на удаленной системе. те логин пароль пользователя выполняющего скрипт = логин пароль пользователя, члена группы локальных администраторов на удаленной системе, причем для XP/2003 по умолчанию такой пароль не должен быть пустым.

tedhome

Цитата:

FSO.CopyFile "info.txt", "\\192.168.10.12\c$"

попробуй FSO.CopyFile "info.txt", "\\192.168.10.12\c$ adminpassword /user:admin"

права на административные шары есть только доменого администратора. Нужен именно локальный? Хорошо локальные администратора сделаем. А что нужно в скрипт добавить чтобы он заработал? Или его необходимо под правами локального администратора запускать?

Добавлено:
попробовал в качестве логина использовать домменного администратора
FSO.CopyFile "info.txt", "\\192.168.10.12\c$ adminpassword /user:tedhome@domain.com"
В результате Path not found.

Пишу скрипт для переименования компьютера на js.

Затык на строке, которая непосредственно переименование осуществляет.

rc = objWMIComputerSystem.Rename(strNewComputer,strDomainPasswd,strDomainUser);

Ошибка: Недопустимые параметры метода.

На MSDN про метод rename пишут вот что:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/rename_method_in_class_win32_computersystem.asp

В чём ошибка?


// This code renames a computer in AD and on the host itself.
// ------ SCRIPT CONFIGURATION ------
strComputer = "old_name";
strNewComputer = "new_name";
strDomainUser = "admin@domain.ru";
strDomainPasswd = "pwd";

objWMIComputerSystem=GetObject("winmgmts://"+strComputer+"/root/cimv2:Win32_ComputerSystem");


rc = objWMIComputerSystem.Rename(strNewComputer,strDomainPasswd,strDomainUser);
if (rc != 0)
{WScript.Echo ("Rename failed with error: " + rc)};
else
{WScript.Echo ("Successfully renamed " + strComputer + " to " + strNewComputer)};

tedhome
ещебы
domain admins при введении компьютера в домен заводяться вгрупу локальных админов
все пермишины по умолчанию настроены именно на локальные группы.
только не
FSO.CopyFile "info.txt", "\\192.168.10.12\c$"
а
FSO.CopyFile "info.txt", "\\192.168.10.12\c$\"


Добавлено:
Bugriy
Нужно прменять к таким обьектам, как я понимаю,
objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
в примере МСДНа
bjWMIService.InstancesOf("Win32_ComputerSystem")
наверно такойже запрос

ok спасибо. Огромное! сабака была зарыта в отсутствии \. Спасибо!

urel
Не понимаю, зачем.
Там же просто цикл, который для всех объектов Win32_ComputerSystem производит метод rename. У меня этот объект один, я для него rename и вызываю. По сути дела - одно и то же. Или нет?