Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 261
  • Last Modified:

Vbscript which will read text in a command windows and assign a value to a variable

Hello,

I need a Vbscript which will read text in a command windows and assign a value to a variable within the script.
Let's say a simple example of if I run a command in a CMD windows and if gives me output to a line like:
            Name: Jim Black  
            NODE: 12345
I want the script to seach for the text string "NODE: " then assign a variable to "12345" for use later in the script....     objCmdOutput = "12345"

Thanks
0
geewizzz
Asked:
geewizzz
  • 3
  • 3
1 Solution
 
sirbountyCommented:
This should do for an example...
MyCommand = "C:\Folder\MyFile.exe"
 
Dim objShell : Set objShell = CreateObject("Wscript.Shell")
Dim objExec : Set objExec = objShell.Exec (MyCommand)
 
Do While Not objExec.StdOut.AtEndOfStream
  strData = uCase(objExec.ReadLine)
  If Instr(strData, "NODE:") > 0 Then
    MyNode = Trim(Mid(strData, Instr(strData, ":") + 1))
    Exit Do
  End If
Loop

Open in new window

0
 
geewizzzAuthor Commented:
Concise and accurate solution-- good stuff!
0
 
sirbountyCommented:
Glad I could help - thanx for the grade! :^)
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
geewizzzAuthor Commented:
Actually, I used a peice of this and combined it with a script that first outputs to a text file.

I would like to see this one work still, issue is I get an error:  "object does not suuport method Readline"
You can confirm this yourself by using the 'ipconfig' command, then look for the "Win" string and capture everything from the "d" on...

Any thoughts?
0
 
sirbountyCommented:
Type-o, sorry...but if you look at the loop definition, you'll see how it should read...

Do While Not objExec.StdOut.AtEndOfStream

Here we're reading the standard output.  In the variable assignment, I neglected to include stdout, so that line should read:

  strData = uCase(objExec.StdOut.ReadLine)

Sorry about that...
0
 
geewizzzAuthor Commented:
Thanks again!!

I also have another question open on how to delete a locked file via a vbscript???
If your interested.
0

Featured Post

Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now