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

[AndreYAN]

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

'Присваиваем начальные значения переменным
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

На локалке работает, а на сервере нет может кто подскажет как правильно изменить скрипт?