ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Série de fonctions avec les dates et l'heure avec WMI   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > WMI (Windows Management Instrumentation)

Série de fonctions avec les dates et l'heure avec WMI
# 0000000065
ajouté le 17/11/2004 22:11:56 et modifié le 01/05/2005
consulté 7482 fois
Niveau expert

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Description
Série de fonctions avec les dates et l'heure avec WMI
Code source :
&& Renvoie des informations sur l'heure locale configuré sur un ordinateur.

CLEAR
On Error *
lcComputer = "."
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
&& Recherchez les informations sur le fuseau horaire configuré sur un ordinateur.

Clear
On Error *
lcComputer = "."
loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_TimeZone")
For Each loitem In colItems
  ?"Bias: " + Transform(loitem.Bias)
  ?"Caption: " + Transf(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: " + Transf(loitem.Description)
  ?"Setting ID: " + Transform(loitem.SettingID)
  ?"Standard Bias: " + Transf(loitem.StandardBias)
  ?"Standard Day: " + Transf(loitem.StandardDay)
  ?"Standard Day Of Week: " + Transf(loitem.StandardDayOfWeek)
  ?"Standard Hour: " + Transf(loitem.StandardHour)
  ?"Standard Millisecond: " + Transf(loitem.StandardMillisecond)
  ?"Standard Minute: " + Transf(loitem.StandardMinute)
  ?"Standard Month: " + Transf(loitem.StandardMonth)
  ?"Standard Name: " + Transf(loitem.StandardName)
  ?"Standard Second: " + Transf(loitem.StandardSecond)
  ?"Standard Year: " + Transf(loitem.StandardYear)
         ?
Next

&& Rapporte le temps universel de la coordonnée de temps (UTC) sur un ordinateur.

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

Commentaires
Aucun commentaire enregistré ...

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3