VBS – Save to text file entire command line

[lechung21]

#167351

Hello,

I am new to VBS and I was assigned to write a code that will simplify a task. My problem is that I do not know how to save this entire Command line to a text file. Then the result of showconfig -l will be used on the next function. I have been trying several methods but no luck. BTW this getin.CMD will only run unless you directly point the drive where it was located so I used sendkeys to do the job.

Here is my code:

************************************

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set objShell = WScript.CreateObject(“WScript.Shell”)

location = “D:env”
fname =”getIn.cmd”

enter fso.GetFolder(location)
dim fldr, f

Function enter(fldr)
For Each f In fldr.Files
If LCase(f.Name) = fname Then

‘wscript.Echo f.name & ” exists”
‘Wscript.Echo fldr & ” Folder”
objShell.sendkeys “D:”
WScript.Sleep 1000
objShell.sendkeys “{Enter}”

objShell.sendkeys “cd ” & fldr
WScript.Sleep 1000
objShell.sendkeys “{Enter}”

objShell.sendkeys fname
WScript.Sleep 1000
objShell.sendkeys “{Enter}”

objShell.sendkeys “showconfig -l”
WScript.Sleep 1000
objShell.sendkeys “{Enter}”

else
‘Wscript.Echo “Cannot find getInCMD”
End If
Next
For Each sf In fldr.SubFolders
enter sf

Next
End function

************************************

Thank you in Advance. :)

[Author]

Posts