you may try this approach
Code:
Set screen = CreateObject("WScript.Shell").Exec("%COMSPEC% /c date /t")
Do While screen.Status = 0
WScript.Sleep 100
Loop
WScript.Echo screen.StdOut.ReadAll