L'obtention de sortie de ligne de commande en VBScript (sans l'écrire dans les fichiers)

Je suis à l'aide de VBScript, et mon objectif est d'être capable de se substituer à une lettre de lecteur pour un chemin d'accès de mon choix. J'ai besoin de le disque D, et si il n'est pas disponible j'ai besoin de vérifier si elle est déjà associée à la bonne place; puis informer l'utilisateur si il ne l'est pas. J'ai trouvé ceci: http://technet.microsoft.com/en-us/library/ee156605.aspx et je suis en train d'adapter leur deuxième exemple:

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

(mon adaptations):

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

Alors, je vais probablement rechercher la chaîne de caractères qui indique où le lecteur D est mappé. J'ai aussi essayé de objShell.Exec("subst"), mais je n'ai toujours pas faire de sortie. Quelqu'un a une idée sur ce que je fais de mal? Ou est-il une meilleure façon de dire à propos de mappages de lecteur? Merci,

213897

OriginalL'auteur 213897 | 2011-03-22