-
1
- #1
Schoenberg
Programmer
When retrieving a date and time field from WMI, you will notice that it returns a alphanumeric string that isn't very readable...here's an example of the returned value for "created date" on a file:
20010307014100.000000+***
To easily translate this string into a readable date format, put the following function into your scripting code (VB, VBS or VBA):
Function GetWBEMDateTime(v As Variant) As Date
Dim dt As Date
Dim tm As Date
Dim str As String
str = CStr(v)
dt = DateSerial(Left(str, 4), Mid(str, 5, 2), Mid(str, 7, 2))
tm = TimeSerial(Mid(str, 9, 2), Mid(str, 11, 2), Mid(str, 13, 2))
GetWBEMDateTime = tm + dt
End Function
Then, simply pass your "creation date" to this function and the formatted date will return. In the above example, this will return:
3/7/2001 4:14:00 AM
20010307014100.000000+***
To easily translate this string into a readable date format, put the following function into your scripting code (VB, VBS or VBA):
Function GetWBEMDateTime(v As Variant) As Date
Dim dt As Date
Dim tm As Date
Dim str As String
str = CStr(v)
dt = DateSerial(Left(str, 4), Mid(str, 5, 2), Mid(str, 7, 2))
tm = TimeSerial(Mid(str, 9, 2), Mid(str, 11, 2), Mid(str, 13, 2))
GetWBEMDateTime = tm + dt
End Function
Then, simply pass your "creation date" to this function and the formatted date will return. In the above example, this will return:
3/7/2001 4:14:00 AM