VBScript to determine OS

[Mewster]

Hi There, I am absolutely useless with VBScript, I need a some code that will determine the OS of a machine and then run a further piece of code to switch off Windows Firewall if the OS is XP.

I already have the code to switch off the firewall..... Is just the OS determination that I need.

Thanks

 

[barny2006]

here is the code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

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

For Each objOperatingSystem in colOperatingSystems

msg = objOperatingSystem.Caption & " " & _
objOperatingSystem.Version
msgbox msg
Next

 

[tfg13]

A program that would help you out with writing some of these scripts is scriptomatic v2. Below is a link to get it:

http://www.microsoft.com/downloads/...42-648B-4119-B7EB-783B0F7D1178&displaylang=en

 

[Mewster]

Guys thats brilliant, thanks very much!!

 

[markdmac]

And beyond Scriptomatic is the new Portable Script Center. Also available for DL from MS for free.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript