Open files using VisualBasicScript (.vbs)

Question

Hello,

i want to open a file with VisualBasicScript (.vbs)

How could i do this?

The file is 'file.bat' and it's located in the same dir as the .vbs.

It should RUN it!

Answer 1

See many examples on technet Script Center Script Repository.

A simple example is Select and Ping Computers Using a Text File:

On Error Resume Next

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\scripts\servers.txt", ForReading)

strComputers = objTextFile.ReadAll
objTextFile.Close

arrComputers = Split(strComputers, vbCrLf)
Set objShell = CreateObject("WScript.Shell")

For Each strComputer In arrComputers

    strCommand = "%comspec% /c ping -n 3 -w 1000 " & strComputer
    Set objExecObject = objShell.Exec(strCommand)
    strText = objExecObject.StdOut.ReadAll
    If Instr(strText, "Reply") > 0 Then

    ' =====================================================================
    ' Insert your code here
    ' =====================================================================

        Set objWMIService = GetObject _
            ("winmgmts:\\" & strComputer & "\root\cimv2")
        Set colItems = objWMIService.ExecQuery _
            ("Select * From Win32_OperatingSystem")
        For Each objItem In ColItems
            Wscript.Echo strComputer & ": " & objItem.Caption
        Next


    Else
        Wscript.Echo strComputer & " could not be reached."
    End If

Next

Answer 2

Use the FileSystemObject

Usage to open file:

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(".\File.bat", ForReading)

Answer 3

function getFileInfo(filePath)
    dim fso, fileObj, outMsg
    set fso = createobject("Scripting.FileSystemObject")
    set fileObj = fso.getfile(filePath)
    outMsg = ""
    outMsg = outMsg & " Created: " & fileObj.DateCreated & vbcrlf
    outMsg = outMsg & " Last Accessed: " & fileObj.DateLastAccessed & vbcrlf
    outMsg = outMsg & " Last Modified: " & fileObj.DateLastModified & vbcrlf
    outMsg = outMsg & " File Type: " & fileObj.Type & vbcrlf
    if fileObj.attributes and 0 then
     outMsg = outMsg & " File Attributes: Normal File"
    else
     outMsg = outMsg & " File Attributes: "
     if fileObj.attributes and 1 then
      outMsg = outMsg & "Read Only "
     end if
     if filObj.attributes and 2 then
      outMsg= outMsg & "Hidden "
     end if
     if filObj.attributes and 4 then
      outMsg= outMsg & "System "
     end if
     if filObj.attributes and 8 then
      outMsg= outMsg & "Volume "
     end if
     if filObj.attributes and 16 then
      outMsg= outMsg & "Directory "
     end if
     if filObj.attributes and 32 then
      outMsg= outMsg & "Archive "
     end if
     if filObj.attributes and 1024 then
      outMsg= outMsg & "Link "
     end if
     if filObj.attributes and 2048 then
      outMsg= outMsg & "Compressed "
     end if
    end if
    set fieObj = nothing
    set fs = nothing
    getFileInfo = outMsg
end function

Answer 4

yes i want to run it.

Then try this:

CreateObject("WScript.Shell").Run "file.bat"