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
Vous devez vous connecter pour publier un commentaire.
Votre script ne fonctionne pas parce que vous avez mal orthographié le nom de la commande - c'est
subst
, passubstr
.OriginalL'auteur Helen