Public Sub CheckOneComputer()
'   ....
'1. Определить, "жив ли курилка?" (включён ли, качество связи...).
    If TestCompIsOn(.Text, txtComment) = False Then     'с компом невозможно работать!
'           ............
            Exit Sub
    End If
    
'Компьютер включен. Надо поиметь инфу о дисках.
    '
    'Рассмотрим, что надо для того, чтобы нижеприведенная команда заработала:
    'G:\SysInternals.com\MR\psinfo -d>G:\Temp\ServiceDisks.txt \\service
    'G:\SysInternals.com\ - соответствует переменной wbPath (включая backslash)
    'MR - папка со всеми прибамбасами Руссиновича д.б. в директории wbPath.
    'psinfo - нужный в данный момент прибамбас.
    '-d     - ключ, указывающий на извлечение инфо о дисках.
    '>G:\Temp\ServiceDisks.txt - перенаправление вывода psinfo в файл.
    ' \\service - UNC-имя испытуемого компьютера.
    'Затем эту строку надо передать в качестве аргумента командному процессору %comspec%
    'Создадим её:
    Dim cmdstr As String
    cmdstr = wbPath & "MR\psinfo -d>" & CompInfoFileName & " \\" & CompName
    'и выполним команду:
    Dim oWsh As New WshShell
    oWsh.Run "%comspec% /c " & cmdstr,  1 , True
    DoEvents
   'Файл CompInfoFileName должен лежать в этой директории.
   'Он выглядит примерно так: 
'System information For \\Grafics:
'Uptime:                    Error reading uptime
'Kernel version:            Microsoft Windows 2000, Uniprocessor Free
'Product Type:              Professional
'Product version:           5.0
'Service pack:              4
'Kernel build number:       2195
'Registered organization:   #@$%^&*()
'Registered owner:          Reklama
'Install Date:              20.01.2004, 17:27:13
'Activation status:         Not applicable
'IE version:                6.0000
'System root:               C:\WINNT
'Processors:                1
'Processor speed:           2.0 GHz
'Processor Type:            Intel(R) Pentium(R) 4 CPU
'Physical memory:           1022 MB
'Video driver:              R9000
'Volume Type       Format     Label                      Size       Free   Free
'    A: Removable                                                            0%
'    C: Fixed      NTFS       System                   9.8 GB     3.4 GB    35%
'    D: Fixed      NTFS       SWAPFILE                 1.0 GB   507.7 MB    49%
'    E: Fixed      NTFS       Photoshop               13.7 GB    13.6 GB    99%
'    F: Fixed      NTFS       Corel                   13.8 GB     2.6 MB     0%
'    G: Fixed      NTFS       Data                    14.6 GB    52.7 MB     0%
'    H: Fixed      NTFS       Archives                14.6 GB     3.6 GB    24%
'    I: Fixed      NTFS       Distrib                  7.0 GB     2.6 GB    37%
'    J: CD-ROM                                                               0%
'    K: CD-ROM     CDFS       CanonDC080W            332.0 MB                0%

End Sub