Как из программы отключить флэш-диск

[Chuvak]

Господа программисты!
Подскажите кто знает, как можно из программы выключить флэшку (а то все время приходится тыкать по иконке в трее... ну и так далее). Ну еси кто знает - напишите, как можно системе сказать, чтоб не орала когда флэшку вытащили без предварительного безопасного отключения?

[Oxygen]

Может быть тебе поможет WinAPI или поссмотри какая прграмма вызивается для отключения и помудри с параметрами. У меня временно отключен USB порт, посему проверить не смогу.

[Amed]

Копать советую в сторону WMI. Сейчас гляжу в MSDN, присоединяйтесь

[Oxygen]

С большим удовольствием присоединилась бы, но диски с MSDN временно отдала попользоваться другу.

[Chuvak]

Спасибо за активность! Не ожидал... Очень рад.
По поводу WinAPI - копал я там. Вот только результата ноль... По крайней мере пока. Ну и про WMI - такая же история. Я благодарен за любую информацию, но пожалуйста, если сможете, дайте чего-нибудь конкретного...

[Amed]

msdn.microsoft.com/library

[Oxygen]

Это конечно хорошо, но при диалапе на 19 с копейками несколько проблематично.....

[Oxygen]

Драйвер, который отвечает за работу USB устройств носит имя pid.dll лежит в system32. Вот только что с ним делать - остается загадкой. К проекту на vb у меня он никак не захотел подключаться. Может кто-нибудь придумает, что с ним делать, но у меня на это не хватает мозгов.

[Konst_One]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/cim_usbdevice.asp[/url]

[Konst_One]

и еще вот это для начала пути:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_usbcontrollerdevice.asp

[Konst_One]

...determine what kind of device is plugged into a USB port? Use the Win32_USBHub class and check the Description property. This property may have a value such as " Mass Storage Device" or "Printing Support".

Код: Выделить всё

strComputer = "."
Set objWMIService = GetObject(_
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery( _
    "Select * from Win32_USBHub")
For Each objItem in colItems
    Wscript.Echo "Device ID: " & objItem.DeviceID
    Wscript.Echo "PNP Device ID: " _
        & objItem.PNPDeviceID
    Wscript.Echo "Description: " _
        & objItem.Description
    Wscript.Echo
Next



[Konst_One]

а это , чтобы добить:

http://benoit.papillault.free.fr/usbsnoop/

[Konst_One]

а это на закуску:

Код: Выделить всё

'Script for Win32_USBController WMI Class
'Generated using 'WMI Win32 Class Autoscript Generator' - Developed by Karthikeyan
'Homepage: http://www.geocities.com/marskarthik

On Error Resume Next
Computer = "."
Set OutFile = CreateObject("WScript.Shell")
Const ForAppending = 2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set TextFile = FileSystem.OpenTextFile ("c:\temp\Win32_USBController.txt", ForAppending, True)
TextFile.WriteLine "Script for Win32_USBController Class by Karthikeyan"
TextFile.WriteLine
Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_USBController",,48)
For Each SubItems in Items
TextFile.WriteLine "********************************************************************"
    TextFile.WriteLine "Availability: " & SubItems.Availability
    TextFile.WriteLine "Caption: " & SubItems.Caption
    TextFile.WriteLine "ConfigManagerErrorCode: " & SubItems.ConfigManagerErrorCode
    TextFile.WriteLine "ConfigManagerUserConfig: " & SubItems.ConfigManagerUserConfig
    TextFile.WriteLine "CreationClassName: " & SubItems.CreationClassName
    TextFile.WriteLine "Description: " & SubItems.Description
    TextFile.WriteLine "DeviceID: " & SubItems.DeviceID
    TextFile.WriteLine "ErrorCleared: " & SubItems.ErrorCleared
    TextFile.WriteLine "ErrorDescription: " & SubItems.ErrorDescription
    TextFile.WriteLine "InstallDate: " & SubItems.InstallDate
    TextFile.WriteLine "LastErrorCode: " & SubItems.LastErrorCode
    TextFile.WriteLine "Manufacturer: " & SubItems.Manufacturer
    TextFile.WriteLine "MaxNumberControlled: " & SubItems.MaxNumberControlled
    TextFile.WriteLine "Name: " & SubItems.Name
    TextFile.WriteLine "PNPDeviceID: " & SubItems.PNPDeviceID
    TextFile.WriteLine "PowerManagementCapabilities: " & SubItems.PowerManagementCapabilities
    TextFile.WriteLine "PowerManagementSupported: " & SubItems.PowerManagementSupported
    TextFile.WriteLine "ProtocolSupported: " & SubItems.ProtocolSupported
    TextFile.WriteLine "Status: " & SubItems.Status
    TextFile.WriteLine "StatusInfo: " & SubItems.StatusInfo
    TextFile.WriteLine "SystemCreationClassName: " & SubItems.SystemCreationClassName
    TextFile.WriteLine "SystemName: " & SubItems.SystemName
    TextFile.WriteLine "TimeOfLastReset: " & SubItems.TimeOfLastReset
TextFile.WriteLine "********************************************************************"
Next
TextFile.Close
OutFile.Run "notepad.exe c:\temp\Win32_USBController.txt",1,True

[Sebas]

Win32_Volume.Dismount

[Konst_One]

Sebas
точно подмечено, спасибо

[Chuvak]

Всем учавствовавшим в форуме - ОГРОМНОЕ ПРЕОГРОМНОЕ СПАСИБО!! Информации много, - ток что пойду разгребать... Если удасться - напишу код. Если нет, то понятно не напишу... Если кто напишет и не жалко, то выкладывайте свой код. Еще раз спасибо всем!