How to find the device name based on the drive letter by VBScript

This article mainly introduces how VBScript finds the device name according to the drive letter. The article is very detailed and has certain reference value. Interested friends must read it!

The copy code is as follows:

On Error Resume Next

strComputer = ". "

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"associators of {win32_logicaldisk.deviceid='G:'} WHERE ResultClass=Win32_DiskPartition")

For Each objItem in colItems

TargetIndex = objItem.DiskIndex

Set Items = objWMIService.ExecQuery( _

"SELECT * FROM Win32_DiskDrive Where DeviceID Like '%" & objItem.DiskIndex & "'",,48)

For Each Item in Items

Wscript.Echo "Model: " & Item.Model

Next

Next

The above is "VBScript how to find the device name according to the drive letter" all the content of this article, thank you for reading! Hope to share the content to help everyone, more relevant knowledge, welcome to pay attention to the industry information channel!