Vinduet skal skjules

Det kan du ikke med Exec-kommandoen. Men du kan med Run-kommandoen:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/6f28899c-d653-4555-8a59-49640b0e32ea.asp

Prøv at erstatte denne linie:
Set oExecObject = WshShell.Exec(strCommand)

med denne:
Set oExecObject = WshShell.Run(strCommand, 7)

(du kan evt. prøve at erstatte 7 med 0)

Nå, det var ikke helt så let, bare at erstatte Exec med Run *Rødme*. Men kunne følgende måske bruges som et dueligt alternativ?

Dim WshShell, objFSO
Dim strCommand, objFile, strText, strLine, Return

Set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Main
strCommand = "%comspec% /c dir c:\ >c:\dir.txt"
return = WshShell.run(strCommand, 0, true)

Set objFile = objFSO.OpenTextFile("C:\dir.txt", 1)
strText = objFile.ReadAll
objFile.Close
objFSO.DeleteFile("C:\dir.txt")



GetLines()
'WScript.Echo strText

'-----------------------------------------------------------------------------------------
'Subs
Sub GetLines
    arrText = Split(strText, vbCrLf)
    For Each strLine In arrText
        WScript.Echo strLine
    Next
End Sub

Ja det er selvfølgelig en mulighed. Nu er det bare lidt ærgeligt at jeg har brugt så meget tid på at finde en løsning hvor jeg slap for at bruge temporere filer. Lidt nederen :)

Jeg tester lige dit forslag i morgen :) Takker so far.

PS: Måske ville det ikke have taget så lang tid hvis jeg var lidt bedre til VBS.