Get uptime of remote computer using WMI

mellerbeck (Michael Ellerbeck) — Wed, 07 May 2008 15:20:08 GMT

// description of your code here
Get uptime of remote computer using WMI, I'm not sure the convert time function is correct, it gives different results than psinfo.exe





Private Function GetUptime() As String





        Dim WMIScope As Management.ManagementScope

        Dim WMIConnectionOptions As New Management.ConnectionOptions

        Dim strRootDomain As String

        Dim objRootLDAP As DirectoryEntry

        Dim query As ManagementObjectSearcher

        Dim queryCollection As ManagementObjectCollection

        Dim oq As New System.Management.ObjectQuery

        Dim mo As New ManagementObject

        Dim perftimestamp As String = ""

        Dim perttimefreq As String = ""

        Dim counter As String = ""

        Dim iUptimeInSec As Long = 0



        With WMIConnectionOptions

            .Impersonation = System.Management.ImpersonationLevel.Impersonate

            .Authentication = System.Management.AuthenticationLevel.Packet



        End With



        WMIScope = New Management.ManagementScope("\\" & _

        Strcomputer & "\root\cimv2", WMIConnectionOptions)



        objRootLDAP = New DirectoryEntry("LDAP://RootDSE")

        strRootDomain = objRootLDAP.Properties.Item("rootDomainNamingContext").Value.ToString



        oq = New System.Management.ObjectQuery("select * from Win32_PerfRawData_PerfOS_System")

        query = New ManagementObjectSearcher(WMIScope, oq)

        queryCollection = query.Get()



        For Each oReturn As ManagementObject In queryCollection

            perftimestamp = oReturn("Timestamp_Object").ToString()

            perttimefreq = oReturn("Frequency_Object").ToString()

            counter = oReturn("SystemUpTime").ToString()

        Next



        ' Calculation in seconds:

        iUptimeInSec = Convert.ToInt64((Double.Parse(perftimestamp) - Double.Parse(counter)) / Double.Parse(perttimefreq))



        ' convert the seconds

        Return ConvertTime(iUptimeInSec)



    End Function



    Private Function ConvertTime(ByVal seconds As Long) As String



        Dim ConvSec As Long

        Dim ConvMin As Long

        Dim ConvHour As Long

        Dim ConvDays As Long



        Math.DivRem(seconds, 60, ConvSec)



        Math.DivRem(seconds, 3600, ConvMin)

        ConvMin = ConvMin / 60



        Math.DivRem(seconds, (3600 * 24), ConvHour)

        ConvHour = ConvHour / 3600



        ConvDays = (seconds / (3600 * 24))



        Return (ConvDays.ToString() + " days " + ConvHour.ToString() + " hours " + ConvMin.ToString() + " minutes " + ConvSec.ToString() + " seconds ")



    End Function



'or you could try this method which still doesn't match psinfo or systeminfo but it is closer



Private Function GetUptime2() As String



        Dim WMIScope As Management.ManagementScope

        Dim WMIConnectionOptions As New Management.ConnectionOptions

        Dim strRootDomain As String

        Dim objRootLDAP As DirectoryEntry

        Dim query As ManagementObjectSearcher

        Dim queryCollection As ManagementObjectCollection

        Dim oq As New System.Management.ObjectQuery

        Dim mo As New ManagementObject

        Dim perftimestamp As String = ""

        Dim perttimefreq As String = ""

        Dim counter As String = ""

        Dim iUptimeInSec As Long = 0

        Dim LastBootUpTime As DateTime

        Dim dateNow As DateTime = Date.Now



        With WMIConnectionOptions

            .Impersonation = System.Management.ImpersonationLevel.Impersonate

            .Authentication = System.Management.AuthenticationLevel.Packet



        End With



        WMIScope = New Management.ManagementScope("\\" & _

        Strcomputer & "\root\cimv2", WMIConnectionOptions)



        objRootLDAP = New DirectoryEntry("LDAP://RootDSE")

        strRootDomain = objRootLDAP.Properties.Item("rootDomainNamingContext").Value.ToString



        oq = New System.Management.ObjectQuery("Select * from Win32_OperatingSystem")



        query = New ManagementObjectSearcher(WMIScope, oq)

        queryCollection = query.Get()



        For Each oReturn As ManagementObject In queryCollection



            LastBootUpTime = System.Management.ManagementDateTimeConverter.ToDateTime(oReturn("LastBootUpTime").ToString)

            

        Next



        Dim ts As TimeSpan = dateNow.Subtract(LastBootUpTime)

        Console.WriteLine(ts.Days.ToString + " days " + ts.Hours.ToString + " hours " + ts.Minutes.ToString + " minutes " + ts.Seconds.ToString + " seconds ")



    End Function

Cantor's Sets with Processing

scvalex (Alexandru Scvortov) — Mon, 04 Feb 2008 11:08:31 GMT

This simple Processing programme generates the Cantor's Sets fractal.

Images are generated randomly, but tend to look like this.



int setHeight = 60;

color setColour = color(184 + random(-40, 40),

                        124 + random(-40, 40),

                        124 + random(-40, 40));

int wid = 600;



void setup() {

  size(wid, (int)((log(wid) / log(3) + 1) * (setHeight + 5)));

  background(0);

  smooth();

  

  cantorSet(10, 10, width - 20, setColour);

  

  save("cantorSet.png");

}



float rnd(float x) {

  return x + random(-20, 20);

}



void brushRect(int x, int y, int w, int h) {

  for (int i = 0; i < h; ++i) {

    float r = random(3);

    strokeWeight(r);

    float downpull = random(h / 4);

    float shudder = random(-2, 2);

    line(x + shudder, y + i, x + w - shudder, y + i + downpull);

  }

}



void cantorSet(int y, int offX, int wid, color col) {

  if ((y > height - 10) || (wid < 1))

    return;



  stroke(col);

  brushRect(offX, y, wid, setHeight);

  //fill(col);

  //rect(offX, y, wid, setHeight);

  

  color newCol = color(rnd(red(col)), rnd(green(col)),

                      rnd(blue(col)));

  cantorSet(y + setHeight + 5, offX, wid / 3, newCol);

  cantorSet(y + setHeight + 5, offX + wid*2/3, wid / 3, newCol);

}

Who pooped on my keyboard

poopman (Steven Joseph Adams ) — Mon, 03 Sep 2007 22:18:46 GMT

// description of your code here



// insert code here..

somebody pooped on my keyboard

DZone Snippets: computer code

Get uptime of remote computer using WMI

Cantor's Sets with Processing

Who pooped on my keyboard