Dates et heures avec windows scripting host

Commenter

Contenu du snippet

Le code requiert l'installation de Windows Scripting Host.

Source / Exemple : 


1. Obtenir la date et l'heure (etc. )d'un ordinateur

On Error *
lcComputer = "."
Clear
loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_LocalTime")
For Each loItem In colItems
	?"Day: " + Transform(loItem.Day)
	?"Day Of Week: " + Transform(loItem.Dayofweek)
	?"Hour: " + Transform(loItem.Hour)
	?"Minute: " + Transform(loItem.Minute)
	?"Month: " + Transform(loItem.Month)
	?"Quarter: " + Transform(loItem.Quarter)
	?"Second: " + Transform(loItem.Second)
	?"Week In Month: " + Transform(loItem.WeekInMonth)
	?"Year: " + Transform(loItem.Year)
	?
Next

2. Recherche de l'information de fuseau horaire pour un ordinateur

On Error *
lcComputer = "."
Clear
loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_TimeZone")
For Each loItem In colItems
	?"Bias: " + Transform(loItem.Bias)
	?"Caption: " + Transform(loItem.Caption)
	?"Daylight Bias: " + Transform(loItem.DaylightBias)
	?"Daylight Day: " + Transform(loItem.DaylightDay)
	?"Daylight Day Of Week: " + Transform(loItem.DaylightDayOfWeek)
	?"Daylight Hour: " + Transform(loItem.DaylightHour)
	?"Daylight Millisecond: " + Transform(loItem.DaylightMillisecond)
	?"Daylight Minute: " + Transform(loItem.DaylightMinute)
	?"Daylight Month: " + Transform(loItem.DaylightMonth)
	?"Daylight Name: " + Transform(loItem.DaylightName)
	?"Daylight Second: " + Transform(loItem.DaylightSecond)
	?"Daylight Year: " + Transform(loItem.DaylightYear)
	?"Description: " + Transform(loItem.Description)
	?"Setting ID: " + Transform(loItem.SettingID)
	?"Standard Bias: " + Transform(loItem.StandardBias)
	?"Standard Day: " + Transform(loItem.StandardDay)
	?"Standard Day Of Week: " + Transform(loItem.StandardDayOfWeek)
	?"Standard Hour: " + Transform(loItem.StandardHour)
	?"Standard Millisecond: " + Transform(loItem.StandardMillisecond)
	?"Standard Minute: " + Transform(loItem.StandardMinute)
	?"Standard Month: " + Transform(loItem.StandardMonth)
	?"Standard Name: " + Transform(loItem.StandardName)
	?"Standard Second: " + Transform(loItem.StandardSecond)
	?"Standard Year: " + Transform(loItem.StandardYear)
	?
Next

3. Déterminer la différence entre le fuseau horaire d'un ordinateur et le GMT Universel.

lcComputer = "."
loWMIService = Getobject("winmgmts:" ;
	+ "{impersonationLevel=impersonate}!\\" + lcComputer + "\root\cimv2")
colTimeZone = loWMIService.ExecQuery("Select * from Win32_TimeZone")

For Each loTimeZone In colTimeZone
	?"Offset: "+ Transform(loTimeZone.Bias)
Next

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Mike Gagnon)