Vbscript – BAFM

After some more crunching on my VBscript, I think I finally have a working script that runs through a csv-list I point it to and walk onto each system (by ip-address only sadly) and query the os and the Service Pack that is installed. The CSV may look like this:

Hostname;IP;Model;Description;OS;Service-Pack;BL;Priority
epimetheus;10.0.0.2;VMware guest;File-Server
hades;10.0.0.1;VMware guest;Core-Router

Hostname;IP;Model;Description;OS;Service-Pack;BL;Priority

epimetheus;10.0.0.2;VMware guest;File-Server

hades;10.0.0.1;VMware guest;Core-Router

After saving that one, and running a cscript //NoLogo win_sp_level.vbs you should find a completed list like this:

Hostname;IP;Model;Description;OS;Service-Pack;BL;Priority
epimetheus;10.0.0.2;VMware guest;File-Server;Windows Server 2003 Standard x64 Edition; SP1;;
hades;10.0.0.1;VMware guest;Core-Router;Windows Server 2003 Enterprise Edition; SP0;;

Hostname;IP;Model;Description;OS;Service-Pack;BL;Priority

epimetheus;10.0.0.2;VMware guest;File-Server;Windows Server 2003 Standard x64 Edition; SP1;;

hades;10.0.0.1;VMware guest;Core-Router;Windows Server 2003 Enterprise Edition; SP0;;

The final script looks like this:

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemOBject")

If objFSO.FileExists("Rollout_SP2.csv") = 0 Then
  CleanUp()
  Wscript.Quit
End If

Set CSVin = objFSO.OpenTextFile("Rollout_SP2.csv", 1)
CSVin_read = CSVin.ReadLine

Set objFile = objFSO.CreateTextFile("Rollout_SP2_result.csv")
Set objFile = nothing
Set CSVout = objFSO.OpenTextFile("Rollout_SP2_result.csv", 8)
CSVout.WriteLine("Hostname;IP;Model;Description;OS;Service-Pack;BL;Priority")

Do While CSVin.AtEndofStream &lt;&gt; True

  Dim os, servicepack
  Dim user, password
  
  os = nothing
  servicepack = nothing
  user = vars(1) &amp; "chrischie"
  password = "hah-this-password-is-easy"
  
  current_line = CSVin.ReadLine
  vars = Split(current_line, ";")
  
  Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
  Set objSWbemServices = objSWbemLocator.ConnectServer _
    (vars(1), "rootcimv2", user, password, "MS_409",, 128)

  objSWbemServices.Security_.ImpersonationLevel = 3

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

  ' The set returns an Err.Number of 91 on success
  ' Don't ask me why though.
  If Err.Number &lt;&gt; 91 Then
    CSVout.WriteLine(vars(0) &amp; ";" &amp; vars(1) &amp; ";" &amp; vars(2) &amp; ";" &amp; vars(3) &amp; ";NA;SP?;;")
  Else
    For Each objOperatingSystem in colOperatingSystems
      os = objOperatingSystem.Caption
      servicepack = objOperatingSystem.ServicePackMajorVersion
    Next
    CSVout.WriteLine(vars(0) &amp; ";" &amp; vars(1) &amp; ";" &amp; vars(2) &amp; ";" &amp; vars(3) _
	                 &amp; ";" &amp; os  &amp; "; SP" &amp; servicepack &amp; ";;")
  End If
Loop

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemOBject")

If objFSO.FileExists("Rollout_SP2.csv") = 0 Then

CleanUp()

Wscript.Quit

End If

Set CSVin = objFSO.OpenTextFile("Rollout_SP2.csv", 1)

CSVin_read = CSVin.ReadLine

Set objFile = objFSO.CreateTextFile("Rollout_SP2_result.csv")

Set objFile = nothing

Set CSVout = objFSO.OpenTextFile("Rollout_SP2_result.csv", 8)

CSVout.WriteLine("Hostname;IP;Model;Description;OS;Service-Pack;BL;Priority")

Do While CSVin.AtEndofStream <> True

Dim os, servicepack

Dim user, password

os = nothing

servicepack = nothing

user = vars(1) & "chrischie"

password = "hah-this-password-is-easy"

current_line = CSVin.ReadLine

vars = Split(current_line, ";")

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Set objSWbemServices = objSWbemLocator.ConnectServer _

(vars(1), "rootcimv2", user, password, "MS_409",, 128)

objSWbemServices.Security_.ImpersonationLevel = 3

Set colOperatingSystems = objSWbemServices.ExecQuery _

("Select * from Win32_OperatingSystem")

' The set returns an Err.Number of 91 on success

' Don't ask me why though.

If Err.Number <> 91 Then

CSVout.WriteLine(vars(0) & ";" & vars(1) & ";" & vars(2) & ";" & vars(3) & ";NA;SP?;;")

Else

For Each objOperatingSystem in colOperatingSystems

os = objOperatingSystem.Caption

servicepack = objOperatingSystem.ServicePackMajorVersion

CSVout.WriteLine(vars(0) & ";" & vars(1) & ";" & vars(2) & ";" & vars(3) _

& ";" & os & "; SP" & servicepack & ";;")

End If

Loop

~~The only thing I still need to improve is the error handling (as in notify when a system is being skipped due to RPC being unavailable).~~

As I wrote on Thursday, I am battling with Windows Server 2003. Now I got a list out of our change management database, which sadly ain’t that accurate. So in order to get reliable information about the target systems (in order to do some accurate planning), I ended up writing a small vbscript which simply takes the hostname on the command line (cscript //NoLogo win_sp_level.vbs 10.0.0.5) and returns a csv-like element.

We may have to tune the script a bit more for our use, but it should show the basic functions I need.

Dim hostname, os, servicepack

hostname = WScript.Arguments.Item(0)

strComputer = hostname
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer _
   (strComputer, "rootcimv2", hostname &amp;amp; "chrischie", "hah-this-password-is-easy")
objSWbemServices.Security_.ImpersonationLevel = 3

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

For Each objOperatingSystem in colOperatingSystems
   os = objOperatingSystem.Caption
   servicepack = objOperatingSystem.ServicePackMajorVersion
Next

Wscript.Echo hostname &amp; ";" &amp; os &amp; "; SP" &amp; servicepack &amp; ";"

Dim hostname, os, servicepack

hostname = WScript.Arguments.Item(0)

strComputer = hostname

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Set objSWbemServices = objSWbemLocator.ConnectServer _

(strComputer, "rootcimv2", hostname &amp; "chrischie", "hah-this-password-is-easy")

objSWbemServices.Security_.ImpersonationLevel = 3

Set colOperatingSystems = objSWbemServices.ExecQuery _

("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

os = objOperatingSystem.Caption

servicepack = objOperatingSystem.ServicePackMajorVersion

Wscript.Echo hostname & ";" & os & "; SP" & servicepack & ";"

S	M	T	W	T	F	S
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31

Tag: Vbscript

VBscript: Query remote OS and SP info (continued)

VBscript: Query remote OS and SP info