Set objFS = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFS.CreateTextFile("sp.report.txt", True)
Set WshNetwork = WScript.CreateObject("WScript.Network")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
s = s & WshNetwork.ComputerName & " - " & "Service Pack " & objOperatingSystem.ServicePackMajorVersion _
        & "." & objOperatingSystem.ServicePackMinorVersion _

objLogFile.WriteLine("Log started at " & now() )
objLogFile.WriteLine(s)
objLogFile.Close

Next
WScript.Sleep 1000
set WshShell = WScript.CreateObject("WScript.Shell")
         WshShell.Run "notepad sp.report.txt"
         WScript.Sleep 100
         WshShell.AppActivate "Notepad"