1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

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

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

  1. morpheus

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

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    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
     
Загрузка...

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