• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Wscript - примеры использования

  • Автор темы morpheus
  • Дата начала
M

morpheus

Приведу пару примеров использования Windows Script

На клиенте получить список IP адресов
Код:
Dim WMIService As Variant
Dim WNetwork As Variant
Dim IPConfigSet As Variant
Dim i As Integer

Set WNetwork = CreateObject("WScript.Network")
Set WMIService = GetObject("winmgmts:\\" + WNetwork.ComputerName + "\root\cimv2")
Set IPConfigSet = WMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

Forall IPConfig In IPConfigSet
If Not Isnull(IPConfig.IPAddress) Then
For i=Lbound(IPConfig.IPAddress) To Ubound(IPConfig.IPAddress)
Msgbox IPConfig.IPAddress(i)
Next
End If
End Forall
Автор link removed
Обсуждалось тут


Запустить программу, дождаться её завершения и только после этого продолжать скрипт
Код:
	Set WShell = CreateObject("WScript.Shell") 
ReturnCode = WShell.Run("%windir%\notepad.exe", 1, True)
Msgbox "123"
Автор link removed
Обсуждалось тут

А Вы собствено найдёте большую подборку скриптов наверное на все случаи жизни

Так же можно заглядывать и

И можно также почитать статейку на Notesnet.ru - Расширяем возможности разработки в среде Lotus Notes при помощи Windows Script Host _http://notesnet.ru/nn/notesnet.nsf/note/4B27B3CFEBB395B1C3256E0000511893
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!