Guillemets doubles dans l'argument VBScript

Question

À mesure que je lis et expérimente pour moi-même, VBScript supprime toutes les guillemets et arguments. Est-ce que quelqu'un sait un moyen de contourner cela? Comment passer des guillemets doubles dans le script?

Answer 1

Edit: Misunderstood la question si nouvelle réponse ici:

Je ne pense pas que vous pouvez le faire en aucune façon. Toutefois, un travail autour pourrait être d'utiliser la propriété CommandLine de la classe Win32_Process, ce qui devrait vous donner la ligne de commande complète, je pense.

Par exemple, essayez ce script:

Set wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set processes = wmi.ExecQuery("SELECT * FROM Win32_Process") 
For Each proc in processes 
    If InStr(proc.CommandLine, "double quotes") > 0 Then 
     wscript.echo proc.CommandLine 
    End IF 
Next 

Avec les paramètres suivants: "some long commandline enclosed in double quotes here"

Answer 2

Malheureusement, je ne sais pas de méthodes d'évasion pour passer des guillemets doubles parce que son délimiteur argument. Tout ce que je peux suggérer est de modifier votre script, ou ajouter les citations à partir de là.

Answer 3

Je ne sais pas si cela fonctionne, mais alors que le passage de paramètres que je suppose que vous pouvez faire quelque chose comme -

chr(34) + <your argument string> + chr(34) 

Le chr (34) signifie guillemets doubles.

Answer 4

Si ce paramètre nécessite devis, vous pouvez utiliser un paramètre nommé pour l'identifier puis mettre la valeur avec les guillemets doubles

dim arg 
if WScript.Arguments.Named.Exists("a") then 
    arg = WScript.Arguments.Named("a") 
    arg = chr(34) & arg & chr(34) 
end if 

et utilisés ainsi:

cscript test.vbs /a:"a parameter" 

mais ce doesn Pas d'aide si vous voulez simplement garder des citations si elles sont fournies. Les guillemets simples sont acceptés, donc vous pouvez alternativement utiliser des guillemets simples (ou un autre caractère/une chaîne) et faire un Replace(arg, "'", chr(34)) pour convertir en guillemets.

Answer 5

Ce script obtenir la ligne de commande comme il est, avec des guillemets doubles et tout à une variable appelée strLine et l'afficher:

Set objSWbemServices = GetObject("WinMgmts:Root\Cimv2") 
Set colProcess = objSWbemServices.ExecQuery("Select * From Win32_Process") 
For Each objProcess In colProcess 
    If InStr (objProcess.CommandLine, WScript.ScriptName) <> 0 Then 
     strLine = Mid(objProcess.CommandLine, InStr(objProcess.CommandLine , WScript.ScriptName) + Len(WScript.ScriptName) + 1) 
    End If 
Next 
WScript.Echo(strLine) 

donc en cours d'exécution qui avec:

cscript scriptname.vbs "option" ""other option"" third option 

serait résultat en:

"option" ""other option"" third option 

Answer 6

Plutôt que de rechercher une ligne de commande pour inclure WScript.ScriptName, vous pouvez et le PID actuel comme https://stackoverflow.com/a/13212628/1752986