Virtual PC and Virtual Server verison numbers as well as additions

Have you ever tried to figure out if you had the latest VM additions installed on all your Virtual Guests?

This week I was at a customer site reviewing a Virtual Server 2005 R2 Deployment. At the customer site they had a mix of VM additions installed across the estate and no easy way of determining what the correct version numbers were. The first thing I needed was a list of VM addition numbers. This was provide to me by Brian Randell https://mcwtech.com/CS/blogs/brianr/archive/2008/10/10/virtual-pc-and-virtual-server-verison-numbers-as-well-as-additions.aspx

Virtual PC and Virtual Server verison numbers as well as additions.

Someone asked today so I thought I'd share it here too.

Next thing I needed to do was create a vbs script to query the virual server and output to an HTML table. I have posted the script here. I have tested this on Windows 2003 and Virtual Server 2005 R2 Sp1. This code work on all Virtual Server versions. I have not tested on Hyper-V yet. My plan is to write a PowerShell script for Hyper-v. Enjoy!

<---Code Snipit---->

'=========================================================
' Example Html table code from Name: WriteHTMLBrowser.vbs
' Author: Neal Walters
' https://VBScript-Training.com
'=========================================================

'=========================================================
' Name: getadditions.vbs
' Author: Duane Thomas
' https://blogs.technet.com/virtualworld
'
'This code is provided as is. No support is provided. Use at your own risk.
'
' Thanks Neal Walters for the html table code example.
'=========================================================

On Error Resume Next

dim myfilename, fso, oshell, forReading, forWriting
dim path, program, fullProgName, myTextStream, ynCreate
dim obj
Set objVS = CreateObject("VirtualServer.Application")
set colVMs = objVS.VirtualMachines

Set objGuestOS = objVM.GuestOS
set fso = CreateObject("Scripting.FileSystemObject")
set oshell = CreateObject("Wscript.Shell")

myfilename = "c:\vmaddition.html"

forReading = 1: forWriting = 2: ynCreate = 1
set myTextStream = fso.OpenTextFile(myfilename,forWriting,ynCreate)

myTextStream.Write "<h1>Virtual Machine Additions</H1>"
myTextStream.Write "<table border=1 cellspacing=2 cellpadding=3>" & vbcrlf

myTextStream.Write "<tr>" & vbcrlf

myTextStream.Write "<th>Name</td>" & vbcrlf
myTextStream.Write "<th>Guest OS</td>" & vbcrlf
myTextStream.Write "<th>VM Addition Version</td>" & vbcrlf

myTextStream.Write "</tr>" & vbcrlf

For Each objVM in colVMS

myTextStream.Write "<tr>" & vbcrlf

myTextStream.Write "<td>" & objVM.Name & "</td>" & vbcrlf
myTextStream.Write "<td>" & objvm.GuestOS.OSName & "</td>" & vbcrlf
myTextStream.Write "<td>" & objvm.GuestOS.AdditionsVersion & "</td>" & vbcrlf

myTextStream.Write "</tr>" & vbcrlf

next

myTextStream.Write "</table>" & vbcrlf

myTextStream.Close

'path = "C:\Program Files\Internet Explorer"
program = "IEXPLORE"
'FullProgname = path & "\" & program
'WScript.Echo FullProgname
'OShell.Run (program)
OShell.Run (program & " " & myfilename)

<---Code Snipit---->