Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
If PingComputer(strcomputer) = True Then Dim ooss As Object Dim oos Dim sos As String Dim OSTXT = "" Try ooss = GetObject("winmgmts:\\" & strcomputer).InstancesOf("Win32_OperatingSystem") For Each oos In ooss sos = oos.Name Dim sp Dim pos As Integer Dim trimnull pos = InStr(sos, "|") If pos Then trimnull = Microsoft.VisualBasic.Left(sos, pos - 1) sp = oos.ServicePackMajorVersion OSTXT = trimnull & " SP " & sp End If Next Catch ex As Exception MsgBox(ex.ToString) End Try End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.