'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