Insert msdos command into a vbscript file

Question

I wonder if it is possible and how to insert an MSDOS command line inside a vbscript.

I have this command line to get the ID of the Anydesk program, available on the Anydesk website

@echo off
for /f "delims=" %%i in ('"C:\Program Files (x86)\AnyDesk\AnyDesk.exe" --get-id') do set CID=%%i 
echo AnyDesk ID is = %CID%
pause

That generates this result at the command prompt:

I wonder if it is possible to run or convert to vbscript, the purpose is to use the function "msgbox" to capture the ID that the command in msdos captures and displays at the prompt, having a result similar to this:

Thanks in advance

Answer 1

Not tested with the output of Anydesk.exe, then it may occur the output does not give in the:

WshShellExec.StdOut.ReadAll

Then I’d have to switch to:

WshShellExec.StdErr.ReadAll

---

---

strCommand = "cmd /c ""C:\Program Files (x86)\AnyDesk\AnyDesk.exe"" --get-id "
Set WshShell = CreateObject("WScript.Shell")
Set WshShellExec = WshShell.Exec(strCommand)
strOutput = WshShellExec.StdOut.ReadAll
strOutput = "AnyDesk ID is = "& strOutput
MsgBox strOutput, 64, "AnyDesk ID"

---

• To do the same thing and put a copy of the ID in your ClipBoard Ctrl+C

---

 CreateObject("WScript.Shell").Run "cmd /c ""C:\Program Files (x86)\AnyDesk\AnyDesk.exe"" --get-id |clip", 0, True
 strOutput = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
 MsgBox strOutput, 64, "AnyDesk ID"