Estoy usando VBScript, y mi objetivo es poder sustituir una letra de unidad por una ruta de mi elección. Necesito la unidad D, y si no está disponible, debo verificar si ya está asignada al lugar correcto; luego notifique al usuario si no es así. Encontré esto:http: //technet.microsoft.com/en-us/library/ee156605.asp y estoy tratando de adaptar su segundo ejemplo:

Set objShell = WScript.CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("cmd /c ping -n 3 -w 1000 157.59.0.1")
Do While Not objExecObject.StdOut.AtEndOfStream
    strText = objExecObject.StdOut.ReadLine()
    If Instr(strText, "Reply") > 0 Then
        Wscript.Echo "Reply received."
        Exit Do
    End If
Loop

(mis adaptaciones):

Set objShell = WScript.CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("cmd /c substr")
strText = ""

Do While Not objExecObject.StdOut.AtEndOfStream
    strText = strText & objExecObject.StdOut.ReadLine()
Loop

Wscript.Echo strText

Entonces probablemente buscaré la cadena que indica dónde está asignada la unidad D. También probéobjShell.Exec("subst"), pero aún no obtengo ningún resultado. ¿Alguien tiene alguna idea sobre lo que podría estar haciendo mal? ¿O hay una mejor manera de contar sobre las asignaciones de unidades? Gracias

213897