'**** run_COMPMGMT.vbs **************************
' (COMPMGMT.MSC: opens the Computer management tool)
'
' Запуск "COMPMGMT" с набором имени машины
' Параметр - имя подключаемого компьютера
'
'************************************************

Option Explicit 

Dim giDebug
giDebug    = 0 ' 1-вывод отладочных сообщений и т.п. / 0 - обычный режим
' --- чтение своей инишки ----------------------------
' INI читается в случае ее наличия, 
' используется для переопеределения режима отладки (ищется строка: debug=...)
Const sMyINI = "run_COMPMGMT.ini"
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
Dim CurDir
Dim yes_no, s, iPos
CurDir = fso.GetAbsolutePathName(".")
yes_no = fso.FileExists( CurDir & "\" & sMyINI)
If yes_no Then
    Dim fspi
    Set fspi=fso.OpenTextFile(sMyINI, 1)
    Do While not fspi.AtEndOfStream
        s = fspi.ReadLine
        iPos = InStr(1, s, "=")
        If iPos>0 Then
            If LCase(Trim(Left(s, iPos-1)))="debug" Then
                giDebug = CInt( Trim( Right(s, Len(s)-iPos) ) ) ' правая от "=" часть преобразовывается в целое число
            End IF
        End IF
    Loop
    fspi.Close
    Set fspi = Nothing
End IF '(yes_no)
Set fso = Nothing
' -----


Dim A
Set A=Wscript.Arguments

Dim sComp, sParamRD
sComp = ""
sParamRD = ""
If A.Count>=1 Then  ' имеется переданный параметр - имя компа
    sComp = A(0)
    If A.Count=2 Then  ' имеется переданный параметр - доп.параметр для запуска Remote Desktop
        sParamRD = A(1)
    End IF
else
    sComp = InputBox("Введите имя подключаемого компьютера", "Настройка запуска ""Computer Management""")
End IF


If sComp<>"" Then  ' имеется непустое имя компа

    Dim oShell
    Set oShell = WScript.CreateObject("WScript.Shell") 
    
    Dim sNmFileProcess : sNmFileProcess = "mmc.exe"
    Dim iProcessID : iProcessID = 0

    '--- Проверяем наличие процесса'
    Dim objWMIService, colProcesses, oPrc
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcesses = objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE Name = '" & sNmFileProcess & "'")
    If colProcesses.Count = 0 Then '--- Запускаем свой процесс'
        oShell.Run "COMPMGMT.MSC", 1
        FuncAppendOneStrToTXTFile "run_COMPMGMT.log", Now() & " Start: " & "COMPMGMT.MSC"
        'надо опять искать процесс'
        Set colProcesses = objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE Name = '" & sNmFileProcess & "'")
        If colProcesses.Count > 0 Then
            For Each oPrc In colProcesses
                If LCase(oPrc.Name)=LCase(sNmFileProcess) Then
                    FuncAppendOneStrToTXTFile "run_COMPMGMT.log", "name: " & oPrc.Name & " id:" & oPrc.ProcessID
                    iProcessID = oPrc.ProcessID
                    Exit FOR
                End IF
            Next
        End IF
        
    else '--- процесс существует, берем айди для преключения'
        FuncAppendOneStrToTXTFile "run_COMPMGMT.log",  Now() & " (i) Process found."
        For Each oPrc In colProcesses
            If LCase(oPrc.Name)=LCase(sNmFileProcess) Then
                FuncAppendOneStrToTXTFile "run_COMPMGMT.log", "name: " & oPrc.Name & " id:" & oPrc.ProcessID
                iProcessID = oPrc.ProcessID
                Exit FOR
            End IF
        Next
    End IF
    Set objWMIService = Nothing
    Set colProcesses = Nothing

    ' Dim sAppTitle
    ' sAppTitle = "Computer Management"
    
    If iProcessID=0 Then
        FuncAppendOneStrToTXTFile "run_COMPMGMT.log", "(!) Check start process: `" & sNmFileProcess & "` not found."
    else
        Dim ret : ret = false
        ret = oShell.AppActivate (iProcessID)

        Dim iSecAll, iSecWait, i, lTmp
        iSecAll = 10000 'всего отводим на попытку активации окна - 20сек
        iSecWait = 500  'время простоя
        While iSecAll>0 And (Not ret) ' выход из цикла - либо в окно переключились, либо время закончилось
            ret = oShell.AppActivate (iProcessID)
            If giDebug Then lTmp=FuncAppendOneStrToTXTFile( _
                "run_COMPMGMT.log", "Sleep: " & iSecWait & ", iSecAll: " & iSecAll & ",  ret: " & ret )
            If Not ret Then 
                WScript.Sleep iSecWait
                iSecAll = iSecAll - iSecWait
            End IF
        WEnd 
        Set oShell=Nothing 

        If ret Then 'при наличии успешного переключения - "набираем" имя компа

            WScript.Sleep 1000 ' 1 сек. дополнительного ожидания
            If giDebug Then lTmp=FuncAppendOneStrToTXTFile("run_COMPMGMT.log", Now() & " start sendkeys...")

            Dim oSHL
            Set oSHL = WScript.CreateObject("WScript.Shell") 
            oSHL.SendKeys("%")
            WScript.Sleep 200
            oSHL.SendKeys("A")
            oSHL.SendKeys("C")
            WScript.Sleep 500 ' 0.5 сек. дополнительного ожидания
            oSHL.SendKeys( sComp )
            Set oSHL=Nothing
            If giDebug Then lTmp=FuncAppendOneStrToTXTFile("run_COMPMGMT.log", "---- End OK: " & Now() )
            
        else
            If giDebug Then lTmp=FuncAppendOneStrToTXTFile("run_COMPMGMT.log", Now() &" Quit without sendkeys...")
            MsgBox "Неудачная попытка активации " & _
                chr(34)&sNmFileProcess&chr(34) & vbCrLf , _
                vbCritical, "Запуск оснастки управления компьютером"
        End IF
    End IF
    
else
    MsgBox "Goodbye!"

End IF ' (sComp<>"")
If giDebug Then lTmp=FuncAppendOneStrToTXTFile("run_COMPMGMT.log", vbCrLf)


'----------------функция---------------------------------------- 
'добавляет строчку в текстовый файл 
Function FuncAppendOneStrToTXTFile(FileName, StrText) 
   '------------------------Константы для задания типа открытия файла 
   Const ForReading = 1, ForWriting = 2, ForAppending = 8, OverwriteTrue = True, OverwriteFalse = False 
   ' Объявляем переменные 
   Dim  objFSO, FOut 
   ' Создаем объект FileSystemObject 
   Set  objFSO=WScript.CreateObject("Scripting.FileSystemObject") 
   ' Открываем выходной файл для записи 
   Set  FOut = objFSO.OpenTextFile (FileName,ForAppending,true) 
   ' Записываем текстовую строку в файл 
   FOut.WriteLine StrText' & vbcrlf 
   ' Закрываем выходной файл 
   FOut.Close 
   FuncAppendOneStrToTXTFile = true 
End Function 
'***************************************************************

Dim WshExec, ProcessID
Set WshShell = CreateObject("WScript.Shell")
Set WshExec = WshShell.Exec("notepad.exe")
ProcessID = WshExec.ProcessID
Do While WshExec.Status <> 1
    WshShell.AppActivate ProcessID
    WshShell.SendKeys "1"
    WScript.Sleep 1000
Loop

MsgBox "END"

var Shell = new ActiveXObject("WScript.shell")
Shell.AppActivate("Fear Factory - Slave Labor.mp3 - Media Player Classic")
Shell.SendKeys("~")