VBScript

vbscript логотип

VBScript (Microsoft Visual Basic Scripting Edition) - это язык Active Scripting, разработанный компанией Microsoft по образцу Visual Basic. Он позволяет системным администраторам Microsoft Windows создавать мощные средства управления компьютером без обработки ошибок, с подпрограммами и другими усовершенствованными конструкциями программирования. С его помощью пользователь может получить полный контроль над многими аспектами своей вычислительной среды.

VBScript использует компонентную объектную модель для доступа к элементам среды, в которой он работает; например, объект FileSystemObject (FSO) используется для создания, чтения, обновления и удаления файлов. VBScript устанавливается по умолчанию во всех настольных версиях Microsoft Windows, начиная с Windows 98; в Windows Server, начиная с Windows NT 4.0 Option Pack и опционально в Windows CE (в зависимости от устройства, на котором он установлен).

Сценарий VBScript должен выполняться в среде хоста, которых в Microsoft Windows поставляется несколько, в том числе: Windows Script Host (WSH), Internet Explorer (IE) и Internet Information Services (IIS). Кроме того, среда хостинга VBScript может быть встроена в другие программы с помощью таких технологий, как Microsoft Script Control (msscript.ocx).

Пример кода

<!-- WARNING - This code requires VBScript 2.0.
It will always fail to detect the Agent control
in VbScript 1.x, because CreateObject doesn't work.
-->

<SCRIPT LANGUAGE=VBSCRIPT>
If HaveAgent() Then
      'Microsoft Agent control was found.
document.write "<H2 align=center>Found</H2>"
Else
      'Microsoft Agent control was not found.
document.write "<H2 align=center>Not Found</H2>"
End If

Function HaveAgent()
' This procedure attempts to create an Agent Control object.
' If it succeeds, it returns True.
'    This means the control is available on the client.
' If it fails, it returns False.
'    This means the control hasn't been installed on the client.

   Dim agent
   HaveAgent = False
   On Error Resume Next
   Set agent = CreateObject("Agent.Control.1")
   HaveAgent = IsObject(agent)

End Function

</SCRIPT>

Источники