Вернуться   Форум Первоуральска > Сотовая связь / Интернет/ Компьютеры > Php, SQL, html, cgi...
Регистрация Ф.А.К. Пользователи Календарь Онлайн игры Поиск Сообщения за день Все разделы прочитаны

Php, SQL, html, cgi... С вас вопросы, с нас ответы.

Ответ
 
Опции темы Оценить тему Опции просмотра
Старый 26.05.2014, 16:41   #1
slime
Сам с усам
 
Аватар для slime
 

Регистрация: 10.03.2009
Возраст: 33
Сообщения: 737
Моё настроение:
Репутация: 62642
Отправить сообщение для  slime с помощью ICQ Отправить сообщение для slime с помощью Skype™
Ниид хелп по vbs

Други! Есть скриптик который грохает шел в винде и стартует вместо него рдп с конфигом, выглядит так:
Цитата:
Option Explicit
dim strComputer
dim wmiNS
dim wmiQuery
dim objWMIService
dim colItems
dim objItem
Dim strOUT

strComputer = "."
wmiNS = "\root\cimv2"
wmiQuery = "Select processID from win32_process where name = 'explorer.exe'"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in colItems
objItem.terminate(1)
Next
Dim lngProcessID

With WScript.CreateObject("WbemScripting.SWbemLocator") .ConnectServer(".", "root\cimv2")
Do
If .Get("Win32_Process").Create( _
"""C:\Windows\System32\mstsc.exe"" C:\start.rdp""", _
Null, Null, lngProcessID) = 0 Then

.ExecNotificationQuery( _
"SELECT * FROM __InstanceDeletionEvent WITHIN 1 WHERE " & _
"TargetInstance ISA 'Win32_Process' AND " & _
"TargetInstance.ProcessID = '" & CStr(lngProcessID) & "'").NextEvent
Else
' Не удалось запустить процесс
Exit Do
End If
Loop
End With
WScript.Quit

Ещё он при закрытии рдп стартует его снова.
Я сам не силен в vbs, потому прошу помощи у сведущих: как сделать, чтоб вместо рестарта rdp в случае закрытия оного он глушил машинку?
__________________
Бессмысленно рассказывать о моральном облике коллектива человеку, имеющему доступ к прокси-логу...

Последний раз редактировалось slime, 26.05.2014 в 20:59.
slime вне форума   Ответить с цитированием
Старый 27.05.2014, 14:06   #2
slime
Сам с усам
 
Аватар для slime
 

Регистрация: 10.03.2009
Возраст: 33
Сообщения: 737
Моё настроение:
Репутация: 62642
Отправить сообщение для  slime с помощью ICQ Отправить сообщение для slime с помощью Skype™
Re: Ниид хелп по vbs

Нашел решение.
__________________
Бессмысленно рассказывать о моральном облике коллектива человеку, имеющему доступ к прокси-логу...
slime вне форума   Ответить с цитированием
Старый 27.05.2014, 17:52   #3
Alan
пер-стар
 
Аватар для Alan
 

Регистрация: 02.06.2005
Адрес: ~9 км от столба Европа-Азия
Возраст: 46
Сообщения: 6,978
Моё настроение:
Репутация: 637438
Re: Ниид хелп по vbs

мы рады....

а то пугаешь тут крестьян жутью какой-то.
Alan вне форума   Ответить с цитированием
Старый 27.05.2014, 19:11   #4
ELEKTROHEAD
пукнул в Свежий ветер...
 
Аватар для ELEKTROHEAD
 

Регистрация: 01.03.2005
Сообщения: 18,838
Моё настроение:
Репутация: 1297097
Отправить сообщение для  ELEKTROHEAD с помощью ICQ Отправить сообщение для ELEKTROHEAD с помощью Skype™
Re: Ниид хелп по vbs

Цитата:
Сообщение от Alan
мы рады....

а то пугаешь тут крестьян жутью какой-то.

А я думал, что он так матерится.....чуть не охерел.....уже решил, что лучше меня......
__________________


ELEKTROHEAD вне форума   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей - 0 , гостей - 1)
 
Опции темы
Опции просмотра Оценка этой теме
Оценка этой теме:

Ваши права в разделе
Вы не можете создавать темы
Вы можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +6, время: 03:09.


@ 2002-2018