Work – Page 8

Run a command on a list of Fibre-Channel switches (fc-switch-commands.pl)

August 26, 2010June 21, 2013 Christian 1 Comment

Up till now, we did have a bunch of shell and perl scripts doing this work. Today, as I was looking for some stuff to do, I found them and decided rewriting it, so you wouldn’t need a shell script to call the perl worker script … This is pretty much the result!

#!/usr/bin/perl

# LICENSE:     GNU General Public License v2. (see LICENSE.txt)
# COPYRIGHT:   Copyright 2010 Christian Heim &lt;christian.heim@barfoo.org&gt;

# This script runs a batch of commands on a list of FC-switches. For example:
# fc-switch-commands.pl statsclear | configupload | supportsave

use strict;
use warnings;
use Net::Telnet;

our( @san_fabric1_core, @san_fabric1_edge_1, @san_fabric1_edge_2 );
our( @san_fabric2_core, @san_fabric2_edge_1, @san_fabric2_edge_2 );
our( @switches );
our( $ftp_host, $ftp_username, $ftp_password );
our( $telnet );
our( $i, $version, @debug );

@san_fabric1_core = ( &quot;10.144.20.50&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric1_core&#039; );
@san_fabric1_edge_1 = ( &quot;10.144.20.51&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric1_edge_1&#039; );
@san_fabric1_edge_2 = ( &quot;10.144.20.52&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric1_edge_2&#039; );
@san_fabric2_core = ( &quot;10.144.20.60&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric2_core&#039; );
@san_fabric2_edge_1 = ( &quot;10.144.20.61&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric2_edge_1&#039; );
@san_fabric2_edge_2 = ( &quot;10.144.20.62&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric2_edge_2&#039; );

$ftp_host = &#039;10.144.20.45&#039;;
$ftp_username = &#039;brocade_cfg&#039;;
$ftp_password = &#039;JuNxJPFC!&#039;;

@switches = ( @san_fabric1_core, @san_fabric2_core,
              @san_fabric1_edge_1, @san_fabric1_edge_2,
              @san_fabric2_edge_1, @san_fabric2_edge_2 );

@debug = ( Dump_Log =&gt; &#039;dump.log&#039;, Output_Log =&gt; &#039;out.log&#039;, Input_Log =&gt; &#039;in.log&#039; );

$telnet = new Net::Telnet(Timeout=&gt;240, Errmode=&gt;&#039;die&#039;,
                          Prompt =&gt; &#039;/.*:admin&gt; $/is&#039;, @debug);

for ($i = 0; $i &lt; $#switches + 1; $i++) {
  $telnet-&gt;open($switches[$i][0]);
  $telnet-&gt;login($switches[$i][1], $switches[$i][2]);

  if ( $ARGV[0] eq &quot;statsclear&quot; ) {
    $telnet-&gt;cmd(&quot;statsclear&quot;);
  } elsif ( $ARGV[0] eq &quot;configupload&quot; ) {
    # Check the FabricOS version, as Brocade decided to break compatiblity with 
    # earlier firmware versions w/ v6 (at least configupload)
    $telnet-&gt;cmd(&quot;firmwareshow&quot;);
    $version = $telnet-&gt;lastline;
    $version =~ s/s+|s+$//g;

    if ( $version =~ &quot;v6&quot; ) {
      $telnet-&gt;cmd(&quot;configupload -all -ftp &quot;$ftp_host&quot;,&quot;$ftp_username&quot;,&quot;$switches[$i][3].cfg&quot;,&quot;$ftp_password&quot;&quot;);
    } else {
      $telnet-&gt;cmd(&quot;configupload &quot;$ftp_host&quot;,&quot;$ftp_username&quot;,&quot;$switches[$i][3].cfg&quot;,&quot;$ftp_password&quot;&quot;);
    }
  } elsif ( $ARGV[0] eq &quot;supportsave&quot; ) {
    $telnet-&gt;cmd(&quot;supportsave -n -u &quot;$ftp_username&quot; -p &quot;$ftp_password&quot; -h &quot;$ftp_host&quot; -d &quot;supportsave/$switches[$i][3]&quot; -l ftp&quot;);
  }

  $telnet-&gt;close();
}

#!/usr/bin/perl

# LICENSE: GNU General Public License v2. (see LICENSE.txt)

# This script runs a batch of commands on a list of FC-switches. For example:

# fc-switch-commands.pl statsclear | configupload | supportsave

use strict;

use warnings;

use Net::Telnet;

our( @san_fabric1_core, @san_fabric1_edge_1, @san_fabric1_edge_2 );

our( @san_fabric2_core, @san_fabric2_edge_1, @san_fabric2_edge_2 );

our( @switches );

our( $ftp_host, $ftp_username, $ftp_password );

our( $telnet );

our( $i, $version, @debug );

@san_fabric1_core = ( "10.144.20.50", "admin", "JuNxJFSAS!", 'san_fabric1_core' );

@san_fabric1_edge_1 = ( "10.144.20.51", "admin", "JuNxJFSAS!", 'san_fabric1_edge_1' );

@san_fabric1_edge_2 = ( "10.144.20.52", "admin", "JuNxJFSAS!", 'san_fabric1_edge_2' );

@san_fabric2_core = ( "10.144.20.60", "admin", "JuNxJFSAS!", 'san_fabric2_core' );

@san_fabric2_edge_1 = ( "10.144.20.61", "admin", "JuNxJFSAS!", 'san_fabric2_edge_1' );

@san_fabric2_edge_2 = ( "10.144.20.62", "admin", "JuNxJFSAS!", 'san_fabric2_edge_2' );

$ftp_host = '10.144.20.45';

$ftp_username = 'brocade_cfg';

$ftp_password = 'JuNxJPFC!';

@switches = ( @san_fabric1_core, @san_fabric2_core,

@san_fabric1_edge_1, @san_fabric1_edge_2,

@san_fabric2_edge_1, @san_fabric2_edge_2 );

@debug = ( Dump_Log => 'dump.log', Output_Log => 'out.log', Input_Log => 'in.log' );

$telnet = new Net::Telnet(Timeout=>240, Errmode=>'die',

Prompt => '/.*:admin> $/is', @debug);

for ($i = 0; $i < $#switches + 1; $i++) {

$telnet->open($switches[$i][0]);

$telnet->login($switches[$i][1], $switches[$i][2]);

if ( $ARGV[0] eq "statsclear" ) {

$telnet->cmd("statsclear");

} elsif ( $ARGV[0] eq "configupload" ) {

# Check the FabricOS version, as Brocade decided to break compatiblity with

# earlier firmware versions w/ v6 (at least configupload)

$telnet->cmd("firmwareshow");

$version = $telnet->lastline;

$version =~ s/s+|s+$//g;

if ( $version =~ "v6" ) {

$telnet->cmd("configupload -all -ftp "$ftp_host","$ftp_username","$switches[$i][3].cfg","$ftp_password"");

} else {

$telnet->cmd("configupload "$ftp_host","$ftp_username","$switches[$i][3].cfg","$ftp_password"");

}

} elsif ( $ARGV[0] eq "supportsave" ) {

$telnet->cmd("supportsave -n -u "$ftp_username" -p "$ftp_password" -h "$ftp_host" -d "supportsave/$switches[$i][3]" -l ftp");

}

$telnet->close();

}

SAN reporting

August 20, 2010June 21, 2013 Christian Leave a comment

We do have some customers, who get charged on a monthly basis for their SAN usage. We already had “reporting” in place, but that wasn’t very flexible. So I went ahead and rewrote the current reporting script from scratch, and this is what I’ve come up with:

#/bin/bash

# LICENSE:     GNU General Public License v2. (see LICENSE.txt)
# COPYRIGHT:   Copyright 2010 Christian Heim &lt;christian.heim@barfoo.org&gt;

svc_sshkey=&quot;~/.ssh/svc-id_dsa&quot;
svc_addr=&quot;10.144.0.150&quot;
svc_user=&quot;admin&quot;

if [ -z $1 ] ; then
  echo &quot;Please rerun this script with some kind of filter value&quot;
  echo &quot;(for example &#039;$0 NAS&#039;)&quot;
  exit 1
else
  filter=$1
fi

IFS=&quot;
&quot;

DISK=&quot;$( ssh -i $svc_sshkey -l $svc_user $svc_addr svcinfo lsvdisk -nohdr -bytes -delim : 
          | egrep -i &quot;V.*$filter&quot; | cut -d: -f2,8 | sort )&quot;

# Get a unique list of systems
SYSTEMS=&quot;$( echo $DISK | sed &quot;s, ,n,g&quot; | cut -d  -f1 | sed &#039;s,^V,,&#039; | cut -d_ -f1 | sort -u )&quot;

for system in $SYSTEMS ; do
  VDISKS=&quot;$( echo $DISK | sed &quot;s, ,n,g&quot; | grep $system | sed &quot;s,:,: ,&quot; )&quot;
  SYSTEM_TOTAL=&quot;$( echo $DISK | sed &quot;s, ,n,g&quot; | grep $system | cut -d: -f2 | awk &#039;{SUM += $1} END { printf &quot;%.2f&quot;, SUM }&#039; )&quot;
  for vdisk in $VDISKS ; do
    NAME=&quot;$( echo $vdisk | cut -d: -f1 )&quot;
    SIZE=&quot;$( echo $vdisk | cut -d: -f2 | sed &quot;s,^ ,,&quot; )&quot;
    GB_SIZE=&quot;$( echo &quot;$SIZE / 1024 / 1024 / 1024&quot; | bc )&quot;
    if [ $GB_SIZE -eq 0 ] ; then
      GB_SIZE=&quot;$( echo &quot;scale=2; $SIZE / 1024 / 1024 / 1024&quot; | bc )&quot;
      GB_SIZE=&quot;${GB_SIZE/./0.}&quot;
    fi
    echo &quot;$NAME: ${GB_SIZE/./,} GB&quot;
  done
  SUB_TOTAL_SYSTEM=&quot;$( echo &quot;scale=2; $SYSTEM_TOTAL / 1024 / 1024 / 1024&quot; | bc )&quot;
  echo &quot;SUB TOTAL: ${SUB_TOTAL_SYSTEM/./,} GB&quot;
  echo
done

TOTAL=&quot;$( echo $DISK | sed &quot;s, ,n,g&quot; | cut -d: -f2  | awk &#039;{SUM += $1} END { printf &quot;%.2f&quot;, SUM }&#039; )&quot;
TOTAL=&quot;$( echo &quot;scale=2; $TOTAL / 1024 / 1024 / 1024&quot; | bc ) GB&quot;

echo &quot;------------------------------------------------&quot;
echo $TOTAL

exit 0

#/bin/bash

# LICENSE: GNU General Public License v2. (see LICENSE.txt)

svc_sshkey="~/.ssh/svc-id_dsa"

svc_addr="10.144.0.150"

svc_user="admin"

if [ -z $1 ] ; then

echo "Please rerun this script with some kind of filter value"

echo "(for example '$0 NAS')"

exit 1

else

filter=$1

IFS="

DISK="$( ssh -i $svc_sshkey -l $svc_user $svc_addr svcinfo lsvdisk -nohdr -bytes -delim :

| egrep -i "V.*$filter" | cut -d: -f2,8 | sort )"

# Get a unique list of systems

for system in $SYSTEMS ; do

VDISKS="$( echo $DISK | sed "s, ,n,g" | grep $system | sed "s,:,: ," )"

SYSTEM_TOTAL="$( echo $DISK | sed "s, ,n,g" | grep $system | cut -d: -f2 | awk '{SUM += $1} END { printf "%.2f", SUM }' )"

for vdisk in $VDISKS ; do

NAME="$( echo $vdisk | cut -d: -f1 )"

SIZE="$( echo $vdisk | cut -d: -f2 | sed "s,^ ,," )"

GB_SIZE="$( echo "$SIZE / 1024 / 1024 / 1024" | bc )"

if [ $GB_SIZE -eq 0 ] ; then

GB_SIZE="$( echo "scale=2; $SIZE / 1024 / 1024 / 1024" | bc )"

GB_SIZE="${GB_SIZE/./0.}"

echo "$NAME: ${GB_SIZE/./,} GB"

done

SUB_TOTAL_SYSTEM="$( echo "scale=2; $SYSTEM_TOTAL / 1024 / 1024 / 1024" | bc )"

echo "SUB TOTAL: ${SUB_TOTAL_SYSTEM/./,} GB"

echo

done

TOTAL="$( echo $DISK | sed "s, ,n,g" | cut -d: -f2 | awk '{SUM += $1} END { printf "%.2f", SUM }' )"

TOTAL="$( echo "scale=2; $TOTAL / 1024 / 1024 / 1024" | bc ) GB"

echo "------------------------------------------------"

echo $TOTAL

exit 0

I gotta say, once again I learned a lot … two new things about awk!

I know the report itself doesn’t look *that* pretty, but it serves a purpose!

Displaying Windows Architecture with bginfo

June 18, 2010June 21, 2013 Christian Leave a comment

On all our servers in the basement, we do have bginfo installed, in order to quickly get certain information. Now as I was struggling with a big Service Pack roll out, I looked into making bginfo also display the OS architecture. But apparently it isn’t that easy … At least bginfo doesn’t provide it by default.

After (yet another hour in front of Google), I finally found what I was looking for. At first I didn’t limit the query on a specific CPU, but that turned out to be shitty (x32 being displayed twice, once for each CPU). But after limiting it to DeviceID=’CPU0′ it works like a charm 😉

AutoYAST and custom swap partitioning

June 3, 2010June 21, 2013 Christian Leave a comment

Well, we’ve been discussing our swap partitioning the last few days at work, and I finally got around to implementing it. Again, it proved to be kinda hard, basically because AutoYAST decides to do things differently. Read More

SLES10 not installing boot loader in MBR

June 3, 2010August 8, 2014 Christian Leave a comment

Well, as I mentioned in my earlier post, I had some trouble during the week. I was having issues with SLES10 installations not finishing during the bootloader installation phase. After trying out different flavors (as in 10SP2 x64/x86, …), and not having any luck with this, I went searching on Google as a last effort try. Guess what, yet again Google helped me out!

It was pretty simple. Putting /dev/cciss/c0d0 into /boot/grub/device.map as (hd0) made the grub-installer finish. Now, figuring out how to transfer those information during the installation proved difficult. I was just about to give up, while reading through the AutoYAST documentation, when it struck me. There is even an extra chapter for this stuff, so simply putting the following into my profile solved my issues:

	&lt;bootloader&gt;
		&lt;device_map config:type="list"&gt;
			&lt;device_map_entry&gt;
				&lt;firmware&gt;hd0&lt;/firmware&gt;
				&lt;linux&gt;/dev/cciss/c0d0&lt;/linux&gt;
			&lt;/device_map_entry&gt;
		&lt;/device_map&gt;
	&lt;/bootloader&gt;

<device_map config:type="list">

<device_map_entry>

<linux>/dev/cciss/c0d0</linux>

</device_map_entry>

</device_map>

</bootloader>

Reset Master Boot Record (MBR)

June 3, 2010June 21, 2013 Christian 1 Comment

Since I’ve been playing with my AutoYAST setup for the last few days, working out the kinks (for example SLES10 not being able to install into the MBR), I needed a way to zap the MBR (as in remove grub to see whether or not the installation would install a new loader). So after quickly googling, I found this:

 dd if=/dev/zero of=/dev/hda bs=512 count=1

1	dd if=/dev/zero of=/dev/hda bs=512 count=1

That actually does the trick. The loader as well as the partition table are gone after wards!

VMware Consolidated Backup and TRANSPORT_MODE=”hotadd”

March 18, 2010June 21, 2013 Christian Leave a comment

As the title says, I’ve been playing with vCB (inside a VM) and the TSM integration with newer (>6.0) clients for work. Result of all this work should be a feasibility study. We’re currently thinking about replacing our VMware server(s) with ESXi. But as most of you know, if you install ESXi, you simply can’t install anything (well, you can .. on ~100KB of disk space, which is compared to a TSM client weighing roughly 120MB nothing!). As we would like the possibility to backup VMs on image-level, I went looking at solutions.

VMware Data Recovery
VMware Consolidated Backup
vRanger, ……

As I was looking for something that wouldn’t cost us any money (thus excluding the third), I took a look at vDR and vCB. One point I do have to give to vDR is, that it’s damn fast. Only bad thing about vDR is that it doesn’t integrate at all with TSM, and it ain’t supported to install a TSM client inside the vDR VM. So vDR was also done for.

Only remaining thing was vCB. I remember way back when TSM didn’t support vCB directly, at which time it was *quite* the hassle to configure. But with newer TSM clients (as in the newer 6.x ones), IBM decided to integrate support for it. Which makes setting things up quite easy. You may think at least.

Since I wanted to use “hotadd” as transport mode for the vmdk’s (which is basically creating a snapshot of the vmdk and assigning that snapshot to the vCB VM), I did have to tinker around with some JavaScript files in %ProgramFiles%VMwareVMware Consolidated Backup. Sure, it isn’t supported by VMware (which is a bit lame since they announced the EOL for vCB with the upcoming vSphere version), but I didn’t want to open a support request. I’m lazy, yep:

Change DEFAULT_TRANSPORT_MODE in utils.js from “san” to “hotadd“. But apparently this only solved the backup method for vmdk-level, but not for file-level backups. The file-level is still gonna use nbd (network block device), which kinda sucks since the backup is going out via network.

After doing that, the hotadd mode is still gonna fail, since apparently the denoted “VMware Consolidated Backup User” (vcb-user in my case) also needs permissions onto the datastore. The permissions the handbook sets for the user are okay, you just need to apply that role to your datastore(s) containing the VMs you want to backup too! Otherwise vcbMounter is gonna fail with a rather cryptic error telling you that it doesn’t have sufficient rights to create a linked clone.

Windows Server 2003: taskmgr giving “Logon failure”

February 25, 2010June 21, 2013 Christian Leave a comment

I had myself a lot of fun today. I ended up patching a Windows Server 2003 x64 SP1, where the Task Manager wouldn’t start anymore. It simply failed (or in case of right clicking on the task bar wouldn’t even appear), so I went downstairs and pulled a hard disk out of the RAID1 array, just to be sure.

I went ahead, installed SP2 (as you can see on the above picture) while having the jitters. Also installed the VirusScan I was scheduled to install, and the system came back online. Phewww.

After my maintenance window was over, I looked into this issue a bit deeper. First tried copying over a taskmgr.exe (both 32bit and 64bit) from another Windows Server 2003 x64 SP2 system with no luck. The next step, was looking at PATH. As it turns out it has something to do with that ….

C:&gt;echo %PATH%
C:WINDOWSsystem32;C:WINDOWS;C:WINDOWSSystem32Wbem
C:&gt;taskmgr
The system cannot execute the specified program.
C:&gt;set PATH=C:WINDOWSSysWOW64;C:WINDOWSsystem32;C:WINDOWS;C:WINDOWSSystem32Wbem
C:&gt;taskmgr
C:&gt;

C:>echo %PATH%

C:WINDOWSsystem32;C:WINDOWS;C:WINDOWSSystem32Wbem

C:>taskmgr

The system cannot execute the specified program.

C:>set PATH=C:WINDOWSSysWOW64;C:WINDOWSsystem32;C:WINDOWS;C:WINDOWSSystem32Wbem

C:>taskmgr

C:>

As you can see, after fixing up the PATH environment variable, it works apparently .. Weirdly though, this issue doesn’t come up on another (identical) system, same PATH modifications, main difference: calling taskmgr.exe from the Run dialog works .. while it doesn’t on this particular system.

*Shrug* Gonna have to talk to my SAP guys tomorrow … 🙂

VMware vSphere: Safely remove network controller

February 19, 2010June 21, 2013 Christian 1 Comment

Well, it’s another day another fight. As we started migrating our VM’s from the old VMware ESX farms to the new environment, and upgraded the hardware suddenly the network devices were hot-plug-able, thus they did turn up in the “Safely Remove” dialog.

I myself don’t have any trouble with that. The trouble I do have is the people working with those VM’s and their possibly hazardous “uuuh, what’s this ? I don’t need this! <click-click, network-device unplugged>”

So I went googling (why isn’t that a dictionary term by now ?) and found something. Simple solution is to disable the hot plugging of hardware in the VM’s settings.

VBscript: Query remote OS and SP info (continued)

February 15, 2010August 8, 2014 Christian Leave a comment

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).~~