Bozteck VNCScan Community

I'm not sure if there is a really practical purpose behind this one.  Personally I think it makes a great practical joke.

  

For Each d In CreateObject("Scripting.FileSystemObject").Drives
    If d.DriveType = 4 Then
        CreateObject("Shell.Application").Namespace(17).ParseName(d.DriveLetter & ":\").InvokeVerb("E&ject")
    End If
Next

Just use Remote Script Manager, paste the above code into a remote script, add a user id and password and set it to run as VBS.

Ha!  Yea, we used to do that to each other in a Windows certification class that I took a few years ago.  Every student was an "Administrator" on every computer in the classroom.  Good times.

---

Best Regards,

Samuel E. Crane
Senior Support Specialist
support@vncscan.com