Dim driveleter
driveleter = Array("J:","K:","L:","M:","N:","O:","P:","Q:","R:","S:","T:")
ii=1
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c read.cmd", 0, false
ii=ii+1
WshShell.Run "cmd.exe /c read.cmd driveleter(ii)", 0, false
WshShell.Run "cmd.exe /c read.cmd " & driveleter(ii), 0, false