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

for /f "eol= " %i in (user.txt) do echo %i >new.txt

Спасибо большое!
Все работает.

Уважаемые All помогите поправить код


Код:
'Имя и фамилия пользователя домена в параметр реестра
strComputer = "."
Const HKEY_CURRENT_USER = &H80000001

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems1 = objWMIService.ExecQuery("Select * from Win32_NetworkLoginProfile where FullName is not null",,48)
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Axialis\Customer Info"
strValueName = "CustomerName"
For Each objItem in colItems1
strValue = objItem.FullName
Next

oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue

rosalin
измененные строки:

Код:
const HKEY_LOCAL_MACHINE = &H80000002

strKeyPath = "SYSTEM\ControlSet001\Services\lanmanserver\parameters"
strValueName = "srvcomment
For Each objItem in colItems1
strValue = objItem.FullName
Next

Народ как запустить в сетевом окружением , VPN соединение? с помощью JScript.

Kenav
из командной строки: rasdial /?

FreemanRU
Сенку разобрался

все разобрался) но есть проблема далье не пашет какой параметр у rasphone ? с -d не получается , как зделать чтоб не че не нажимать?

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

var connection = WshShell.RegRead("HKCU\\Software\\Microsoft\\RAS AutoDial\\Default\\DefaultInternet");


WshShell.Run("rasphone -d" + connection, 0, true);

Kenav
Я ж говорю - юзай rasdial вместо rasphone.

FreemanRU

СКАЖИ ПОЖАЛУСТО КАК ДОЛЖЕН ВЫГЛЯДЕТЬ СКРИП я не знаю как для впн соед, задать параметры

Kenav

Цитирую тебя же

Цитата:

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

var connection = WshShell.RegRead("HKCU\\Software\\Microsoft\\RAS AutoDial\\Default\\DefaultInternet");


WshShell.Run("rasdial " + connection+" vpnlogin vpnpasssword", 0, true);

Господа, не подскажите, есть ли в сети примеры скриптом инсталлирующие и деинсталлирующие программы?

Уважаемые! Поделитесь секретом, как вы боретесь с локализованными версиями виндовс? Дело в том, что булевое значение "True" приходится менять на "Истина", чтобы скрипт заработал. Пробовал менять на 1, 0 (True, False соответственно) - не работает Ведь так переписывать - совсем неправильное направление движения вперед.

Vernik77

Код:
'Установка программы на удалённый компьютер

'При помощи этого скрипта можно установить программу
'(в данном примере устанавливается test.msi, которая хранится
'в папке \\domaincontr\soft\) на удалённый компьютер. Установка
'программы будет выполнена из-под учётной записи указанного
'в скрипте пользователя (administrator).


Const wbemImpersonationLevelDelegate = 4

Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objConnection = objwbemLocator.ConnectServer _
("WebServer", "root\cimv2", "organiz\administrator", _
"password", , "kerberos:WebServer")
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate

Set objSoftware = objConnection.Get("Win32_Product")
errReturn = objSoftware.Install("\\domaincontr\soft\test.msi",,True)

Схема автоматического переключения канала Интернет
есть проги или алгоритмы?
на чем лучше писать?

ZDik

Цитата:

Схема автоматического переключения канала Интернет

С одного шлюза на другой?
Создаешь 2 батника:
route delete
route add
и запускаешь нужный тебе.

Я не должен участвовать в этом процессе, автоматом
Разработал маленький алгоритм пинг каждые 3 мин, потом route
Теперь надо на чем-н написать, vbs+bat потянет?

rosalin
Спасибо, но больше интересует деинсталляция на удаленной машине.

ZDik

Цитата:

Теперь надо на чем-н написать, vbs+bat потянет?

Потянет, но хватит и vbs только.

Vernik77

Код:
'Удаление программы

'Этим скриптом можно удалить любую установленную через Windows Installer программу. В этом примере её имя LeftSoft Program.

'strComputer = "."-для локального компьютера для остальных меняем на имя компа
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product Where Name = 'LeftSoft Program'")

For Each objSoftware in colSoftware
objSoftware.Uninstall()
Next

rosalin

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

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

a

Необходимо написать сценарий который будет задан в ГП, как сценарий который выполняется на локальных компьютерах при завершении работы. Точнее необходимо на каждом компе сети обнавлять AVP т.е. выполнить команду:
"C:\Program Files\Common Files\Kaspersky Lab\avpupd.exe" /q
как это сделать. Вообще как в *.cmd или *.vbs запустить программу на удаленном компе.

YFred
а в батник разве запихать эту команду нельзя ???
и дергать ее когда нужно ?

Добавлено:
YFred
извини вот более расширенный ответ

Цитата:

Вообще как в *.cmd или *.vbs запустить программу на удаленном компе.

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

Есть вот такой скрипт [more=Подробнее]
'для получения имени машины раскоментировать строку

strComputer = "."

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




' указание папки для создания файла отчета
' set folder for generate report
strPath = "u:\Report\"



'определение типа и параметров процессора
'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
'WScript.echo strInfo

WScript.Quit
[/more]

Так вот хоте еще добавить
Свединие о материнке

Столкнулся с проблемой: есть скрипт на VBS (весь не привожу):

Код:
objCommand.CommandText = "SELECT physicalDeliveryOfficeName FROM 'LDAP://dc=my_domain,dc=ru' WHERE objectCategory='user'"
...
office = objRecordSet.Fields("physicalDeliveryOfficeName").Value
...

Неужели никто не знает как решить мою проблему с IP адресами?

Ребята, добрый день, пролез почти по всем страницам этого раздела, но не нашел подобных скриптов поика и удаления файлов по маске
Что нужно:
Скрипт, bat или cmd - не важно который при запуске будет сканировать все папки на наличие указанных файлов по маске и удалять их,
Далее после проверки этого:
Маппит диск для подключения перемещаемого профиля (\\Server1\Private\%username%)
и тоже самое делает на нем

Я сам решил свою проблему.
Кому интересно выкладываю листинг

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
If errEnable = 0 Then
Wscript.Echo "DHCP has been enabled."
Else
Wscript.Echo "DHCP could not be enabled."
End If
Next