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

[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