' Title   : Updated the SYSTEM Path environment variable to include
'           the 12 Hive BIN Folder
' Created : 03/08/2009
' Author  : Daniel Brown (Blog: http://www.danielbrown.id.au/)
' ==========================================================
' Variables
Dim SystemEnviroment, ShellInstance

' Create the Shell Object
Set ShellInstance = CreateObject("Wscript.Shell")

' Get the SYSTEM envrioment object
Set SystemEnviroment = ShellInstance.Environment("SYSTEM")

' Retrive the string representation of the PATH Envrionment variable
strPath = SystemEnviroment("Path")

' Append the 12 Hive path to the existing PATH Envrionment variable
SystemEnviroment("Path") = strPath & ";%CommonProgramFiles%\Microsoft Shared\web server extensions\12\BIN"

' Release Objects
Set SystemEnviroment = Nothing
Set ShellInstance = Nothing

' Completed
WScript.Echo "PATH Environment variable has been updated to : " & strPath