Retrieve USB Disk Device ID

Hello!

I found a wonderful article at http://www.myengineeringworld.net/20...n-vba-wmi.html that I modified to get ONLY the device ID of the connected USB disk.

My question is :
1. The code takes a while to execute because it finds all usb connections and I need to make it real quick. How can it be modified further to loop through only disk/storage devices as I do not want any other services like HidUsb, usbhub, mouhid or other info such as name, manufacturer, status etc.
2. It prefixes additional info such as 'USB\VID_1058&PID_1023\'. How can I strip it off to get only the device ID?
3. How to convert it in a function that will return the device ID - This function can be invoked on all onClick events of other buttons to check the usb drive is connected to the computer. Eg. If chkUsb = "0123456789" Then

To conclude: I need to ensure that the USB drive is connected to the system at all times and if it is not, the other buttons in the vba program will not work.

Thanks.

Please Login or Register  to view this content.

Originally Posted by romperstomper

If you know what the DeviceID property should end with (i.e. the last part of the string returned is the bit you want), you can use a function like this:

Thank you for your reply... Not sure if I have understood you correctly. This is what I tried. however, when I run the try sub routine, the function returns FALSE in both conditions

Please Login or Register  to view this content.

Hey... Super ! Thank you !!
I am very keen to research more on how to make a particular vba code run only on a specified computer by validating the motherboard id, processor id etc. (again, not an efficient method as there is scope of cracking the code and removing validation. however, yes.. effective though!)

While I was searching for the property you asked for, I stumbled upon few links which I thought was worthwhile. Following are few links I bookmarked that are worth a watch.
http://blogs.technet.com/b/heyscript...-computer.aspx
http://www.codeproject.com/Articles/...ID-MainBoard-I
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
http://www.vbsedit.com/scripts/misc/wmi/scr_1332.asp
http://www.vbsedit.com/scripts/misc/wmi/scr_1333.asp

I thank you very very much for the kind assistance. God bless !

Originally Posted by JBeaucaire

When you email the author of that code, post back his response in this thread, it will be useful information.

Yes! Indeed it will be useful... I haven't got a reply yet. I will post it once I get it. The issue is resolved though!

Originally Posted by JBeaucaire

When you email the author of that code, post back his response in this thread, it will be useful information.

Here is a reply from the author:

Option Explicit

Please Login or Register  to view this content.

Note that I haven’t test the function thoroughly.
However, a quick test that I did with an external USB hard drive (WD My Passport 0748 USB Device) worked.
So, in my test, I checked for the above device like this (in the immediate window of the VBA editor):
?IsUSBConnected("USBSTOR\DISK&VEN_WD&PROD_MY_PASSPORT_0748&REV_1016\575846314536324548525239&0")

By the way, the function can work even with a partial device ID.
Example:
?IsUSBConnected("PROD_MY_PASSPORT")

I hope it helps!

Best Regards,
Christos

PS: The function by @Rory (romperstomper) is also working....