skole
|
 Posted: Sat Apr 21, 2007 13:38 Post subject: |
 |
|
для себя написал скрипт
| Code: | Dim WSH
Set WSH = CreateObject("WScript.Shell")
Commander_Path = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%")
Exe = (chr(34) & Commander_Path + "\System\Bin\DevEject\deveject.exe" & chr(34))
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
For Each objLogicalDisk In objWMIService.ExecQuery("Select * from Win32_LogicalDisk WHERE DriveType = 2")
For Each objDiskDrive In objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")
If objDiskDrive.InterfaceType = "USB" Then
If MsgBox("Отключить " & objDiskDrive.Caption & " ?", vbYesNo + vbQuestion, "Безопасное извлечение устройств") = vbYes Then
WSH.Run Exe & " -EjectDrive:" & objLogicalDisk.DeviceID
End If
End If
Next
Next |
сканирует компьютер на наличие флешек (именно как дисковых накопителей), потом предлагает извлечь их, выводя соответствующий запрос с именем устройства. Работает через программу DevEject... в принципе с остальными тоже должен, только ключи понять надо |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
