Tôi đang tìm cách để gắn \ tháo gắn ổ flash USB bằng VBScript. Đây là gần nhất tôi đã có thể nhận được.Mount/Unmount Ổ đĩa USB với VBSCript
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
Điều này sẽ hoạt động trên Windows Server 2003, nhưng không phải là NT/2000/XP/Vista.
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
Bạn có thể bật hộp thoại đẩy ra bằng cách sử dụng một cái gì đó như thế này. Tôi không chắc chắn nếu nó có thể tháo gắn một thiết bị cụ thể.
Set WshShell = WScript.CreateObject("WScript.Shell")
intReturn = WshShell.Run("RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll", 1, TRUE)
Hãy xem thread này, cuộc đàm phán của mình về việc sử dụng công cụ dòng lệnh mountvol.exe để mount/unmount một ổ đĩa, và nó cũng làm việc cho các ổ đĩa flash USB, hoặc đó cũng là một chương trình được gọi là deveject. Se chủ đề này để biết thêm thông tin: http://social.msdn.microsoft.com/Forums/en-US/csharpgeneral/thread/d2e5d16e-e7c9-48ef-88b8-3abf6e638384
Tôi cũng sẽ quan tâm đến điều này trong C#, nếu có ai có ví dụ C#. Trong thực tế, chúng có lẽ khá giống nhau. –