VBScript – USB Eject CPL

Posted in VBS Scripts - 11 March 2009 - No comment

Version: 11.1a
Revision: 13 Build 6

VBScript – USB Eject CPL

Introduction: this article was a commission by a student from “Glasgow School of Art”.
The student asked me if I can create a small script to execute ‘Windows – USB Eject CPL’, so that he could place it on his desktop for fast access – instead of right clicking on the taskbar…

1.] Download notepad++ from the original author or from another source.
——————————-

http://sourceforge.net/projects/notepad-plus/

http://filehippo.com/download_notepad/

——————————-

2.] Copy this code and insert it into your notepad.

—Copy Source Code—

'****************************************
'Author: Lair360
'Version: 2.1
'Revision: 11 Build 6
'****************************************
Set WshShell = WScript.CreateObject("WScript.Shell")
intReturn = WshShell.Run("RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll", 1, TRUE)

—End Source Code—
Copyright 2001-2009 Lair360

3.] Save your file as a “.vbs” extension.

4.] Done!

Tags: , ,

Comments are closed.