USB Unhide vbScript
' --- KON-BOOT USB INSTALLER ------------------------------- ' (c) kon-boot.com ' USB Unhide modified fb.com/ryansolan0 ' ---------------------------------------------------------- Dim query Dim WMBIObj Dim AllDiskDrives Dim SingleDiskDrive Dim AllLogicalDisks Dim SingleLogicalDisk Dim AllPartitions Dim Partition Dim result Dim textmsg Dim wshShell Dim FileObj Dim Counter Set WshShell = WScript.CreateObject("WScript.Shell") set FileObj = CreateObject("Scripting.FileSystemObject") set wshShell = wscript.createObject("wscript.shell") Set WMBIObj = GetObject("winmgmts:\\.\root\cimv2") Set AllDiskDrives = WMBIObj.ExecQuery("SELECT * FROM Win32_DiskDrive where InterfaceType='USB'") ' For Each SingleDiskDrive In AllDiskDrives counter = counter + 1 query = "ASSOCIATORS OF {Win32_DiskDrive.DeviceID='" + SingleDiskDrive.DeviceID + "'} WHERE AssocClass = Win32_DiskDriveToDiskPar