[Storkich]

вот троян

Option Explicit

Const DirrectoryName = "D:\Session_Control\"
Const TimerInterval = 10000
Const cmdLogOff = "shutdown /l"

'Узнаю имя пользователя
Dim objNetwork, username
Set objNetwork = CreateObject("WScript.Network")
UserName = objNetwork.UserName



do
  call Test_Exit()
  WScript.Sleep TimerInterval
loop

Sub Test_Exit()
   Dim fso, f, BanUser
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Set fso = CreateObject("Scripting.FileSystemObject")

   'Читаю Бан лист
   Set f = fso.OpenTextFile(DirrectoryName&"Ban.txt", ForReading, True)
   While not f.AtEndOfStream 
	  BanUser = f.ReadLine()
	  if BanUser = UserName then 
		'MsgBox "Он"   
		call Finish_Session()
	  else 
		'MsgBox "Не он " & BanUser
	 end if
   wend
   f.Close

  ' Set f = fso.OpenTextFile(DirrectoryName&"log.txt", ForAppending, True)
  ' f.WriteLine UserName

  ' f.Close
End Sub

sub Finish_Session()
' Имя: LogOff.vbs
' Язык: VBScript
' Описание: Завершение сеанса пользователя  
'*******************************************************************
'Option Explicit
 
' Объявляем переменные
Dim strComputer	   ' Имя компьютера
Dim strNamespace	  ' Имя пространства имен
Dim strClass		  ' Имя класса 
Dim objClass		  ' Объект SWbemObject (класс WMI)
Dim colInstances	  ' Коллекция экземпляров класса WMI
Dim objInstance	   ' Элемент коллекции
Dim fso, f
Dim sh				'Командная строка
Const ForReading = 1, ForWriting = 2, ForAppending = 8

'********************** Начало *************************************
' Присваиваем начальные значения переменным
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
  ' Выводим на экран предупреждение
  'WScript.Echo "На компьютере " &  objInstance.CSNAME & VbCrLf &_
  '			"сеанс текущего пользователя будет завершен "  
  ' Для каждого экземпляра вызываем метод Win32Shutdown
  Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(DirrectoryName&"log.txt", ForAppending, True)
   f.WriteLine "На компьютере " &  objInstance.CSNAME & VbCrLf &_
			   "сеанс пользователя " & UserName &" завершен "  
   f.Close
  'objInstance.Win32Shutdown(0)   
  set sh = CreateObject("WScript.Shell")
  sh.Run cmdLogOff
Next
end sub