Récupérer le jour de la date courante

Récupérer le jour de la date courante - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 05-09-2005 à 19:30:32   

Reply

Marsh Posté le 05-09-2005 à 21:35:33    

http://msdn.microsoft.com/library/ [...] ayname.asp


---------------
now : do nothing
Reply

Marsh 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


Message édité par rodzzz le 05-09-2005 à 22:49:45
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed