On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\\\" & strComputer & "\\root\\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime",,48) For Each objItem in colItems Wscript.Echo "Nous somme le : " & objItem.Day & " du " & objItem.Month & " en " & objItem.Year Wscript.Echo "Il est : " & objItem.Hour & " : " & objItem.Minute & " : " & objItem.Second & " " & objItem.Milliseconds & " Secondes !" Next
je trouve ca tres compliqué si j'ai compris car j'ai pas testé ca donne juste la date et l'heure systemetu peux faire camsgbox ("nous somme le" & day(now) & month(now) & year(now) & "il est " & time)ou mieuxMsgBox ("nous somme le " & Format(Now, "dddd d mmmm yyyy") & " à " & Format(Now, "ttttt"))bon c'est pas pour critiquer mais il y a plus simplej'arrive meme pas a l'utiliser
mais c'est ..... super inutilevoila le code le plus simple :msgbox"noule somme le " & date() & " et il est " & time()TRO dur lolmais ché pas ce que ta fait pour faire un script aussi compliquer pour l'heure et la date !!!!!
moi j'ai quand meme mis la date sous se format lamNous sommes le mardi 3 fevrier 2004 il est 16h30
C'est clair, tu t'es vraiment compliqué l'existence alors que c'est tout simple !!!
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 598 771 membres 39 nouveaux aujourd'hui 15 441 membres club