Option Explicit

Dim objMenuItem
Dim strTempFileName


With WScript.CreateObject("WScript.Shell").Environment("Process")
    .Item("DEVMGR_SHOW_NONPRESENT_DEVICES") = "1"
    .Item("DEVMGR_SHOW_DETAILS") = "1"
End With

With WScript.CreateObject("MMC20.Application")
    .Load "devmgmt.msc"
    
    With .Document
        With .ActiveView
            .Frame.Maximize
            
            For Each objMenuItem In .ScopeNodeContextMenu
                If objMenuItem.Path = "Вид->Показать скрытые устройства" Then
                    If objMenuItem.Enabled = 1 Then
                        objMenuItem.Execute
                        
                        Exit For
                    End If
                End If
            Next
        End With
        
        If .IsSaved = 0 Then
            strTempFileName = GetTemporaryFileName()
            .SaveAs strTempFileName
            
            WScript.CreateObject("Scripting.FileSystemObject").DeleteFile strTempFileName, True
        End If
    End With
    
    .UserControl = 1
End With

WScript.Quit 0
'=============================================================================

'=============================================================================
Function GetTemporaryFileName()
    Const TEMP_FOLDER = 2
    
    Dim strTempFile
    
    
    With WScript.CreateObject("Scripting.FileSystemObject")
        Do
            strTempFile = .BuildPath(.GetSpecialFolder(TEMP_FOLDER), .GetTempName)
        Loop While .FileExists(strTempFile)
    End With
    
    GetTemporaryFileName = strTempFile
End Function
'=============================================================================

set DEVMGR_SHOW_NONPRESENT_DEVICES=1
start devmgmt.msc

set DEVMGR_SHOW_DETAILS=1
start devmgmt.msc

@echo off
setlocal

set DEVMGR_SHOW_NONPRESENT_DEVICES=1
set DEVMGR_SHOW_DETAILS=1

start "" "%SystemRoot%\SYSTEM32\mmc.exe" "%SystemRoot%\SYSTEM32\devmgmt.msc"

endlocal
exit /b 0

Option Explicit

Const SW_HIDE = 0


Dim elem
Dim strNewEnvironment

Dim objSWbemObjectEx
Dim lngProcessID

Dim objMenuItem

Dim strTempFileName


If Not WScript.Arguments.Named.Exists("ShowDevMgmt") Then
    With GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
        strNewEnvironment = _
            "DEVMGR_SHOW_NONPRESENT_DEVICES=1" & vbCrLf & _
            "DEVMGR_SHOW_DETAILS=1"
        
        For Each elem In WScript.CreateObject("WScript.Shell").Environment("Process")
            If Left(elem, 1) <> "=" Then
                strNewEnvironment = strNewEnvironment & vbCrLf & elem
            End If
        Next
        
        
        Set objSWbemObjectEx = .Get("Win32_ProcessStartup").SpawnInstance_
        
        objSWbemObjectEx.ShowWindow           = SW_HIDE
        objSWbemObjectEx.EnvironmentVariables = Split(strNewEnvironment, vbCrLf)
        
        If .Get("Win32_Process").Create( _
            "wscript.exe """ & WScript.ScriptFullName & """ /ShowDevMgmt", Null, objSWbemObjectEx, lngProcessID _
            ) <> 0 Then
            
            WScript.Echo "Process [wscript.exe """ & WScript.ScriptFullName & """] could not be created."
        End If
        
        Set objSWbemObjectEx = Nothing
    End With
Else
    With WScript.CreateObject("MMC20.Application")
        .Load "devmgmt.msc"
        
        With .Document
            With .ActiveView
                .Frame.Maximize
                
                For Each objMenuItem In .ScopeNodeContextMenu
                    If objMenuItem.Path = "Вид->Показать скрытые устройства" Then
                        If objMenuItem.Enabled = 1 Then
                            objMenuItem.Execute
                            
                            Exit For
                        End If
                    End If
                Next
            End With
            
            If .IsSaved = 0 Then
                strTempFileName = GetTemporaryFileName()
                .SaveAs strTempFileName
                
                WScript.CreateObject("Scripting.FileSystemObject").DeleteFile strTempFileName, True
            End If
        End With
        
        .UserControl = 1
    End With
End If

WScript.Quit 0
'=============================================================================

'=============================================================================
Function GetTemporaryFileName()
    Const TEMP_FOLDER = 2
    
    Dim strTempFile
    
    
    With WScript.CreateObject("Scripting.FileSystemObject")
        Do
            strTempFile = .BuildPath(.GetSpecialFolder(TEMP_FOLDER), .GetTempName)
        Loop While .FileExists(strTempFile)
    End With
    
    GetTemporaryFileName = strTempFile
End Function
'=============================================================================

@set @x=0 /*
@echo off
setlocal enableextensions enabledelayedexpansion

set DEVMGR_SHOW_NONPRESENT_DEVICES=1
set DEVMGR_SHOW_DETAILS=1

cscript.exe /nologo /e:javascript %0

set DEVMGR_SHOW_DETAILS=
set DEVMGR_SHOW_NONPRESENT_DEVICES=

endlocal
exit /b 0
*/

with (WScript.CreateObject("MMC20.Application")) {
    Load("devmgmt.msc");

    with (Document) {
        with (ActiveView) {
            Frame.Maximize();

            with (new Enumerator(ScopeNodeContextMenu)) {
            for (; !atEnd(); moveNext())
                with (item())
                    if (Path == "Вид->Показать скрытые устройства")
                        if (Enabled == 1) {
                            Execute();
                            break;
                        }
            }
        }

        if (IsSaved == 0) {
            strTempFileName = GetTemporaryFileName();
            SaveAs(strTempFileName);

            WScript.CreateObject("Scripting.FileSystemObject").DeleteFile(strTempFileName, true);
        }
    }

    UserControl = 1;
}

WScript.Quit(0)

function GetTemporaryFileName()
{
    var strTempFile;

    with (WScript.CreateObject("Scripting.FileSystemObject")) {
        do {
            strTempFile = BuildPath(GetSpecialFolder(2), GetTempName());
        } while (FileExists(strTempFile));
    }

    return (strTempFile);
}