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

morpheus

скриптописец
07.08.2006
3 915
1
#1
Приведу пару примеров использования 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
Автор Medevic
Обсуждалось тут


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

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

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

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