Hente enkelt værdi fra WMI

<%



Set oOS = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

For Each obj in oOS
  ' if WinXP, you can use SWbemDateTime for date/time formatting
  sLastBoot = ConvWbemTime(obj.LastBootUpTime)
  sNow = ConvWbemTime(obj.LocalDateTime)
Next

response.write  "Last booted: " & sLastBoot

response.write  "Computer has been up for: " _
              & DateDiff("n", sLastBoot, sNow) & " minute(s)"


Function ConvWbemTime(IntervalFormat)
  Dim sYear, sMonth, sDay, sHour, sMinutes, sSeconds
  sYear = mid(IntervalFormat, 1, 4)
  sMonth = mid(IntervalFormat, 5, 2)
  sDay = mid(IntervalFormat, 7, 2)
  sHour = mid(IntervalFormat, 9, 2)
  sMinutes = mid(IntervalFormat, 11, 2)
  sSeconds = mid(IntervalFormat, 13, 2)

  ' Returning format yyyy-mm-dd hh:mm:ss
  ConvWbemTime = sYear & "-" & sMonth & "-" & sDay & " " _
              & sHour & ":" & sMinutes & ":" & sSeconds
End Function


%>


//akj

yes yes - ser jo meget fornuftigt ud...

Men er der en en måde at undgå "For Each obj in oOS"-loopet?

(vil jo helst ikke lave unødige loops)

Der er tilsyneladende kun et object i Win32_OperatingSystem

//akj


For Each obj in oOS
  response.write "loop<br>"
  ' if WinXP, you can use SWbemDateTime for date/time formatting
  sLastBoot = ConvWbemTime(obj.LastBootUpTime)
  sNow = ConvWbemTime(obj.LocalDateTime)
Next

jo jo - men det besvarer ikke mit spørgsmål - kan man hente værdien ud uden at køre loop?

den laver IKKE et loop da der kun er et element...

//akj

Ja jo - altså... nu bliver det vel et spørgsmål om hvordan man opfatter det

Jeg mener, at For-Next er et loop - uanset om det kører et eller flere gange.
Derfor spørger jeg igen - kan man på en eller anden måde undgå at bruge et loop - evt. ved at bruge en objekt.værdi-agtig model

Det kan man da sikekr men jeg ved ikke lige hvordan måske noget alá:
oOS.item(i).LastBootUpTime

//akj