Estou usando VBScript, e meu objetivo é poder substituir uma letra de unidade por um caminho de minha escolha. Preciso da unidade D e, se não estiver disponível, preciso verificar se ela já está mapeada para o local certo; notifique o usuário se não estiver. Eu achei isto:http: //technet.microsoft.com/en-us/library/ee156605.asp e estou tentando adaptar o segundo exemplo:

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

(minhas adaptações):

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

Então eu provavelmente procurarei a string que indica onde a unidade D está mapeada. Eu também tenteiobjShell.Exec("subst"), mas ainda não recebi nenhuma saída. Alguém tem alguma idéia do que eu poderia estar fazendo de errado? Ou existe uma maneira melhor de informar sobre o mapeamento de unidades? Obrigado

213897