J'arrive effectivement à recupérer le jour avec les script suivant:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime" )
For Each objItem in colItems
Wscript.Echo "Day of the Week: " & WeekDayName(objItem.DayOfWeek)
Next
mais je ne sais pas comment transmêtre à mon shell DOS la valeur du jour sous forme de variable.
J'ai essayé, mais sans succès avec la syntaxe suivante:
Dim WshShell, WshEnv
Set WshShell = WScript.CreateObject("WScript.Shell" )
Set WshEnv = WshShell.Environment("SYSTEM" )
WshEnv("TEST" ) = WeekDayName(objItem.DayOfWeek+1)
Une idée ?
-- Rodzzz
Message édité par rodzzz le 05-09-2005 à 22:49:45