set shell=CreateObject("Shell.Application")
Set Laufwerk=ScanFolder(17, "(H:)")
Laufwerk.invokeVerb("A&uswerfen")


Function ScanFolder(vDir, Element)
  set folder = Shell.NameSpace(vDir)
  For i = 0 to Folder.Items.Count-1
    If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
      Set ScanFolder=folder.items.item(i)
      exit for
    End If
  Next
  If Not ISObject(Scanfolder) Then
     Wscript.Quit
  End IF
End Function