blogMyTrash

‘ DOSausgabe kidnappen bzw. abfangen
‘ Mit VB-Script die Zeit auf hundertstel Sekunden genau ausgeben

Set objShell = CreateObject(“WScript.Shell”)
Set objExec = objShell.Exec(“cmd /c echo %time%”)
‘ Zeit auf Millisekunden genau im DOS Fenster ausgeben

dostime = LCase(objExec.StdOut.ReadAll)
dostime = Split(dostime, vbcrlf, -1, 1) ‘ Zeilenumbruch filtern
msgbox “Die Zeit: ” & dostime(0) ‘ Zeit auf hundertstel Sekunden genau mit VB-Script ausgeben