Полезные скрипты , WSH (js, vbs) + WMI

Цитата Dmitrii @ 14.12.07, 13:50

Вы пробовали запускать сценарий на том компьютере, на котором работаете сами, или на удалённом? У меня, например, этот сценарий работает только при указании удалённой станции.

да, именно так! Как запустить скрипт под учетной записью доменного администратора на машине с которой запускаю скрипт(речь идет только про локальную машину)?

Господа, как копировать файлы по заданной маске?

Цитата blackangel @ 14.12.07, 14:13

да, именно так! Как запустить скрипт под учетной записью доменного администратора на машине с которой запускаю скрипт(речь идет только про локальную машину)?

Предлагаю использовать "эффект зеркала":
- сценарий на исходной станции запускает (с правам администратора домена) сценарий на контроллере домена;
- сценарий, запущенный на контроллере домена, уже на исходной станции выполняет (с указанными ему привилегиями) нужную задачу.
Пример сценария, запускаемого на исходной станции:

Dim strComputer, strUser, strPassword
Dim objLocator, objConnection, objProcess
Const strDomain = "domain_name\"
strComputer = "domain_controller_name"
strUser = InputBox("Имя")
If Len(strUser) > 0 Then
    strUser = strDomain & strUser
    strPassword = InputBox("Пароль")
    If Len(strPassword) > 0 Then
        Set objLocator = CreateObject("WbemScripting.SWbemLocator")
        Set objConnection = objLocator.ConnectServer(strComputer, "root\cimv2", strUser, strPassword)
        Set objProcess = objConnection.Get("Win32_Process")
        intResCode = objProcess.Create("wscript.exe c:\temp\script2.vbs """ & strUser & """ """ & strPassword & """", Null, Null, intProcID)
        Set objProcess = Nothing
        Set objConnection = Nothing
        Set objLocator = Nothing
    Else
        WScript.Echo "Пароль - обязательный параметр"
    End If
Else
    WScript.Echo "Имя - обязательный параметр"
End If

Пример сценария, запускаемого на контроллере домена для управления исходной станцией:

strComputer = "ws_name"
If WScript.Arguments.Count = 2 Then
    strUser = WScript.Arguments.Item(0)
    strPassword = WScript.Arguments.Item(1)
    Set objLocator = CreateObject("WbemScripting.SWbemLocator")
    Set objService = objLocator.ConnectServer(strComputer, "root\cimv2", strUser, strPassword)
    Set objCollection = objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'calc.exe'")
    For Each objItem In objCollection
        objItem.Terminate
    Next
    Set objService = Nothing
    Set objCollection = Nothing
    Set objLocator = Nothing
End If

Ну, или (вместо WMI-локатора) пользоваться утилитой runas.exe

Сообщение отредактировано: Dmitrii - 28.12.07, 10:02

Поскажите код скрипта чтобы создать новое соединение PPPoE или VPN

Приветствую уважаемый Пипл!!!
Отличная тема!!! Многие скрипты оказались очень полезными.
У меня тут проблемка возникла... Начальство решило что имя домена, которое видно при входе в Виндовс его не устраивает и решило его поменять. Ренейм домена не проходит из-за наличия на PDC Ексченьжа. Переустанавливать всё - это последнее дело.
Вот и возник интересный вопрос. Скриптом можно много чего реализовать... А нельзя ли им на логон скрине подменить название домена, что бы юзверь видел одно имя, а входил в нормальный.
Вот сижу, копаю по этой теме, но пока
Спасибо.

Версия OC? Серверной.

PDC,BDC cервера на Enterprise 2003, рабочии станции на XP Prof.

Сообщение отредактировано: LAW - 08.01.08, 13:31

Цитата LAW @ 08.01.08, 12:39

Вот сижу, копаю по этой теме, но пока

Смотри в сторону темы Domain Alias

Дмитрий Вам ОГРОМНОЕ спасибо за идею зеркала!!!
______________________________________________
Если использовать "эффект зеркала" предложенный выше Dmitrii

- сценарий на исходной станции запускает (с правам администратора домена) сценарий на контроллере домена;
- сценарий, запущенный на контроллере домена, уже на исходной станции выполняет (с указанными ему привилегиями) нужную задачу.


и все же...если скрипт размещен на контроллере домена, в директории \\Контроллер_домена\SYSVOL\имя_домена\Policies\{A6C2CBB..-...}\Machine\Scripts\Startup , то к нему может иметь доступ любой пользователь => узнать пароль польователя, с правами которого он запускается:( Как все же "скрыть(зашифровать)" пароль в скрипте? Пусть этот метод и не соответствует жестким правилам безопасности, но хоть как-то это можно сделать...?Кто какие варианты может предложить? Подскажите пожалуйста... Ах, да... этот метод должен работать как на ХР, так и на 2000 осях(копирование файлов CScript.exe или WScript.exe допускается).

Изначальная идея VBскрипта- обновление версии антивируса DrWeb на клиентских машинах:

-Скрипт прописан в групповых политиках (Computer Configuration->Windows Settings->Scripts->Startup)

Краткий алгоритм скрипта:
1- Проверка установленной версии антивируса
2- Удаление старой версии антивируса(Завершение сервисов->Удаление службы->Удаление записей реестра->Удаление файлов)
3- Установка новой версии из собранного MSI пакета
4- Отправка отчета в виде текстового файла о всех удачных и не удачных действиях.

Конечно, проще всего, чтоб не заморачиваться по поводу безопасности можно было бы разместить этот скрипт на сервере и автоматичекси запускать его каждые 30 минут(шейдлером или своим скриптом) для кажой включенной машины в сети,а те машины, на которых он уже запускался- исключать из списка. Но тут опять для вас вопрос Высоко Уважаемые Господа системщики и программисты! Как получить список всех машин в сети и как проверить какие доступны на данный момент?

Всем кто поможет, ОГРОМНОЕ СПАСИБО...да , наверное, не только от меня, но и от всех посетителей форума, т.к. считаю эту идею скрипта актуальной:)
Не подумайте что прошу написать за меня., просто до этого с VB дела не имел:( Готовый скрипт обещаю выложить в форум и не без ваших усилий;)

Сообщение отредактировано: blackangel - 09.01.08, 17:18

Цитата blackangel @ 09.01.08, 17:06

... Как получить список всех машин в сети...

Один из вариантов (с использованием ADO) уже опубликован в этой теме, в сообщении #30.
Другой пример (с использованием WinNT):

Dim objAD, objComputer, strCompName
Const strDomane = "здесь - DNS-имя домена"
Set objAD = GetObject("WinNT://" & strDomane & ",domain")
objAD.Filter = Array("computer")
For Each objComputer In objAD
    strCompName = strCompName & objComputer.Name & vbNewLine
Next
Set objAD = Nothing
WScript.Echo strCompName

Цитата blackangel @ 09.01.08, 17:06

... как проверить какие доступны на данный момент?

Более надёжного и универсального средства, чем простое "пингование" я пока не нашёл. Может кто-нибудь другой подскажет.
А вариант реализации в сценарии может быть таким (вариант для консоли):

Dim objShell, objExec, objOutStream
Dim strResPing, intResFind
arrTest = Array("station1", "station2", "station3")
'arrTest = Array("192.168.0.1", "192.168.0.2", "192.168.0.3")
Set objShell = CreateObject("WScript.Shell")
For i = 0 To UBound(arrTest)
    Set objExec = objShell.Exec("ping -n 1 -w 300 " & arrTest(i))
    Set objOutStream = objExec.StdOut
    strResPing = vbNullString
    While Not objOutStream.AtEndOfStream
        strResPing = strResPing & Trim(objOutStream.ReadLine())
    Wend
    If Instr(1, strResPing, "TTL", vbTextCompare) > 1 Then
        WScript.Echo arrTest(i) & " -> отвечает"
    Else
        WScript.Echo arrTest(i) & " -> не отвечает"
    End If
Next
Set objOutStream = Nothing
Set objExec = Nothing
Set objShell = Nothing

Сообщение отредактировано: Dmitrii - 19.02.08, 13:49

Добрый день, подскажите, пожалуйста, код vbscript'a, который коннектился бы к АД под данными пользователя, от которого запускается скрипт и менял бы пароль определенного пользователя на 123456?
При условии, что пользователю, из под которого запускается скрипт, уже заранее делегированы права на изменения паролей в домене, а о пользователе, которому меняют пароль, известен логин.
Заранее большое спасибо за любую информацию, а если будет код для такой задачи - будет просто замечательно!

Сообщение отредактировано: Blend - 21.01.08, 10:03

Цитата Blend @ 21.01.08, 10:03

Добрый день, подскажите, пожалуйста, код vbscript'a, который коннектился бы к АД под данными пользователя, от которого запускается скрипт и менял бы пароль определенного пользователя на 123456?
При условии, что пользователю, из под которого запускается скрипт, уже заранее делегированы права на изменения паролей в домене, а о пользователе, которому меняют пароль, известен логин.

Один из возможных вариантов:

Dim objUser
Dim strUser, strNewPswd
Const strDomain = "здесь - DNS-имя домена"
Const strController = "здесь - DNS-имя контроллера домена"
strUser = "здесь - логин пользователя"
strNewPswd = "123456"
Set objUser = GetObject("WinNT://" & strDomain & "/" & strController & "/" & strUser & ",user")
objUser.SetPassword strNewPswd
On Error Resume Next
If Err.Number <> 0 Then
    WScript.Echo "Ошибка " & Err.Number & vbCr & Err.Description
Else
    WScript.Echo "Готово."
End If
objUser.SetInfo
Set objUser = Nothing

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

Сообщение отредактировано: Maxman - 21.01.08, 23:03

Цитата Maxman @ 21.01.08, 23:01

Подскажите такой VBS скрипт--запускается с флэшки...

Автоматически запускается?

Цитата Лёха @ 21.01.08, 23:04

Скрипт с флешки не запустится. Это будет считатся вирусом.

При каких условиях? Какое ПО будет считать его вирусом?

нет нужен просто скрипт.там(на флэшке) стоит autorun который запускает bat который запускает скрипты для записи.типа
Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "z:\работа\нужн.файл.xlsx" , "f:\save\" , OverwriteExisting

но надо что б комп проверяла и кидала не на f а какая буква у флэшки будет
может в батнике сделать?

кстати флэшка transcend с отпечатками пальцев, так вот она после проверки отпечатка автоматом запускается(в висте на хр самому надо запускать).и нод на вирус не ругается

Сообщение отредактировано: Maxman - 22.01.08, 11:15