[VBScript] - Fast eject disk on drives

Discussion in 'Mixed Languages' started by Josh Cell, Sep 25, 2011.

  1. Josh Cell

    Josh Cell MDL Developer

    Jan 8, 2011
    3,519
    7,110
    120
    #1 Josh Cell, Sep 25, 2011
    Last edited by a moderator: Apr 20, 2017
    I needed of the script for eject disks, I've created this vbScript for work on this Fatest

    Code:
    For Each d in CreateObject("Scripting.FileSystemObject").Drives
    CreateObject("Shell.Application").Namespace(17).ParseName("E:\").InvokeVerb("Eject")
    Next
    E:\ string is a your drive letter for eject disk ...

    Save as .vbs file, run and :biggrin:

    Yeah, worked fine here :worthy:
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...