Uptime report over network

[Helen]

Hi All,

I know I have to use an admin account to run this script, but for some reason it wont log or work

It will work fine for the local machine, but when I try and get it to go through the servers, it wont log and I dont know if it works

Thanks in advance for the help.

Helen.

expandcollapse popup

Global $SLogPath = ("C:\SwInst\XENUptime.txt") ; This is the location of the logfile. It also adds the time and date with the _Filewritelog command. Keep as a global varible.
Global $sName
Global $sFilePath
Global $sCommandline
Global $fAllusers
Global $iRunOnce
Global $sSourcePath
Global $sDestinationPath
Global $sSourcePatha
Global $sDestinationPatha
Global $iFlag
Global $CelLEMS
Global $sReadfile

Uptime1()
Uptime2()
End()

DirCreate ("C:\Swinst")

 Func Uptime1()

 For $CelLEMS = 21 to 10 step -1
  Local $sReadfile = FileExists("\\server" & $CelLEMS & "\c$\Windows\System32\kernel32.dll")
 If $sReadfile = 1 Then
$ret = DllCall($sReadfile, "long", "GetTickCount")
If IsArray($ret) Then
   $type = "Seconds"
   $uptime = Number(StringFormat("%.2f", $ret[0] / 1000)); convert miliseconds to seconds
   If $uptime > 60 Then
      $type = "Minute(s)"
      $uptime = Number(StringFormat("%.2f", $uptime / 60)); convert the seconds to minutes
      If $uptime > 60 Then
         $type = "Hour(s)"
         $uptime = Number(StringFormat("%.2f", $uptime / 60)); convert the minutes to hours
         If $uptime > 24 Then; convert hours to days
            $type = "Day(s)"
            $uptime = Number(StringFormat("%.2f", $uptime / 24))
$sLogMsg = "server" & $CelLEMS & " Uptime = " & $uptime & " " & $type
_FileWriteLog($SLogPath, $sLogMsg, -1)
         EndIf
      EndIf
   EndIf
EndIf
Else
$sLogMsg = "** server" & $CelLEMS & " Cannot Get info! **"
_FileWriteLog($SLogPath, $sLogMsg, -1)
EndIf
 Next
 EndFunc

  Func Uptime2()

 For $CelLEMS = 9 to 1 step -1
  Local $sReadfile = FileExists("\\server" & $CelLEMS & "\c$\Windows\System32\kernel32.dll")
 If $sReadfile = 1 Then
$ret = DllCall($sReadfile, "long", "GetTickCount")
If IsArray($ret) Then
   $type = "Seconds"
   $uptime = Number(StringFormat("%.2f", $ret[0] / 1000)); convert miliseconds to seconds
   If $uptime > 60 Then
      $type = "Minute(s)"
      $uptime = Number(StringFormat("%.2f", $uptime / 60)); convert the seconds to minutes
      If $uptime > 60 Then
         $type = "Hour(s)"
         $uptime = Number(StringFormat("%.2f", $uptime / 60)); convert the minutes to hours
         If $uptime > 24 Then; convert hours to days
            $type = "Day(s)"
            $uptime = Number(StringFormat("%.2f", $uptime / 24))

$sLogMsg = "Server" & $CelLEMS & " Uptime = " & $uptime & " " & $type
_FileWriteLog($SLogPath, $sLogMsg, -1)
Else
$sLogMsg = "** Server" & $CelLEMS & " Cannot Get info! **"
_FileWriteLog($SLogPath, $sLogMsg, -1)
EndIf
         EndIf
      EndIf
   EndIf
EndIf
 Next
 EndFunc

 Func End()
 Exit
 EndFunc

[caleb41610]

Well one tip, use >= instead of > for the conversions.

> 60 = 61 or more

>= 60 = 60 or more

What OS is your local machine?

What OS is the servers you are trying to run it on?

and what does "i don't know if it works" mean? more info please.

Edited October 17, 2012 by caleb41610

[BrewManNH]

FileExists returns 1 or 0, not the name of the file, so your DLLCall is trying to run a DLLCall on the number 1 or 0 first of all. Second, you're running the DLLCall on the local machine, you may be trying to run the dllcall on the dll on the server, but it's going to get the local information because you're running it on the local machine if I'm not mistaken.