Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now
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.