Script to determine Service Pack on numerous servers

Hello,

I'm not a scripting guy so I need some assistance. I need to obtain the
service pack levels on numerous servers. Is there a script I can use that
could read a list of servers in a text file and output the answers to either
a text file or CSV?

Pegasus
Thu Mar 06 14:16:15 CST 2008


"BBB" <BBB@discussions.microsoft.com> wrote in message
news:DDD48758-E13D-4C8C-9F6E-63E5DA530EE4@microsoft.com...
> Hello,
>
> I'm not a scripting guy so I need some assistance. I need to obtain the
> service pack levels on numerous servers. Is there a script I can use that
> could read a list of servers in a text file and output the answers to
> either
> a text file or CSV?

You could use this script:

PCList = "c:\PCs.txt"
Tab = chr(9)
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objStream = objFSO.OpenTextFile(PCList, 1)

while not objStream.AtEndOfStream
PCName = trim(objStream.Readline)
Set OSSet = GetObject("winmgmts://" & PCName _
& "/root/cimv2").ExecQuery("select * from Win32_OperatingSystem")

For Each OS In OSSet
wscript.echo PCName & Tab & OS.Caption & Tab & OS.CSDVersion
Next
wend
objStream.close

BBB
Thu Mar 06 15:04:02 CST 2008

Thank you Pegasus. Works like a charm!
--
If you love the life you live, you will live a life of love...


"Pegasus (MVP)" wrote:

>
> "BBB" <BBB@discussions.microsoft.com> wrote in message
> news:DDD48758-E13D-4C8C-9F6E-63E5DA530EE4@microsoft.com...
> > Hello,
> >
> > I'm not a scripting guy so I need some assistance. I need to obtain the
> > service pack levels on numerous servers. Is there a script I can use that
> > could read a list of servers in a text file and output the answers to
> > either
> > a text file or CSV?
>
> You could use this script:
>
> PCList = "c:\PCs.txt"
> Tab = chr(9)
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> set objStream = objFSO.OpenTextFile(PCList, 1)
>
> while not objStream.AtEndOfStream
> PCName = trim(objStream.Readline)
> Set OSSet = GetObject("winmgmts://" & PCName _
> & "/root/cimv2").ExecQuery("select * from Win32_OperatingSystem")
>
> For Each OS In OSSet
> wscript.echo PCName & Tab & OS.Caption & Tab & OS.CSDVersion
> Next
> wend
> objStream.close
>
>
>

Pegasus
Thu Mar 06 15:21:40 CST 2008

Thanks for the feedback.

"BBB" <BBB@discussions.microsoft.com> wrote in message
news:E5A269F1-0A50-4B9B-B93A-11D3A5F9CC83@microsoft.com...
> Thank you Pegasus. Works like a charm!
> --
> If you love the life you live, you will live a life of love...
>
>
> "Pegasus (MVP)" wrote:
>
>>
>> "BBB" <BBB@discussions.microsoft.com> wrote in message
>> news:DDD48758-E13D-4C8C-9F6E-63E5DA530EE4@microsoft.com...
>> > Hello,
>> >
>> > I'm not a scripting guy so I need some assistance. I need to obtain the
>> > service pack levels on numerous servers. Is there a script I can use
>> > that
>> > could read a list of servers in a text file and output the answers to
>> > either
>> > a text file or CSV?
>>
>> You could use this script:
>>
>> PCList = "c:\PCs.txt"
>> Tab = chr(9)
>> Set objFSO = CreateObject("Scripting.FileSystemObject")
>> set objStream = objFSO.OpenTextFile(PCList, 1)
>>
>> while not objStream.AtEndOfStream
>> PCName = trim(objStream.Readline)
>> Set OSSet = GetObject("winmgmts://" & PCName _
>> & "/root/cimv2").ExecQuery("select * from Win32_OperatingSystem")
>>
>> For Each OS In OSSet
>> wscript.echo PCName & Tab & OS.Caption & Tab & OS.CSDVersion
>> Next
>> wend
>> objStream.close
>>
>>
>>