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

Тема в разделе "OLE технологии", создана пользователем morpheus, 4 дек 2007.

Наш партнер Genesis Hackspace
  1. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.920
    Симпатии:
    1
    Приведу пару примеров использования Windows Script

    На клиенте получить список IP адресов
    Код (Text):
    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
    Обсуждалось тут


    Запустить программу, дождаться её завершения и только после этого продолжать скрипт
    Код (Text):
        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
     
Загрузка...
Похожие Темы - Wscript примеры использования
  1. PavelT100
    Ответов:
    14
    Просмотров:
    8.788
  2. Генералл
    Ответов:
    10
    Просмотров:
    423
  3. Vunderkind
    Ответов:
    4
    Просмотров:
    3.361

Поделиться этой страницей