Você pode fazer isso usando o WMI. Aqui está um exemplo rápido e sujo tirado daqui: Tarefas do WMI : Discos e sistemas de arquivos
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService. _
ExecNotificationQuery( _
"Select * from Win32_VolumeChangeEvent")
Set objShell = WScript.CreateObject("WScript.Shell")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
If objLatestEvent.DriveName = "F:" Then
objShell.Run("""%windir%\system32\notepad.exe""")
End If
Loop