Récupérer le jour de la date courante - VB/VBA/VBS - Programmation
Marsh Posté le 05-09-2005 à 21:35:33
ReplyMarsh Posté le 05-09-2005 à 22:38:16
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
Marsh Posté le 05-09-2005 à 19:30:32
Et oui ... encore une colle à la con !
Je me débats toujours sous DOS et je voudrais savoir si il existe des scripts VBS capables
de fournir le jour de la date courante du système.
Exemple:
si je tape "date /T" sous DOS j'obtiens "05/09/2005"
or je voudrais seulement "LUNDI" comme info
Je sais qu'il existe une fonction "WeekDayName" mais je ne sais pas comment construire un VBS que je pourrais lancer sous DOS pour récupérer cette info.
D'avance merci pour votre aide !
-- Rodzzz