VBS – Save to text file entire command line

Home Forums Scripting General Scripting VBS – Save to text file entire command line

Viewing 1 post (of 1 total)
  • Author

  • lechung21


    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}”

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

    End function


    Thank you in Advance. :)

Viewing 1 post (of 1 total)

You must be logged in to reply to this topic.

The World’s Most Comprehensive Teams to Teams Migration Checklist

Whether you have just started thinking about migration or have already begun to move, our Microsoft Teams Migration Checklist can help guide you through the different phases for a Teams migration to another tenant.

This detailed six-step guide will walk you through key decision points while also providing more prescriptive best practice recommendations where appropriate.

Discover key insights for the following phases of a Teams migration: 

  • Discovery
  • Pilot
  • Planning
  • Communication
  • Execution
  • Validation

Sponsored by: