because you just can't whistle and eat crackers at the same time
13 October 2009
Ottenere l'ouput di una shell
Dim oSh, oEx, OS
Set oSh = CreateObject("WScript.Shell")
Set oEx = oSh.Exec("%COMSPEC% /C ver")
Do While oEx.Status = 0
WScript.Sleep 100
Loop
While Len(os) < 1
os = Replace(oEx.StdOut.ReadLine, vbCrLf, "")
Wend
WScript.Echo "OS = " & os
