Új hozzászólás Aktív témák

• #8354 ollie MODERÁTOR csikosdapro #8353

  Új Válasz 2009-04-14 12:16:59 #8354

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ollie

  MODERÁTOR

  válasz csikosdapro #8353 üzenetére

  pl: uptime

  Az első hozzászólásban levő scriptet kimented vbs kiterjesztésű text fájlba és voilá. Vagy ha elég az, hogy mikor jelentkeztél be, akkor CTRL+ALT+DEL és ott látod.

  Egyszerűbb script, de csak órában jelzi ki:

  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set colOperatingSystems = objWMIService.ExecQuery _
  ("Select * from Win32_OperatingSystem")
  
  For Each objOS in colOperatingSystems
  dtmBootup = objOS.LastBootUpTime
  dtmLastBootupTime = WMIDateStringToDate(dtmBootup)
  dtmSystemUptime = DateDiff("h", dtmLastBootUpTime, Now)
  Wscript.Echo dtmSystemUptime
  Next
  
  Function WMIDateStringToDate(dtmBootup)
  WMIDateStringToDate = CDate(Mid(dtmBootup, 5, 2) & "/" & _
  Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) _
  & " " & Mid (dtmBootup, 9, 2) & ":" & _
  Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup, _
  13, 2))
  End Function

  Ja, és használd a google-t, ne légy lusta. Az adatforgalom számlálót meghagyom neked.

Új hozzászólás Aktív témák