2 thoughts on “VB Script to Find the Uptime of the server on the given machines list in text file”

1. HI,

   I tried running the script but it fails on Line 2 character 28.

   Reply

2. Use this script;

   Set filesys = CreateObject(“Scripting.FileSystemObject”)
   Set filetxt1 = filesys.OpenTextFile(“server_details.Txt”,1)

   do Until filetxt1.AtEndOfStream
   strComputer = filetxt1.Readline
   strComputer = trim(strComputer)
   set objWMIDateTime = CreateObject(“WbemScripting.SWbemDateTime”)
   set objWMI = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”)
   set colOS = objWMI.InstancesOf(“Win32_OperatingSystem”)

   for each objOS in colOS
   if err.number = 0 Then
   objWMIDateTime.Value = objOS.LastBootUpTime
   Wscript.Echo strComputer & ” | ” & objWMIDateTime.GetVarDate
   Else
   Wscript.Echo strComputer & ” | ”
   End If
   next
   Err.clear
   Loop

   Reply