Bonjour j'ai écrit un petit programme en VBS afin de récuperer la date mais cela ne fonctionne pas. D'où vient le programme il est correct niveau syntaxe il me semble non ?
 
On Error Resume Next
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
 
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime" )
 
For Each objItem in colItems
   dim Day =   objItem.Day
   dim Day of Week =  objItem.DayOfWeek
 
 
Next
 
Merci d'avance de votre aide j'ai soutenance bientôt c'est la débandade

Désolé j'avais oublié de brancher mon cerveau...