'v5.A***************************************************** 

Set Fso = WScript.CreateObject ("Scripting.FileSystemObject") 

Set Wss = WScript.CreateObject ( "WScript.Shell" ) 

Set Fso = WScript.CreateObject ("Scripting.FileSystemObject") 

Set Wss = WScript.CreateObject ( "WScript.Shell" ) 

' File:   10ms.vbs 

' Autor:  dieseyer@gmx.de  

'         dieseyer.de 

' 

' Zeigt die Zeit auf hundertstel Sekunden genau. 

'  

'*************************************************************** 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

Dim ms : ms = ",00" & "     Timer = " & Timer 

 

If InStr( Timer, "," ) > 0 Then  

  ' wenn Timer keine Nachkommastellen enthält 

  ms = Mid( Timer, InStr( Timer, "," ) ) & "     Timer = " & Timer 

End If 

 

MsgBox "Jetzt ist es : " & Now() & ms, , "19 :: " & WScript.ScriptName 

 

 

' alles in einer Zeile: 

ms = now() : If InStr( Timer, "," ) > 0 Then ms = now() & Mid( Timer, InStr( Timer, "," ) )  

 

MsgBox ms, , "24 :: " & WScript.ScriptName