Podłączanie/odłączanie napędów USB za pomocą VBSCript

Question

Szukam sposobu zamontowania \ odmontowania dysku flash USB za pomocą VBScript. To jest najbliższy, jaki udało mi się zdobyć.

Sub EjectDrive(strDrive) 
On Error Resume Next 
CONST SSF_DRIVES = 17 
Set objShell = CreateObject("Shell.Application") 
Set objDrive = objShell.Namespace(SSF_DRIVES).ParseName(strDrive) 
objDrive.InvokeVerb "E&ject" 
End Sub 

Answer 1

To będzie działać na Windows Server 2003, ale nie NT/2000/XP/Vista niestety.

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

Set colItems = objWMIService.ExecQuery _ 
    ("Select * From Win32_Volume Where Name = 'E:\\'") 

For Each objItem in colItems 
    objItem.Dismount(True, True) 
Next 

Od Dismount a Volume.

Answer 2

Możesz wyskoczyć okno dialogowe wysuwania, używając czegoś takiego. Nie jestem pewien, czy możliwe jest odmontowanie określonego urządzenia.

Set WshShell = WScript.CreateObject("WScript.Shell") 
intReturn = WshShell.Run("RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll", 1, TRUE) 

Answer 3

Spójrz na tego thread, jego rozmowy o użyciu narzędzia wiersza polecenia mountvol.exe zamontować/odmontować napęd, a to powinno działać dla dysków flash USB, czy nie jest też program o nazwie deveject. Se ten wątek, aby uzyskać więcej informacji: http://social.msdn.microsoft.com/Forums/en-US/csharpgeneral/thread/d2e5d16e-e7c9-48ef-88b8-3abf6e638384