1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

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

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

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

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

Как завершить текущий сеанс?!?

Тема в разделе "Visual Basic", создана пользователем AndreYAN, 7 авг 2008.

  1. AndreYAN

    AndreYAN Гость

    Репутация:
    0
    Всем привет!!! нужна помощь smile.gif
    Есть скрипт (его часть) который завершает сеанс текущего пользователя на терминальном сервере:

    Код:
    'Присваиваем начальные значения переменным
    strComputer = "."
    strNamespace = "Root\CIMV2"
    strClass = "Win32_OperatingSystem"
    
    'Получаем указатель на класс WMI
    Set objClass = GetObject("WinMgmts:\\" & strComputer & _
    "\" & strNamespace & ":" & strClass)
    'Создаем коллекцию экземпляров класса Win32_OperatingSystem
    Set colInstances = objClass.Instances_
    'Перебираем элементы коллекции
    For Each objInstance In colInstances
    'Для каждого экземпляра вызываем метод Win32Shutdown
    objInstance.Win32Shutdown(0)
    Next
    На локалке работает, а на сервере нет может кто подскажет как правильно изменить скрипт?
     
Загрузка...

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