I found this while searching TechNet, here:
http://social.technet.microsoft.com/Forums/en-US/mdt/thread/5253b2e3-a60e-43a5-921d-a9acc6485d35

The change should have line 1101 looking like this when you’re done:
LPQuery = “PackageType = ‘LanguagePack’ and (ProductName = ‘Microsoft-Windows-Client-LanguagePack-Package’ or ProductName = ‘Microsoft-Windows-Client-Refresh-LanguagePack-Package’) and substring(ProductVersion,1,7) = ‘” & left(ImgBuild,7) & “‘ and substring(ProductVersion,5,4) >= ‘” & mid(ImgBuild,5,4) & “‘”

I’m not going to go into how to install Debian or software (honestly, running “apt-get install sendmail spamassassin mimedefang” can’t be that hard), but I have this sendmail.mc on my current Debian Lenny installation, and it deals with spam and ham with very good results:

divert(-1)dnl
# /etc/mail/sendmail.mc
# Last modified by cluberti at 01:48 - November 18, 2010
divert(0)dnl

dnl ##########################################################################
dnl # Sendmail-specific information
dnl ##########################################################################

define(`_USE_ETC_MAIL_')dnl
include(`/usr/share/sendmail/cf/m4/cf.m4')dnl
VERSIONID(`$Id: sendmail.mc, $j Sendmail')
OSTYPE(`debian')dnl
DOMAIN(`debian-mta')dnl
dnl # Items controlled by /etc/mail/sendmail.conf - DO NOT TOUCH HERE
undefine(`confHOST_STATUS_DIRECTORY')dnl        #DAEMON_HOSTSTATS=

dnl ##########################################################################
dnl # Machine-specific section
dnl ##########################################################################

FEATURE(`no_default_msa')dnl
DAEMON_OPTIONS(`Family=inet,  Name=MTA-v4, Port=smtp, Addr=ip.ad.dr.ess')dnl
DAEMON_OPTIONS(`Family=inet,  Name=MSP-v4, Port=submission, Addr=ip.ad.dr.ess')dnl
DAEMON_OPTIONS(`Family=inet,  Name=MTA-v4, Port=smtp, Addr=127.0.0.1')dnl
DAEMON_OPTIONS(`Family=inet,  Name=MSP-v4, Port=submission, Addr=127.0.0.1')dnl

define(`confBIND_OPTS', `WorkAroundBrokenAAAA')dnl
define(`confCONNECTION_RATE_THROTTLE', `15')dnl
define(`confCONNECTION_RATE_WINDOW_SIZE',`10m')dnl
define(`confREJECT_MSG', `550 Access denied')dnl
define(`confBAD_RCPT_THROTTLE',`3')dnl

FEATURE(`access_db', , `skip')dnl
FEATURE(`greet_pause', `1000')dnl 1 seconds
FEATURE(`delay_checks', `friend', `n')dnl
FEATURE(`conncontrol', `nodelay', `terminate')dnl
FEATURE(`ratecontrol', `nodelay', `terminate')dnl
FEATURE(`nouucp', `reject')dnl

dnl ##########################################################################
dnl # User-configurable section
dnl ##########################################################################

FEATURE(`use_cw_file')dnl
FEATURE(`genericstable')dnl
GENERICS_DOMAIN_FILE(`/etc/mail/generics-domains')dnl
FEATURE(`virtusertable')dnl
FEATURE(`redirect')dnl
FEATURE(`smrsh')dnl
FEATURE(`mailertable')dnl
FEATURE(`blacklist_recipients')dnl
FEATURE(`lookupdotdomain')dnl
FEATURE(`compat_check')dnl
FEATURE(`authinfo')dnl
FEATURE(`no_default_msa')dnl

FEATURE(`always_add_domain')dnl
MASQUERADE_AS(`mail.domain.tld')dnl
FEATURE(`allmasquerade')dnl
FEATURE(`masquerade_envelope')dnl

FEATURE(`enhdnsbl', `cbl.abuseat.org', `"Spam blocked see: http://cbl.abuseat.org/lookup.cgi?ip="$&;{client_addr}', `t')dnl
FEATURE(`enhdnsbl', `bl.spamcop.net', `"Spam blocked see: http://spamcop.net/bl.shtml?"$&{client_addr}', `t')dnl
FEATURE(`enhdnsbl', `zen.spamhaus.org', `"Spam blocked see: http://www.spamhaus.org/query/bl?ip="$&{client_addr}', `t')dnl

define(`ALIAS_FILE',`/etc/mail/aliases')dnl
define(`_QUIET_FREEWARE_')dnl
define(`confREJECT_MSG',`552 Spammer $&(client_addr) $&f rejected by Postmaster@$j - check_mail or check_relay')dnl
define(`confSMTP_LOGIN_MSG', mail.cluberti.com - UCE not welcome!)dnl
define(`confPRIVACY_FLAGS', `authwarnings noexpn novrfy needmailhelo needexpnhelo needvrfyhelo noreceipts ')dnl
define(`confTO_CONNECT', `2m')dnl
define(`confTO_IDENT', `0')dnl
define(`confTO_QUEUEWARN_URGENT', `29m')dnl
define(`confTO_QUEUEWARN_NORMAL', `4h')dnl
define(`confTO_QUEUEWARN_NONURGENT', `8h')dnl
define(`confTo_QUEUERETURN_URGENT', `59m')dnl
define(`confTo_QUEUERETURN_NORMAL', `8h')dnl
define(`confTo_QUEUERETURN_NONURGENT', `16h')dnl

INPUT_MAIL_FILTER(`mimedefang', `S=unix:/var/spool/MIMEDefang/mimedefang.sock, T=S:1m;R:1m')

MAILER_DEFINITIONS
MAILER(`local')dnl
MAILER(`smtp')dnl

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// NAME:        setpagefile.vbs
'//
'// Original:    http://www.cluberti.com/blog
'// Last Update: 16th June 2010
'//
'// Comment:     VBS example file for use in configuring the paging file on Windows
'//
'// NOTE:        Provided as-is - usage of this source assumes that you are at the
'//              very least familiar with the vbscript language being used and
'//              the tools used to create and debug this file.
'//
'//              In other words, if you break it, you get to keep the pieces.
'//
'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Option Explicit
Dim strComputer, strPageFileSizeInput, strPageFileNameInput, strInput
Dim objWMIService, objStaticPageFileItem, objDynamicPageFileItem, objShellApp
Dim colStaticPageFileItems, colDynamicPageFileItems, isRunning, execOutput, gErrData, bRebootNeeded, bNoStaticPageFile, bNoPageFile

'// Ensure that cscript is the engine used to run this script:
RunMeWithCScript()

On Error Resume Next

'// Configure our variables:
strComputer = "."
bRebootNeeded = False
bNoStaticPageFile = True
bNoPageFile = True

Set objShellApp = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
'// Win32_PageFile is deprecated - it still (mostly) works, but Win32_PageFileSetting is not deprecated, so use that:
Set colStaticPageFileItems = objWMIService.ExecQuery("SELECT * FROM Win32_PageFileSetting",,48)
Set colDynamicPageFileItems = objWMIService.ExecQuery("SELECT * FROM Win32_PageFileUsage",,48)

'// Execute the ChangePagingFile sub:
ChangePagingFile()

'// Check execution of ChangePagingFile(), and handle when "system managed" is set, or no paging file exists:
If bRebootNeeded = True Then
    RebootSystem()
Else
    '// Can't use WMI to create a paging file when it is "system managed" or none exists - handle this condition:
    If bNoStaticPageFile = True Then
        CheckForDynamicPagingFile()
        If bNoPageFile = False Then
            WScript.Quit
        Else
            If bNoPageFile = True Then
                WScript.Echo "No paging file found."
                WScript.Echo ""
                strPageFileNameInput = UserInput("Enter new pagefile name (full path and filename) - leave blank to use C:\pagefile.sys: ")
                strPageFileSizeInput = UserInput("Enter new pagefile size (in MB) - leave blank to keep the system with no paging file:  ")
               
                '// Check to see if the user left the input blank, otherwise set up a paging file:
                If Not strPageFileSizeInput = "" Then
                    If strPageFileNameInput = "" Then
                        strPageFileNameInput = "C:\pagefile.sys"
                    End If
                    WScript.Echo "New pagefile file will be: " & strPageFileNameInput
                    WScript.Echo "New pagefile size will be: " & strPageFileSizeInput & "MB"
                    bNoStaticPageFile = False
                   
                    '// Change the registry to add paging file information:
                    objShellApp.Exec("reg add ""HKLM\System\CurrentControlSet\Control\Session Manager\Memory Management"" /v PagingFiles /t REG_MULTI_SZ /d """ & strPageFileNameInput & " " & strPageFileSizeInput & " " & strPageFileSizeInput & """ /f")
                   
                    '// Check the return to make sure we succeeded - otherwise, tell the user why we didn't:
                    If Not Err.Number = 0 Then
                        gErrData = gErrData & vbCrLf & "Error writing to registry - reason: " & Err.Number & "  - " & Err.Description
                        WScript.Echo gErrData
                        Err.Clear
                    Else
                        WScript.Echo "Registry edit to add " & strPageFileNameInput & " as size " & strPageFileSizeInput & "MB was successful."
                        bRebootNeeded = True
                    End If
               
                '// If we've made changes that have succeeded, we need to reboot - otherwise, do nothing:
                    If bRebootNeeded = True Then
                        RebootSystem()
                    Else
                        WScript.Echo "No changes made that require a reboot.  Exiting script."
                    End If
                Else
                    WScript.Echo "You have elected to continue with no paging file.  Exiting script."
                End If
            Else
                WScript.Echo "No changes made that require a reboot.  Exiting script."
            End If
        End If
    End If
End If
Sub ChangePagingFile()
    For Each objStaticPageFileItem In colStaticPageFileItems
        '// There's a static paging file - use WMI to make changes:
        bNoStaticPageFile = False
        bNoPageFile = False
       
        WScript.Echo " --------------------------"
        WScript.Echo "  Current PageFile Details"
        WScript.Echo " --------------------------"
        WScript.Echo "Name:                " & objStaticPageFileItem.Name
        WScript.Echo "InitialSize:         " & objStaticPageFileItem.InitialSize
        WScript.Echo "MaximumSize:         " & objStaticPageFileItem.MaximumSize
        WScript.Echo ""
       
        '// Get user input:
        strInput = UserInput("Enter new pagefile size (in MB) - leave blank to delete existing paging file: ")
       
        '// If the user entered a value, configure the new paging file size:
        If Not strInput = "" Then
        WScript.Echo "New pagefile size will be: " & strInput & "MB"
            WScript.Echo ""
           
            objStaticPageFileItem.InitialSize = strInput
            objStaticPageFileItem.MaximumSize = strInput
            objStaticPageFileItem.Put_
            bRebootNeeded = True
           
            WScript.Echo " --------------------------"
            WScript.Echo "    New PageFile Details"
            WScript.Echo " --------------------------"
            WScript.Echo "Name:                " & objStaticPageFileItem.Name
            WScript.Echo "InitialSize:         " & objStaticPageFileItem.InitialSize
            WScript.Echo "MaximumSize:         " & objStaticPageFileItem.MaximumSize
            WScript.Echo ""
            WScript.Echo "A reboot is needed for this change to take effect."
       
        '// If the user left the input blank, delete the paging file - note that Delete and DeleteEx from Win32_PagingFile are deprecated, and
        '// while they'll return 0 on Windows 7, they don't actually delete the paging file.  Using reg add instead, as it works just fine:
        Else
            WScript.Echo "Deleting paging file: " & objStaticPageFileItem.Name
            objShellApp.Exec("reg add ""HKLM\System\CurrentControlSet\Control\Session Manager\Memory Management"" /v PagingFiles /t REG_MULTI_SZ /d """" /f")
           
            '// Check the return to make sure we succeeded - otherwise, tell the user why we didn't:
            If Not Err.Number = 0 Then
                gErrData = gErrData & vbCrLf & "Error writing to registry - reason: " & Err.Number & "  - " & Err.Description
                WScript.Echo gErrData
                Err.Clear
            Else
                WScript.Echo "Registry edit to remove " & objStaticPageFileItem.Name & " was successful."
                bRebootNeeded = True
            End If
        End If
    Next
End Sub
Sub CheckForDynamicPagingFile()
    For Each objDynamicPageFileItem In colDynamicPageFileItems
        '// There's a paging file - use WMI to make changes:
        bNoPageFile = False
       
        WScript.Echo "Paging file is configured for 'System managed size'"
        WScript.Echo ""

        WScript.Echo " --------------------------"
        WScript.Echo "  Current PageFile Details"
        WScript.Echo " --------------------------"
        WScript.Echo "Name:                " & objDynamicPageFileItem.Name
        WScript.Echo "Size:                " & objDynamicPageFileItem.AllocatedBaseSize
        WScript.Echo "Current Usage:       " & objDynamicPageFileItem.CurrentUsage
        WScript.Echo ""
       
        WScript.Echo ""
        strPageFileNameInput = UserInput("Enter new pagefile name (full path and filename) - leave blank to use C:\pagefile.sys: ")
        strPageFileSizeInput = UserInput("Enter new pagefile size (in MB) - leave blank to remove the paging file:               ")
       
        '// Check to see if the user left the input blank, otherwise set up a paging file:
        If Not strPageFileSizeInput = "" Then
            If strPageFileNameInput = "" Then
                strPageFileNameInput = "C:\pagefile.sys"
            End If
            WScript.Echo "New pagefile file will be: " & strPageFileNameInput
            WScript.Echo "New pagefile size will be: " & strPageFileSizeInput & "MB"
            bNoStaticPageFile = False
           
            '// Change the registry to add paging file information:
            objShellApp.Exec("reg add ""HKLM\System\CurrentControlSet\Control\Session Manager\Memory Management"" /v PagingFiles /t REG_MULTI_SZ /d """ & strPageFileNameInput & " " & strPageFileSizeInput & " " & strPageFileSizeInput & """ /f")
               
                '// Check the return to make sure we succeeded - otherwise, tell the user why we didn't:
                If Not Err.Number = 0 Then
                    gErrData = gErrData & vbCrLf & "Error writing to registry - reason: " & Err.Number & "  - " & Err.Description
                    WScript.Echo gErrData
                    Err.Clear
                Else
                    WScript.Echo "Registry edit to add " & strPageFileNameInput & " as size " & strPageFileSizeInput & "MB was successful."
                    bRebootNeeded = True
                End If
           
            '// If we've made changes that have succeeded, we need to reboot - otherwise, do nothing:
            If bRebootNeeded = True Then
                RebootSystem()
                WScript.Quit
            Else
                WScript.Echo "No changes made that require a reboot.  Exiting script."
                WScript.Quit
            End If
       
        '// If the user left the input blank, delete the paging file - note that Delete and DeleteEx from Win32_PagingFile are deprecated, and
        '// while they'll return 0 on Windows 7, they don't actually delete the paging file.  Using reg add instead, as it works just fine:
        Else
            WScript.Echo "Deleting paging file: " & objDynamicPageFileItem.Name
            objShellApp.Exec("reg add ""HKLM\System\CurrentControlSet\Control\Session Manager\Memory Management"" /v PagingFiles /t REG_MULTI_SZ /d """" /f")
           
            '// Check the return to make sure we succeeded - otherwise, tell the user why we didn't:
            If Not Err.Number = 0 Then
                gErrData = gErrData & vbCrLf & "Error writing to registry - reason: " & Err.Number & "  - " & Err.Description
                WScript.Echo gErrData
                Err.Clear
            Else
                WScript.Echo "Registry edit to remove " & objDynamicPageFileItem.Name & " was successful."
                bRebootNeeded = True
            End If
        End If
    Next
End Sub
Sub RebootSystem()
    WScript.Echo "The system will reboot in 5 seconds..."
    Set isRunning = objShellApp.Exec("shutdown /r /t 5 /f /d p:2:4")
    '// As long as shutdown.exe is running, wait:
    Do While isRunning.Status = 0
        WScript.Sleep 100
        execOutput = isRunning.StdOut.ReadAll
    Loop
End Sub
Function UserInput(strInput)
    WScript.StdOut.Write strInput & " "
    UserInput = WScript.StdIn.ReadLine
End Function
On Error GoTo 0
Sub RunMeWithCScript()
    Dim ScriptEngine, engineFolder, Args, arg, scriptName, argString, scriptCommand
   
    ScriptEngine = UCase(Mid(WScript.FullName, InstrRev(WScript.FullName, "\") + 1))
    engineFolder = Left(WScript.FullName, InstrRev(WScript.FullName, "\"))
    argString = ""
   
    If ScriptEngine = "WSCRIPT.EXE" Then
        Dim Shell
        Set Shell = CreateObject("WScript.Shell")
        Set Args = WScript.Arguments
       
        For Each arg in Args
            If InStr(arg, " ") > 0 Then arg = """" & arg & """"
            argString = argString & " " & Arg
        Next
       
        scriptCommand = "cmd.exe /k " & engineFolder & "cscript.exe """ & WScript.ScriptFullName & """" & argString
       
        Shell.Run scriptCommand, , False
        WScript.Quit
    Else
        Exit Sub
    End If
End Sub

Again, another side project – a computer info VBScript. I’ve modified it a bit to output information to screen (execute with cscript from a cmd prompt), but this could be modified to do a lot more. This is just a simple script template, and as usual I’m posting here for consumption in the event anyone finds this useful:

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// NAME:        osinfo.vbs
'//
'// Original:    http://www.cluberti.com/blog
'// Last Update: 15th January 2010
'//
'// Comment:     VBS example file for use as an OS info gathering template.
'//
'// NOTE:        Provided as-is - usage of this source assumes that you are at the
'//              very least familiar with the vbscript language being used and
'//              the tools used to create and debug this file.
'//
'//              In other words, if you break it, you get to keep the pieces.
'//
'//              Also, if you want to use this on W2K, prepare to hack, as this
'//              was really designed with XP+ systems in mind.
'//
'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// This script will require elevated privileges if run from a non-admin account, so
'// calling the ElevateThisScript() Sub should get the script a full admin token. This is
'// currently disabled, but if you need non-admin users to run this script, enable the
'// call to this subroutine to pop-up a dialog box (they'll of course need administrative
'// credentials to put in the challenge dialog before the script will execute with an
'// administrative token):

Dim ScriptHelper
Set ScriptHelper = New ScriptHelperClass

ScriptHelper.RunMeWithCScript()
'ScriptHelper.ElevateThisScript()

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set variables and WMI connections for scripting against:

strComputer = ScriptHelper.Network.ComputerName

CONST HKEY_CLASSES_ROOT  = &H80000000
CONST HKEY_CURRENT_USER  = &H80000001
CONST HKEY_LOCAL_MACHINE = &H80000002
CONST HKEY_USERS         = &H80000003
CONST KEY_QUERY_VALUE      = 1
CONST KEY_SET_VALUE          = 2
CONST SEARCH_KEY = "DigitalProductID"

Dim arrSubKeys(4,1)
Dim foundKeys
Dim iValues, arrDPID
foundKeys = Array()
iValues = Array()
arrSubKeys(0,0) = "Windows PID Key:       "
arrSubKeys(0,1) = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
arrSubKeys(2,0) = "Office XP PID Key:     "
arrSubKeys(2,1) = "SOFTWARE\Microsoft\Office\10.0\Registration"
arrSubKeys(1,0) = "Office 2003 PID Key:   "
arrSubKeys(1,1) = "SOFTWARE\Microsoft\Office\11.0\Registration"
arrSubKeys(3,0) = "Office 2007 PID Key:   "
arrSubKeys(3,1) = "SOFTWARE\Microsoft\Office\12.0\Registration"
arrSubKeys(4,0) = "Office 2010 PID Key:   "

Arch = ""
Sku = ""

Set colOSItems = ScriptHelper.WMI.ExecQuery( _
    "SELECT * FROM Win32_OperatingSystem",,48)

Set colProcItems = ScriptHelper.WMI.ExecQuery( _
    "SELECT * FROM Win32_Processor",,48)

Set colCompSysItems = ScriptHelper.WMI.ExecQuery( _
    "SELECT * FROM Win32_ComputerSystem",,48)

Set colTZItems = ScriptHelper.WMI.ExecQuery( _
    "SELECT * FROM Win32_TimeZone",,48)

Set colCompSysProdItems = ScriptHelper.WMI.ExecQuery( _
    "SELECT * FROM Win32_ComputerSystemProduct",,48)

Set colBIOSItems = ScriptHelper.WMI.ExecQuery( _
    "SELECT * FROM Win32_BIOS",,48)

Set colDiskItems = ScriptHelper.WMI.ExecQuery( _
    "SELECT * FROM Win32_LogicalDisk",,48)

Set colNetAdapConfigItems = ScriptHelper.WMI.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48)

Set colVideoItems = ScriptHelper.WMI.ExecQuery( _
    "SELECT * FROM Win32_VideoController",,48)

Set colSoundItems = ScriptHelper.WMI.ExecQuery( _
    "SELECT * FROM Win32_SoundDevice",,48)

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// If Office 2010 is installed, find the Office 2010 registry key holding the ProductID:

Dim strKey, subkey, arrSubkeys2, strOfficeKey, strValue
strKey = "SOFTWARE\Microsoft\Office\14.0\Registration"

ScriptHelper.Registry.EnumKey HKEY_LOCAL_MACHINE, strKey, arrSubkeys2
If IsNull(arrSubkeys2) Then
    'Office 2010 not installed, skip it
    arrSubKeys(4,1) = ""
Else
    For Each subkey In arrSubkeys2
        ScriptHelper.Registry.GetBinaryValue HKEY_LOCAL_MACHINE, strKey & "\" & subkey, SEARCH_KEY, strValue
        If IsNull(strValue) Then
            strOfficeKey = ""
        Else
            strOfficeKey = strKey & "\" & subkey
            arrSubKeys(4,1) = strOfficeKey
        End If
    Next
End If

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Get OS SKU from Win32_OperatingSystem class:

    For Each objOSItem in colOSItems
    If objOSItem.BuildNumber => 6000 Then
        Arch = objOSItem.OSArchitecture

        Select Case objOSItem.OperatingSystemSKU
            Case 0 Sku = "Unknown Windows version"
            Case 1 Sku = "Ultimate Edition"
            Case 2 Sku = "Home Basic Edition"
            Case 3 Sku = "Home Premium Edition"
            Case 4 Sku = "Enterprise Edition"
            Case 5 Sku = "Home Basic N Edition"
            Case 6 Sku = "Business Edition"
            Case 7 Sku = "Standard Server Edition"
            Case 8 Sku = "Datacenter Server Edition"
            Case 9 Sku = "Small Business Server Edition"
            Case 10 Sku = "Enterprise Server Edition"
            Case 11 Sku = "Starter Edition"
            Case 12 Sku = "Datacenter Server Core Edition"
            Case 13 Sku = "Standard Server Core Edition"
            Case 14 Sku = "Enterprise Server Core Edition"
            Case 15 Sku = "Enterprise Server Edition for Itanium-Based Systems"
            Case 16 Sku = "Business N Edition"
            Case 17 Sku = "Web Server Edition"
            Case 18 Sku = "Cluster Server Edition"
            Case 19 Sku = "Home Server Edition"
            Case 20 Sku = "Storage Express Server Edition"
            Case 21 Sku = "Storage Standard Server Edition"
            Case 22 Sku = "Storage Workgroup Server Edition"
            Case 23 Sku = "Storage Enterprise Server Edition"
            Case 24 Sku = "Server For Small Business Edition"
            Case 25 Sku = "Small Business Server Premium Edition"
            Case Else
            Sku = "Could Not Determine Operating System SKU"
        End Select
    End If

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Get current OS locale setting from Win32_OperatingSystem class:

        Select Case objOSItem.Locale
            Case 0436 Locale = "Afrikaans (South Africa)"
            Case 041c Locale = "Albanian (Albania)"
            ' Case 045e Locale = "Amharic (Ethiopia)"
            Case 0401 Locale = "Arabic (Saudi Arabia)"
            Case 1401 Locale = "Arabic (Algeria)"
            Case 3c01 Locale = "Arabic (Bahrain)"
            Case 0c01 Locale = "Arabic (Egypt)"
            Case 0801 Locale = "Arabic (Iraq)"
            Case 2c01 Locale = "Arabic (Jordan)"
            Case 3401 Locale = "Arabic (Kuwait)"
            Case 3001 Locale = "Arabic (Lebanon)"
            Case 1001 Locale = "Arabic (Libya)"
            Case 1801 Locale = "Arabic (Morocco)"
            Case 2001 Locale = "Arabic (Oman)"
            Case 4001 Locale = "Arabic (Qatar)"
            Case 2801 Locale = "Arabic (Syria)"
            Case 1c01 Locale = "Arabic (Tunisia)"
            Case 3801 Locale = "Arabic (U.A.E.)"
            Case 2401 Locale = "Arabic (Yemen)"
            Case 042b Locale = "Armenian (Armenia)"
            Case 044d Locale = "Assamese"
            Case 082c Locale = "Azeri (Cyrillic)"
            Case 042c Locale = "Azeri (Latin)"
            Case 042d Locale = "Basque"
            Case 0423 Locale = "Belarusian"
            Case 0445 Locale = "Bengali (India)"
            Case 0845 Locale = "Bengali (Bangladesh)"
            Case 141A Locale = "Bosnian (Bosnia/Herzegovina)"
            Case 0402 Locale = "Bulgarian"
            Case 0455 Locale = "Burmese"
            Case 0403 Locale = "Catalan"
            Case 045c Locale = "Cherokee (United States)"
            Case 0804 Locale = "Chinese (PRC)"
            Case 1004 Locale = "Chinese (Singapore)"
            Case 0404 Locale = "Chinese (Taiwan)"
            Case 0c04 Locale = "Chinese (Hong Kong SAR)"
            Case 1404 Locale = "Chinese (Macao SAR)"
            Case 041a Locale = "Croatian"
            Case 101a Locale = "Croatian (Bosnia/Herzegovina)"
            Case 0405 Locale = "Czech"
            Case 0406 Locale = "Danish"
            Case 0465 Locale = "Divehi"
            Case 0413 Locale = "Dutch (Netherlands)"
            Case 0813 Locale = "Dutch (Belgium)"
            Case 0466 Locale = "Edo"
            Case 0409 Locale = "English (United States)"
            Case 0809 Locale = "English (United Kingdom)"
            Case 0c09 Locale = "English (Australia)"
            Case 2809 Locale = "English (Belize)"
            Case 1009 Locale = "English (Canada)"
            Case 2409 Locale = "English (Caribbean)"
            Case 3c09 Locale = "English (Hong Kong SAR)"
            Case 4009 Locale = "English (India)"
            Case 3809 Locale = "English (Indonesia)"
            Case 1809 Locale = "English (Ireland)"
            Case 2009 Locale = "English (Jamaica)"
            Case 4409 Locale = "English (Malaysia)"
            Case 1409 Locale = "English (New Zealand)"
            Case 3409 Locale = "English (Philippines)"
            Case 4809 Locale = "English (Singapore)"
            Case 1c09 Locale = "English (South Africa)"
            Case 2c09 Locale = "English (Trinidad)"
            Case 3009 Locale = "English (Zimbabwe)"
            Case 0425 Locale = "Estonian"
            Case 0438 Locale = "Faroese"
            Case 0429 Locale = "Farsi"
            Case 0464 Locale = "Filipino"
            Case 040b Locale = "Finnish"
            Case 040c Locale = "French (France)"
            Case 080c Locale = "French (Belgium)"
            Case 2c0c Locale = "French (Cameroon)"
            Case 0c0c Locale = "French (Canada)"
            Case 240c Locale = "French (DRC)"
            Case 300c Locale = "French (Cote d'Ivoire)"
            Case 3c0c Locale = "French (Haiti)"
            Case 140c Locale = "French (Luxembourg)"
            Case 340c Locale = "French (Mali)"
            Case 180c Locale = "French (Monaco)"
            Case 380c Locale = "French (Morocco)"
            Case e40c Locale = "French (North Africa)"
            Case 200c Locale = "French (Reunion)"
            Case 280c Locale = "French (Senegal)"
            Case 100c Locale = "French (Switzerland)"
            Case 1c0c Locale = "French (West Indies)"
            Case 0462 Locale = "Frisian (Netherlands)"
            Case 0467 Locale = "Fulfulde (Nigeria)"
            Case 042f Locale = "FYRO Macedonian"
            Case 083c Locale = "Gaelic (Ireland)"
            Case 043c Locale = "Gaelic (Scotland)"
            Case 0456 Locale = "Galician"
            Case 0437 Locale = "Georgian"
            Case 0407 Locale = "German (Germany)"
            Case 0c07 Locale = "German (Austria)"
            Case 1407 Locale = "German (Liechtenstein)"
            Case 1007 Locale = "German (Luxembourg)"
            Case 0807 Locale = "German (Switzerland)"
            Case 0408 Locale = "Greek"
            Case 0474 Locale = "Guarani (Paraguay)"
            Case 0447 Locale = "Gujarati"
            Case 0468 Locale = "Hausa (Nigeria)"
            Case 0475 Locale = "Hawaiian (United States)"
            Case 040d Locale = "Hebrew"
            Case 0439 Locale = "Hindi"
            ' Case 040e Locale = "Hungarian"
            Case 0469 Locale = "Ibibio (Nigeria)"
            Case 040f Locale = "Icelandic"
            Case 0470 Locale = "Igbo (Nigeria)"
            Case 0421 Locale = "Indonesian"
            Case 045d Locale = "Inuktitut"
            Case 0410 Locale = "Italian (Italy)"
            Case 0810 Locale = "Italian (Switzerland)"
            Case 0411 Locale = "Japanese"
            Case 044b Locale = "Kannada"
            Case 0471 Locale = "Kanuri (Nigeria)"
            Case 0860 Locale = "Kashmiri"
            Case 0460 Locale = "Kashmiri (Arabic)"
            Case 043f Locale = "Kazakh"
            Case 0453 Locale = "Khmer"
            Case 0457 Locale = "Konkani"
            Case 0412 Locale = "Korean"
            Case 0440 Locale = "Kyrgyz (Cyrillic)"
            Case 0454 Locale = "Lao"
            Case 0476 Locale = "Latin"
            Case 0426 Locale = "Latvian"
            Case 0427 Locale = "Lithuanian"
            ' Case 043e Locale = "Malay (Malaysia)"
            ' Case 083e Locale = "Malay (Brunei Darussalam)"
            Case 044c Locale = "Malayalam"
            Case 043a Locale = "Maltese"
            Case 0458 Locale = "Manipuri"
            Case 0481 Locale = "Maori (New Zealand)"
            ' Case 044e Locale = "Marathi"
            Case 0450 Locale = "Mongolian (Cyrillic)"
            Case 0850 Locale = "Mongolian (Mongolian)"
            Case 0461 Locale = "Nepali"
            Case 0861 Locale = "Nepali (India)"
            Case 0414 Locale = "Norwegian (Bokmål)"
            Case 0814 Locale = "Norwegian (Nynorsk)"
            Case 0448 Locale = "Oriya"
            Case 0472 Locale = "Oromo"
            Case 0479 Locale = "Papiamentu"
            Case 0463 Locale = "Pashto"
            Case 0415 Locale = "Polish"
            Case 0416 Locale = "Portuguese (Brazil)"
            Case 0816 Locale = "Portuguese (Portugal)"
            Case 0446 Locale = "Punjabi"
            Case 0846 Locale = "Punjabi (Pakistan)"
            Case 046B Locale = "Quecha (Bolivia)"
            Case 086B Locale = "Quecha (Ecuador)"
            Case 0C6B Locale = "Quecha (Peru)"
            Case 0417 Locale = "Rhaeto-Romanic"
            Case 0418 Locale = "Romanian"
            Case 0818 Locale = "Romanian (Moldava)"
            Case 0419 Locale = "Russian"
            Case 0819 Locale = "Russian (Moldava)"
            Case 043b Locale = "Sami (Lappish)"
            Case 044f Locale = "Sanskrit"
            Case 046c Locale = "Sepedi"
            Case 0c1a Locale = "Serbian (Cyrillic)"
            Case 081a Locale = "Serbian (Latin)"
            Case 0459 Locale = "Sindhi (India)"
            Case 0859 Locale = "Sindhi (Pakistan)"
            Case 045b Locale = "Sinhalese (Sri Lanka)"
            Case 041b Locale = "Slovak"
            Case 0424 Locale = "Slovenian"
            Case 0477 Locale = "Somali"
            ' Case 042e Locale = "Sorbian"
            Case 0c0a Locale = "Spanish (Spain - Modern Sort)"
            Case 040a Locale = "Spanish (Spain - Traditional Sort)"
            Case 2c0a Locale = "Spanish (Argentina)"
            Case 400a Locale = "Spanish (Bolivia)"
            Case 340a Locale = "Spanish (Chile)"
            Case 240a Locale = "Spanish (Colombia)"
            Case 140a Locale = "Spanish (Costa Rica)"
            Case 1c0a Locale = "Spanish (Dominican Republic)"
            Case 300a Locale = "Spanish (Ecuador)"
            Case 440a Locale = "Spanish (El Salvador)"
            Case 100a Locale = "Spanish (Guatemala)"
            Case 480a Locale = "Spanish (Honduras)"
            Case 580a Locale = "Spanish (Latin America)"
            Case 080a Locale = "Spanish (Mexico)"
            Case 4c0a Locale = "Spanish (Nicaragua)"
            Case 180a Locale = "Spanish (Panama)"
            Case 3c0a Locale = "Spanish (Paraguay)"
            Case 280a Locale = "Spanish (Peru)"
            Case 500a Locale = "Spanish (Puerto Rico)"
            Case 540a Locale = "Spanish (United States)"
            Case 380a Locale = "Spanish (Uruguay)"
            Case 200a Locale = "Spanish (Venezuela)"
            Case 0430 Locale = "Sutu"
            Case 0441 Locale = "Swahili"
            Case 041d Locale = "Swedish"
            Case 081d Locale = "Swedish (Finland)"
            Case 045a Locale = "Syriac"
            Case 0428 Locale = "Tajik"
            Case 045f Locale = "Tamazight (Arabic)"
            Case 085f Locale = "Tamazight (Latin)"
            Case 0449 Locale = "Tamil"
            Case 0444 Locale = "Tatar"
            Case 044a Locale = "Telugu"
            ' Case 041e Locale = "Thai"
            Case 0851 Locale = "Tibetan (Bhutan)"
            Case 0451 Locale = "Tibetan (PRC)"
            Case 0873 Locale = "Tigrigna (Eritrea)"
            Case 0473 Locale = "Tigrigna (Ethiopia)"
            Case 0431 Locale = "Tsonga"
            Case 0432 Locale = "Tswana"
            Case 041f Locale = "Turkish"
            Case 0442 Locale = "Turkmen"
            Case 0480 Locale = "Uighur (China)"
            Case 0422 Locale = "Ukrainian"
            Case 0420 Locale = "Urdu"
            Case 0820 Locale = "Urdu (India)"
            Case 0843 Locale = "Uzbek (Cyrillic)"
            Case 0443 Locale = "Uzbek (Latin)"
            Case 0433 Locale = "Venda"
            Case 042a Locale = "Vietnamese"
            Case 0452 Locale = "Welsh"
            Case 0434 Locale = "Xhosa"
            Case 0478 Locale = "Yi"
            Case 043d Locale = "Yiddish"
            Case 046a Locale = "Yoruba"
            Case 0435 Locale = "Zulu"
            Case 04ff Locale = "HID (Human Interface Device)"
            Case Else
            Locale = "Could Not Determine OS Locale"
        End Select

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set variables gathered from Win32_OperatingSystem class:

        Caption = objOSItem.Caption
        CSDVersion = objOSItem.CSDVersion
        CSName = objOSItem.CSName
        Version = objOSItem.Version
        BuildType = objOSItem.BuildType
        BuildNumber = objOSItem.BuildNumber
        SerialNumber = objOSItem.SerialNumber

        ScriptHelper.SWbemDateTime.Value = objOSItem.InstallDate
        InstallDate = ScriptHelper.SWbemDateTime.GetVarDate(True)

        ScriptHelper.SWbemDateTime.Value = objOSItem.LastBootUpTime
        LastBootUpTime = ScriptHelper.SWbemDateTime.GetVarDate(True)

        Status = objOSItem.Status
    Next

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set variables gathered from Win32_ComputerSystem class:

    For Each objCompSysItem in colCompSysItems
        CurrentTimeZone = objCompSysItem.CurrentTimeZone
        DaylightInEffect = objCompSysItem.DaylightInEffect
        TotalMemory = FormatNumber(objCompSysItem.TotalPhysicalMemory/1024^3, 2)
    Next

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set variables gathered from Win32_TimeZone class:

    For Each objTZItem in colTZItems
        TZName = objTZItem.StandardName
    Next

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set variables gathered from Win32_ComputerSystemProduct class:

    For Each objCompSysProdItem in colCompSysProdItems
        CompSysName = objCompSysProdItem.Name
        IdentifyingNumber = objCompSysProdItem.IdentifyingNumber
        UUID = objCompSysProdItem.UUID
    Next

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set variables gathered from Win32_BIOS class:

    For Each objBIOSItem in colBIOSItems
        SMBIOSVersion = objBIOSItem.SMBIOSBIOSVersion
    Next

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Start echoing output to the screen

    Wscript.Echo "     ------------------------------------------"
    Wscript.Echo "                   System Details"
    Wscript.Echo "     ------------------------------------------"
    Wscript.Echo ""
    Wscript.Echo "     Computer Name:        " & CSName
    Wscript.Echo ""
    Wscript.Echo ""
    Wscript.Echo "     Operating System Information:"
    Wscript.Echo "     ============================="
    Wscript.Echo "     Operating System:     " & Caption & Arch
    Wscript.Echo "     Version:               " & Version & " " & Sku & " " & CSDVersion
    Wscript.Echo "     Build Type:            " & BuildType
    Wscript.Echo "     Locale:                " & Locale
    Wscript.Echo "     Serial Number:         " & SerialNumber
    Wscript.Echo ""
    Wscript.Echo "     Current Time Zone:     " & TZName
    Wscript.Echo "     Offset from UTC:       " & CurrentTimeZone/60 & " hours"
    Wscript.Echo "     DST In Effect:         " & DaylightInEffect
    Wscript.Echo ""

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Get the product keys (function at the end of script):

GetKeys()

    Wscript.Echo ""
    Wscript.Echo "     Install Date:          " & InstallDate
    Wscript.Echo "     Last Boot Time:        " & LastBootUpTime
    Wscript.Echo "     Local Date/Time:       " & Now()
    Wscript.Echo ""
    Wscript.Echo "     System Status:         " & Status
    Wscript.Echo ""
    Wscript.Echo ""
    Wscript.Echo "     Hardware Information:"
    Wscript.Echo "     ====================="

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set and echo variables gathered from Win32_Processor class:

    For Each objProcItem in colProcItems
        Select Case objProcItem.Architecture
            Case 0 CPUArch = "x86"
            Case 1 CPUArch = "MIPS"
            Case 2 CPUArch = "Alpha"
            Case 3 CPUArch = "PowerPC"
            Case 6 CPUArch = "Itanium"
            Case 9 CPUArch = "x64"
            Case Else
            CPUArch = "Could Not Determine CPU Architecture"
        End Select
    Wscript.Echo "     CPU:                  " & objProcItem.Name & " (" & CPUArch & ")"
    Next
    Wscript.Echo ""
    Wscript.Echo "     Physical Memory:      " & TotalMemory & " GB"
    Wscript.Echo ""

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set variables gathered from Win32_VideoController class:

    For Each objVideoItem in colVideoItems
        Wscript.Echo "     Video Card:           " & objVideoItem.Name

        If Not objVideoItem.AdapterDACType = "" Then
            Wscript.Echo "     Adapter DAC:           " & objVideoItem.AdapterDACType
        End if

        Wscript.Echo "     PNP Device ID:         " & objVideoItem.PNPDeviceID

        If Not objVideoItem.AdapterRAM = "" Then
            Wscript.Echo "     Video RAM:             " & objVideoItem.AdapterRAM/1024^2 & " MB"
        End If

        Wscript.Echo "     Driver Version:        " & objVideoItem.DriverVersion

        On Error Resume Next
        ScriptHelper.SWbemDateTime.Value = objVideoItem.DriverDate
            If Err.number <> 0 Then
                DriverDate = ""
                ' No DriverDate, do not echo
            Else
                DriverDate = ScriptHelper.SWbemDateTime.GetVarDate(False)
                Wscript.Echo "     Driver Date:           " & DriverDate
            End If
        On Error Goto 0
        Wscript.Echo ""
    Next

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set variables gathered from Win32_SoundDevice class:

    For Each objSoundItem in colSoundItems
        Wscript.Echo "     Sound Card:           " & objSoundItem.Name
        Wscript.Echo "     Manufacturer:          " & objSoundItem.Manufacturer
        Wscript.Echo "     PNP Device ID:         " & objSoundItem.PNPDeviceID
        Wscript.Echo ""
    Next

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set variables gathered from Win32_LogicalDisk class:

    For Each objDiskItem in colDiskItems
        If objDiskItem.DriveType = 3 Then
            Wscript.Echo "     Volume:               " & objDiskItem.Caption
            Wscript.Echo "     Compressed:            " & objDiskItem.Compressed
            Wscript.Echo "     File System:           " & objDiskItem.FileSystem
            Wscript.Echo "     Volume Size:           " & FormatNumber(objDiskItem.Size/1024^3, 2) & " GB"
            Wscript.Echo "     Free Space:            " & FormatNumber(objDiskItem.FreeSpace/1024^3, 2) & " GB"
            Wscript.Echo ""
        End If
    Next

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Set variables gathered from Win32_NetworkAdapterConfiguration class:

    For Each objNetAdapConfigItem in colNetAdapConfigItems
        If isNull(objNetAdapConfigItem.IPAddress) Then
            '// Skip adapter, not currently used
        Else
            Wscript.Echo "     Network Adapter:      " & objNetAdapConfigItem.Description
            Wscript.Echo "     MAC Address:           " & objNetAdapConfigItem.MACAddress
            Wscript.Echo "     DHCP Enabled:          " & objNetAdapConfigItem.DHCPEnabled
            Wscript.Echo "     IP Address:            " & Join(objNetAdapConfigItem.IPAddress, ",")
            Wscript.Echo "     Subnet Mask:           " & Join(objNetAdapConfigItem.IPSubnet, ",")
            Wscript.Echo "     Default Gateway:       " & Join(objNetAdapConfigItem.DefaultIPGateway, ",")
            If objNetAdapConfigItem.DHCPEnabled = True Then

                ScriptHelper.SWbemDateTime.Value = objNetAdapConfigItem.DHCPLeaseObtained
                DHCPLeaseObtained = ScriptHelper.SWbemDateTime.GetVarDate(True)
                Wscript.Echo "     Lease Obtained:        " & DHCPLeaseObtained

                ScriptHelper.SWbemDateTime.Value = objNetAdapConfigItem.DHCPLeaseExpires
                DHCPLeaseExpires = ScriptHelper.SWbemDateTime.GetVarDate(True)
                Wscript.Echo "     Lease Exipres:         " & DHCPLeaseExpires

                Wscript.Echo "     DHCP Servers:          " & objNetAdapConfigItem.DHCPServer
            End If
            Wscript.Echo "     DNS Server:            " & Join(objNetAdapConfigItem.DNSServerSearchOrder, ",")
            If Not objNetAdapConfigItem.WINSPrimaryServer = "" Then
                Wscript.Echo "     WINS Primary Server:   " & objNetAdapConfigItem.WINSPrimaryServer
                If Not objNetAdapConfigItem.WINSSecondaryServer = "" Then
                    Wscript.Echo "     WINS Secondary Server: " & objNetAdapConfigItem.WINSPrimaryServer
                End If
                Wscript.Echo "     Enable LMHosts Lookup: " & objNetAdapConfigItem.WINSEnableLMHostsLookup
            End If
            Wscript.Echo ""
        End If
    Next
    Wscript.Echo ""
    Wscript.Echo "     System Information:"
    Wscript.Echo "     ==================="
    Wscript.Echo "     Computer:             " & CompSysName
    Wscript.Echo "     Serial Number:         " & IdentifyingNumber
    Wscript.Echo "     BIOS Version:          " & SMBIOSVersion
    Wscript.Echo "     UUID:                  " & UUID
    Wscript.Echo ""

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// This pause call is disabled, but you may wish to enable it if running this script
'// with the ElevateThisScript() subroutine call enabled above:

' PressEnter()

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Functions: GetKeys() and decodeKey(iValues, strProduct)
'//
'// Credit where credit is due - I found and modified script posted by user "Parabellum"
'// found on http://www.visualbasicscript.com/m42793.aspx, hacked it up a bit, and used
'// it here to post keys:

Public Function GetKeys()

    For x = LBound(arrSubKeys, 1) To UBound(arrSubKeys, 1)
    ScriptHelper.Registry.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1), SEARCH_KEY, arrDPIDBytes

        If Not IsNull(arrDPIDBytes) Then
            Call decodeKey(arrDPIDBytes, arrSubKeys(x,0))
        Else
            ScriptHelper.Registry.EnumKey HKEY_LOCAL_MACHINE, arrSubKeys(x,1), arrGUIDKeys

            If Not IsNull(arrGUIDKeys) Then
                For Each GUIDKey In arrGUIDKeys
                    ScriptHelper.Registry.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1) & "\" & GUIDKey, SEARCH_KEY, arrDPIDBytes

                    If Not IsNull(arrDPIDBytes) Then
                        Call decodeKey(arrDPIDBytes, arrSubKeys(x,0))
                    End If
                Next
            End If
        End If
    Next

End Function

    Public Function decodeKey(iValues, strProduct)

        Dim arrDPID
        arrDPID = Array()

            For i = 52 to 66
                ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
                arrDPID( UBound(arrDPID) ) = iValues(i)
            Next

        Dim arrChars
        arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")

            For i = 24 To 0 Step -1
                k = 0

                For j = 14 To 0 Step -1
                    k = k * 256 Xor arrDPID(j)
                    arrDPID(j) = Int(k / 24)
                    k = k Mod 24
                Next

                strProductKey = arrChars(k) & strProductKey

                If i Mod 5 = 0 And i <> 0 Then
                    strProductKey = "-" & strProductKey
                End If
            Next

        ReDim Preserve foundKeys( UBound(foundKeys) + 1 )
        foundKeys( UBound(foundKeys) ) = strProductKey
        strKey = UBound(foundKeys)
        Wscript.Echo "     " & strProduct & "" & foundKeys(strKey)
    End Function

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Subroutine: PressEnter()
'//
'// Adds a pause with a "Press the ENTER key to continue." message when called.
'//
'// Usage:  Call this Subroutine to get a pause that will clear when the user presses the
'// ENTER key (and ONLY the ENTER key) on their keyboard:

Sub PressEnter()
    Wscript.Echo ""
    strMessage = "Press the ENTER key to continue. "
    Wscript.StdOut.Write strMessage

    Do While Not WScript.StdIn.AtEndOfLine
        Input = WScript.StdIn.Read(1)
    Loop
End Sub

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// ScriptHelperClass and EnvironmentClass are helper classes to simplify
'// script work. Declare and use globally throughout the script.
'//
'//     Example code:
'//
'//     Option Explicit
'//     Dim ScriptHelper
'//     Set ScriptHelper = New ScriptHelperClass
'//     ScriptHelper.RunMeWithCScript()
'//     ScriptHelper.ElevateThisScript()
'//     WScript.Echo "User profile : " & ScriptHelper.Environment.UserProfile
'//     WScript.Echo "Domain : " & ScriptHelper.Network.UserDomain
'//     ScriptHelper.CreateFolder "\\SERVER\Share\Folder\With\Path"
'//     ScriptHelper.FileSystem.FileExists("C:\command.com")
'//     ScriptHelper.Shell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType")
'//
'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Class ScriptHelperClass

        Private objEnvironment
        Private objFileSystem
        Private objNetwork
        Private objShell
        Private objSWBemlocator
        Private objWMI
        Private objRegistry
        Private objSWbemDateTime

        Public Computer

        Public Property Get Environment
            If objEnvironment Is Nothing Then
                Set objEnvironment = New EnvironmentClass
                objEnvironment.Shell = Shell
            End If
            Set Environment = objEnvironment
        End Property

        Public Property Get FileSystem
            If objFileSystem Is Nothing Then Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            Set FileSystem = objFileSystem
        End Property

        Public Property Get Network
            If objNetwork Is Nothing Then Set objNetwork = CreateObject("WScript.Network")
            Set Network = objNetwork
        End Property

        Public Property Get Shell
            If objShell Is Nothing Then Set objShell = CreateObject("WScript.Shell")
            Set Shell = objShell
        End Property

        Public Property Get WMI
            If objWMI Is Nothing Then
                On Error Resume Next
                Set objSWBemlocator = CreateObject("WbemScripting.SWbemLocator")
                Set objWMI = objSWBemlocator.ConnectServer(Computer, "root\CIMV2")
                objWMI.Security_.ImpersonationLevel = 3
                On Error Goto 0
            End If
            Set WMI = objWMI
        End Property

        Public Property Get Registry
            If objRegistry Is Nothing Then Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
            Set Registry = objRegistry
        End Property

        Public Property Get SWbemDateTime
            If objSWbemDateTime Is Nothing Then Set objSWbemDateTime = CreateObject("WbemScripting.SWbemDateTime")
            Set SWbemDateTime = objSWbemDateTime
        End Property

        Private Sub Class_Initialize()
            Computer = "."
            Set objEnvironment = Nothing
            Set objFileSystem = Nothing
            Set objNetwork = Nothing
            Set objShell = Nothing
            Set objSWBemlocator = Nothing
            Set objWMI = Nothing
            Set objRegistry = Nothing
            Set objSWbemDateTime = Nothing
        End Sub

        Private Sub Class_Terminate
            Set objSWbemDateTime = Nothing
            Set objRegistry = Nothing
            Set objWMI = Nothing
            Set objSWBemlocator = Nothing
            Set objShell = Nothing
            Set objNetwork = Nothing
            Set objFileSystem = Nothing
            Set objEnvironment = Nothing
        End Sub

        Public Property Get ScriptPath()
            ScriptPath = FileSystem.GetFile(WScript.ScriptFullName).ParentFolder
        End Property

        Public Function GetCurrentUserSID()
            Dim intCount, colItems, objItem, strSID

            Set colItems = WMI.ExecQuery("SELECT * FROM Win32_UserAccount WHERE Name = '" & Network.Username & "' AND Domain = '" & Network.UserDomain & "'", , 48)

            intCount = 0
            For Each objItem In colItems
                strSID = Cstr(objItem.SID)
                intCount = intCount + 1
            Next

            If intCount > 0 Then
                GetCurrentUserSID = strSID
            Else
                GetCurrentUserSID = "NOTFOUND"
            End If
        End Function

        Public Sub CreateFolder(strFldPath)
            Dim fldArray, x, intStartIndex, blnUNC, strDestFold : strDestFold = ""

            If Left(strFldPath, 2) = "\\"  Then
                blnUNC = True
                intStartIndex = 3                                        'Start at the first folder in UNC path
            Else
                blnUNC = False
                intStartIndex = 0
            End If

            fldArray = Split(strFldPath, "\")                                                        'Split folders into array

            If fldArray(intStartIndex) = "" Then Exit Sub

            For x = intStartIndex To UBound(fldArray)

                If strDestFold = "" Then
                    If blnUNC Then
                        strDestFold = "\\" & fldArray(x-1) & "\" & fldArray(x)                    'Prefix UNC with server and share
                    Else
                        strDestFold = fldArray(x)
                    End If
                Else
                    strDestFold = strDestFold & "\" & fldArray(x)                                'Append each folder to end of path
                End If

                If Not FileSystem.FolderExists(strDestFold) Then FileSystem.CreateFolder(strDestFold)
            Next
        End Sub

        Public Sub DeleteFolder(strFldPath)
            If FileSystem.FolderExists(strFldPath) Then FileSystem.DeleteFolder strFldPath, True
        End Sub

        '//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        '// Subroutine: RunMeWithCScript()
        '//
        '// Purpose:    Forces the currently running script to use Cscript.exe as the Script
        '//             engine.  If the script is already running with cscript.exe the sub exits
        '//             and continues the script.
        '//
        '//             Sub Attempts to call the script with its original arguments.  Arguments
        '//             that contain a space will be wrapped in double quotes when the script
        '//             calls itself again.  To verify your command string you can echo out the
        '//             scriptCommand variable.
        '//
        '// Usage:      Add a call to this sub (RunMeWithCscript) to the beggining of your script
        '//             to ensure that cscript.exe is used as the script engine.
        '//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Public Sub RunMeWithCScript()

            Dim scriptEngine, engineFolder, Args, arg, scriptName, argString, scriptCommand

            scriptEngine = Ucase(Mid(Wscript.FullName,InstrRev(Wscript.FullName,"\")+1))
            engineFolder = Left(Wscript.FullName,InstrRev(Wscript.FullName,"\"))
            argString = ""

            If scriptEngine = "WSCRIPT.EXE" Then
                Dim Shell : Set Shell = CreateObject("Wscript.Shell")
                Set Args = Wscript.Arguments

                For each arg in Args                        'loop though argument array as a collection to rebuild argument string
                    If instr(arg," ") > 0 Then arg = """" & arg & """"    'if the argument contains a space wrap it in double quotes
                    argString = argString & " " & Arg
                Next

                'Create a persistent command prompt for the cscript output window and call the script with its original arguments
                scriptCommand = "cmd.exe /k " & engineFolder & "cscript.exe """ & Wscript.ScriptFullName & """" & argString

                Shell.Run scriptCommand,,False
                Wscript.Quit
            Else
                Exit Sub                    'Already Running with Cscript Exit this Subroutine
            End If

        End Sub

        '//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        '// Subroutine: ElevateThisScript()
        '//
        '// Purpose:    (Intended for Vista+)
        '//             Forces the currently running script to prompt for UAC elevation if it
        '//             detects that the current user credentials do not have administrative
        '//             privileges.
        '//
        '//             If run on Windows XP this script will cause the RunAs dialog to appear if
        '//             the user does not have administrative rights, giving the opportunity to
        '//             run as an administrator.
        '//
        '//             This Sub Attempts to call the script with its original arguments.
        '//             Arguments that contain a space will be wrapped in double quotes when the
        '//             script calls itself again.
        '//
        '// Usage:      Add a call to this sub (ElevateThisScript) to the beginning of your
        '//             script to ensure that the script gets an administrative token.
        '//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Public Sub ElevateThisScript()

            Const HKEY_CLASSES_ROOT  = &H80000000
            Const HKEY_CURRENT_USER  = &H80000001
            Const HKEY_LOCAL_MACHINE = &H80000002
            Const HKEY_USERS         = &H80000003
            const KEY_QUERY_VALUE      = 1
            Const KEY_SET_VALUE          = 2

            Dim scriptEngine, engineFolder, argString, arg, Args, scriptCommand, HasRequiredRegAccess
            Dim objShellApp : Set objShellApp = CreateObject("Shell.Application")

            scriptEngine = Ucase(Mid(Wscript.FullName,InstrRev(Wscript.FullName,"\")+1))
            engineFolder = Left(Wscript.FullName,InstrRev(Wscript.FullName,"\"))
            argString = ""

            Set Args = Wscript.Arguments

            For each arg in Args                        'loop though argument array as a collection to rebuild argument string
                If instr(arg," ") > 0 Then arg = """" & arg & """"    'if the argument contains a space wrap it in double quotes
                argString = argString & " " & Arg
            Next

            scriptCommand = engineFolder & scriptEngine

            Dim objReg, bHasAccessRight
            Set objReg=GetObject("winmgmts:"_
                & "{impersonationLevel=impersonate}!\\" &_
                Computer & "\root\default:StdRegProv")

            'Check for administrative registry access rights
            objReg.CheckAccess HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Control\CrashControl", _
                KEY_SET_VALUE, bHasAccessRight

            If bHasAccessRight = True Then

                HasRequiredRegAccess = True
                Exit Sub

            Else

                HasRequiredRegAccess = False
                objShellApp.ShellExecute scriptCommand, " """ & Wscript.ScriptFullName & """" & argString, "", "runas"
                WScript.Quit
            End If

        End Sub
    End Class

    Class EnvironmentClass
        Private objShell
        Private strLogonServer
        Private strProgramFiles
        Private strProgramFilesX86
        Private strUserProfile
        Private strWinDir

        Public Cache

        Public Property Let Shell(objParentShell)
            Set objShell = objParentShell
        End Property

        Public Property Get LogonServer
            If IsNull(strLogonServer) Or Cache = False Then strLogonServer = objShell.ExpandEnvironmentStrings("%LOGONSERVER%")
            LogonServer = strLogonServer
        End Property

        Public Property Get ProgramFiles
            If IsNull(strProgramFiles) Or Cache = False Then strProgramFiles = objShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
            ProgramFiles = strProgramFiles
        End Property

        Public Property Get ProgramFilesX86
            If IsNull(strProgramFilesX86) Or Cache = False Then strProgramFilesX86 = objShell.ExpandEnvironmentStrings("%PROGRAMFILES(x86)%")
            ProgramFilesX86 = strProgramFilesX86
        End Property

        Public Property Get UserProfile
            If IsNull(strUserProfile) Or Cache = False Then strUserProfile = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
            UserProfile = strUserProfile
        End Property

        Public Property Get WinDir
            If IsNull(strWinDir) Or Cache = False Then strWinDir = objShell.ExpandEnvironmentStrings("%WINDIR%")
            WinDir = strWinDir
        End Property

        Private Sub Class_Initialize()
            Cache = True
            strLogonServer = Null
            strProgramFiles = Null
            strProgramFilesX86 = Null
            strUserProfile = Null
            strWinDir = Null
        End Sub
    End Class

Since I spent the better part of 8 hours getting something that works properly in the environment (including site blocking to a custom server), I figured I’d share it with the users of this series of tubes in the hope it helps someone.

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
// NAME:        proxy.pac
//
// Original:    http://www.cluberti.com/blog
// Last Update: 14th May 2010
//
// Comment:     Proxy.pac example file for use as an auto configuration script
//              template.
//
// NOTE:        Provided as-is - usage of this source assumes that you are at the
//              very least familiar with the javascript language being used and
//              the tools used to create and debug this file.
//
//              In other words, if you break it, you get to keep the pieces.
//
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// javascript:alert ("Using PAC file");

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Start of the PAC file - function FindProxyForUrl:

function FindProxyForURL(url, host)
{

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Set proxy values as strings to use during return
// NOTE that if a rule directs the browser to return proxy_block, in this example
// the browser should attempt to visit http://internalserver:80, and will display
// the default web site at that location.

	var proxy_primary = "PROXY proxy.primary.internal.domain.com:80";
	var proxy_secondary = "PROXY proxy.secondary.internal.domain.com:80";
	var proxy_testing = "PROXY proxy.testing.internal.domain.com:80";
	var proxy_block = "PROXY internalserver:80"; //<- useful for blocking sites
	var proxy_no = "DIRECT";

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Some proxies may have issues with mixed-case URLs, so change host variable to
// all lower case, and resolve the host IP to reduce DNS lookups later:

	host = host.toLowerCase();
	var resolved_IP = dnsResolve(host);

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Master blocked sites list
// NOTE: Add all sies you wish to redirect to proxy_block here:

	// if destination is .someblockeddomain.com, return proxy_block:
	if (dnsDomainIs(host, ".someblockeddomain.com"))
	{
		return proxy_block;
	}

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// If URL has no dots in host name, send traffic direct.

	if (isPlainHostName(host))
	{
		return proxy_no;
	}

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Master proxy bypass list
// NOTE: Add all other proxy bypass entries into this section:

	// If destination is to an RFC 1918 IP, return direct:
	if (isInNet(resolved_IP, "10.0.0.0", "255.0.0.0") ||
			isInNet(resolved_IP, "172.16.0.0",  "255.240.0.0") ||
			isInNet(resolved_IP, "192.168.0.0", "255.255.0.0") ||
			isInNet(resolved_IP, "127.0.0.0", "255.255.255.0"))
	{
		return proxy_no;
	}

	// If request matches certain hosts in our IP range, return direct:
	if (isInNet(resolved_IP, "11.11.11.11", "255.0.0.0") ||
			isInNet(resolved_IP, "11.11.11.12", "255.0.0.0"))
	{
		return proxy_no;
	}

		If request begins with "xww", return direct:
	if (shExpMatch(host, "xww.*"))
	{
		return proxy_no;
	}

	// If request matches for *.internal.ourdomain.com/.net/.org, return direct:
	if (shExpMatch(host, "*.internal.ourdomain.com") ||
			shExpMatch(host, "*.internal.ourdomain.net") ||
			shExpMatch(host, "*.internal.ourdomain.org"))
	{
		return proxy_no;
	}

	// If request resolves to .external/.testing.ourdomain.com, return direct:
	if (dnsDomainIs(host, ".external.ourdomain.com") ||
			dnsDomainIs(host, ".testing.ourdomain.com"))
	{
		return proxy_no;
	}

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Hosts/domains to proxy
// NOTE: Add all hosts/domains that should go through the proxy into this section:

        // If request is for *.ourdomain.com and we've gotten this far, further
        // parsing is required:
        if (shExpMatch(host, "*.ourdomain.com"))
        {

                // If request is for .us.ourdomain.com, use primary proxy:
                if (dnsDomainIs(host, ".us.ourdomain.com"))
                {
                        return proxy_primary;
                }

                // If request is for .world.ourdomain.com, use secondary proxy:
                if (dnsDomainIs(host, ".world.ourdomain.com"))
                {
                        return proxy_secondary;
                }
        }

        // If browsing to *.microsoft.com, further parsing is required:
        if (shExpMatch(host, "*.microsoft.com"))
        {

                // If request is specifically for www.microsoft.com, try the secondary
                // proxy first:
                if (localHostOrDomainIs(host, "www.microsoft.com"))
                {
                        return proxy_secondary + "; " + proxy_primary ;
                }

                // Otherwise, try the primary proxy first to other microsoft sites:
                if (dnsDomainIs(host, ".microsoft.com"))
                {
                        return proxy_primary + "; " + proxy_secondary ;
                }
        }

        // If browsing to *.someotherdomain.com, further parsing is required:
        if (shExpMatch(host, "*.someotherdomain.com"))
        {

                // 172.16.0.0/255.255.0.0 IP address block -- try primary proxy first:
                if (isInNet(myIpAddress(), "172.16.0.0", "255.255.0.0"))
                {
                        return proxy_primary + "; " + proxy_secondary ;
                }

                // 172.31.0.0/255.255.0.0 IP address block -- try secondary proxy first:
                if (isInNet(myIpAddress(), "172.31.0.0", "255.255.0.0"))
                {
                        return proxy_secondary + "; " + proxy_primary ;
                }
        }

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Advanced proxying based on computer IP Address via the myIpAddress() function
// NOTE: Add all IP Address ranges you wish to proxy for in this section:

        // If the computer's IP address is in the 172.16.0.0/255.255.0.0 range, use
        // the the primary proxy Monday through Friday:
        if (isInNet(myIpAddress(), "172.16.0.0", "255.255.0.0"))
        {
                if (weekdayRange("MON", "FRI"))
                {
                        return proxy_primary;
                }
        // If this check is done on Saturday or Sunday, this will fall through and
        // parsing will continue.
        }

        // If the computer's IP address is in the 172.31.0.0/255.255.0.0 range, use
        // the secondary proxy from January to June, and September to December:
        if (isInNet(myIpAddress(), "172.31.0.0", "255.255.0.0"))
        {
                if (dateRange("JAN", "JUN"))
                {
                        return proxy_secondary;
                }
                if (dateRange("SEP", "DEC"))
                {
                        return proxy_secondary;
                }
        // If this check is done in July or August, this will fall through and parsing
        // will continue.
        }

        // If the computer's IP address is in the 192.168.0.0/255.255.0.0 range, use
        // the testing proxy from 8AM to 6PM local time:
        if (isInNet(myIpAddress(), "192.168.0.0", "255.255.0.0"))
        {
                if (timeRange(8, 18))
                {
                        return proxy_testing;
                }
        // If this check is done before 8AM or after 6PM, this will fall through and
        // parsing will continue.
        }

        // If the computer's IP address is in the 10.0.0.0/255.0.0.0 range, use the
        // testing proxy:
        if (isInNet(myIpAddress(), "10.0.0.0", "255.0.0.0"))
        {
                return proxy_testing;
        }

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Default return direct rule

// If the request matches no other parsing rules, return direct:
else
        // javascript:alert ("PAC finished parsing for: " + host + "\nFrom IP: " + myIpAddress() + "\nReturning: " + proxy_no);
        return proxy_no;
}

Since this project took almost 2 weeks to complete, test, and roll out to the test environment, I decided to post it here just in case anyone else found it useful.  The starting framework and the progress bar .exe I have linked for anyone who wanted to see the roots from which this beast rose, and a download location for the progressbar binary ultimately used for this as well.

Progress bar code / binary from:
www.devenezia.com/downloads/ppb/index.html

Original source template from
www.anonymoos.com/scripting/logonscript.txt

Here it is, in all it’s… glory?:

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\
'//                                                                                 \\
'// NAME:           profile-based-testlogon.vbs                                     \\
'//                                                                                 \\
'// Original:       http://www.cluberti.com/blog                                    \\
'// Last Update:    18th January 2010, Carl Luberti                                 \\
'// Version:        2.5                                                             \\
'//                                                                                 \\
'//                                                                                 \\
'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Configure Script Parameters

Option Explicit
Dim strLogName, bolWriteLog, bolManagePrinters, bolEnableCrossDomain, strScriptVer
strLogName = "script.log"         ' Filename of log to write to in the %userprofile% folder.
strScriptVer = "20th October 2009, v2.5" ' Version to write in log
bolWriteLog = True               ' Toggles log-writing - True for on, False for off.
bolManagePrinters = True         ' Set this to False to disable printer management
bolEnableCrossDomain = True      ' Toggles Cross Domain AuThentication. Reads registry to obtain NetBIOS domain for the machine.

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Gather User/Machine/Domain Info

Dim objNetwork, objDrives, objPrinters, objDict, objComputer, objShell, objShellApp, objFileSystem, objLogFile, objRootDSE, objTrans
Dim strComputerName, strDomain, strUser, strAdsPath, strNetBIOSDomain, strDNSDomain, strTemp, strLogPath, strUserOU, intPrinter, intNetLetter, i
Dim objFSO, objFiles, intCount
Dim strFile, strName, strDirectory, strTempFolder, strUserProfile, strExt, strProgressBarExe
Dim strOSVer
Dim objUserProfile, objTempFolder, objWMIService
Dim objUser

Set objNetwork = WScript.CreateObject("Wscript.Network")
Set objShell = WScript.CreateObject("WScript.Shell")
Set objShellApp = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objDrives = objNetwork.EnumNetworkDrives
Set objPrinters = objNetwork.EnumPrinterConnections

strUserProfile = objShell.ExpandEnvironmentStrings("%userprofile%")
strTempFolder = objShell.ExpandEnvironmentStrings("%temp%")
Set objUserProfile = objFSO.GetFolder(strUserProfile)
Set objTempFolder = objFSO.GetFolder(strTempFolder)

strComputerName = objNetwork.ComputerName
strDomain = objNetwork.UserDomain
strUser = objNetwork.UserName
strAdsPath = strDomain & "/" & strUser

Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser)

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Cross-Domain login check

If bolEnableCrossDomain Then
    On Error Resume Next
    strNetBIOSDomain = objShell.RegRead _
    ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName")
    If Not Err.Number = 0 Then
        'do nothing
    End If
    On Error Goto 0
Else
    strNetBIOSDomain = strDomain
End If

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Start Login Script Work

Set objComputer = GetObject("WinNT://" & strDomain & "/" & strComputerName & ",computer")
strTemp = objshell.ExpandEnvironmentStrings("%userprofile%")
strLogPath = strTemp & "\" & strLogName  '"
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")

If bolWriteLog Then 'initialize log file
    On Error Resume Next
    Set objLogFile = objFileSystem.OpenTextFile(strLogPath, 2, True) '"
    WriteLog "#####################################################"
    WriteLog "############### Start Login Script ##################"
    WriteLog "#####################################################"
    WriteLog ""
    objLogFile.WriteLine(Now() & ": Log:     Logon script version " & strScriptVer )
    WriteLog ""
    If Not Err.Number = 0 Then
        msgbox "There was a problem opening the log file for writing." & chr(10) & _
        "Please check whether """ & strLogPath & """ is a valid file and can be opened for writing." & _
        chr(10) & chr(10) & "If you're not sure what to do, please contact your support person.",vbCritical, "Logon Script Error"
        WScript.quit
    End If
    On Error Goto 0
End If

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Copy Progressbar.exe to %userprofile%:

WriteLog "----------- Checking for progressbar.exe ------------"
WriteLog ""

strProgressBarExe = strUserProfile & "\progressbar.exe"

If (objFSO.FileExists(strProgressBarExe)) Then
    objLogFile.WriteLine(Now() & ": Success: Progressbar.exe exists in %userprofile%, continuing")
    WriteLog ""
Else
    objLogFile.WriteLine(Now() & ": Log:     Progressbar.exe does not exist in %userprofile%, copying:")
    FileCopy "\\domain.tld\netlogon\progressbar.exe", "" & strUserProfile & "\"
    WriteLog ""
End If

'Write final empty log line for section
WriteLog ""

'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Configure trusted sites on every login:

WriteLog "------------- Setting Trusted Sites List ------------"
WriteLog ""
Run "regedit /s \\domain.tld\netlogon\trustedsites.reg"
WriteLog ""

'Write final empty log line for section
WriteLog ""

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\
'// ############################################################################### \\
'// ################################ INSTRUCTIONS ################################# \\
'// ############################################################################### \\
'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\

'Check for OS Version with IsOSVer:
'isOSVer will write an entry in the log when run
'If IsOSVer("Full OS Version") Then
'commands here
'End If

'Check for user group membership with isMember:
'isMember will write an entry in the log file when a user is in the group
'If isMember("groupname") Then
' commands here
'End If

'Check for computer group membership with isComputerMember:
'isComputerMember will write an entry in the log file when a computer is in the group
'If isComputerMember("groupname") Then
' commands here
'End If

'Check for user OU group membership with isOUMember:
'isOUMember will write an entry in the log file when a user is in the OU
'If isOUMember("OUName") Then
' commands here
'End If

'Check the computer running the script for a specific IP address with isThisIP:
'If isThisIP("172.23.0.5") Then
'   commands here
'End If
'isThisIP will write log file entries when logging is enabled. Requires WMI.

'Check the computer running the script for a specific IP address with isThisMachine:
'If isThisMachine("ComputerName") Then
'   commands here
'End If
'isThisMachine will write log file entries when logging is enabled. Requires WMI.

'Map drives with DriveMapper:
'DriveMapper "Drive:", "\\Server\share"

'Add Printers with AddPrinter:
'AddPrinter "\\Server\Printername"

'Set a default printer with SetPrinterDefault (printer has to exist, or this will not work)
'SetPrinterDefault "\\Server\Printername"

'Remove Printers with RemovePrinter:
'RemovePrinter "\\Server\Printername"

'Remove All Printers from a Server with RemovePrintersFromServer. Handy when you retire a windows print server.
'RemovePrintersFromServer "Servername"

'Execute any file with Run:
'Run "c:\windows\notepad.exe"
'Run "\\server\share\script.vbs"

'Copy files with FileCopy(source, target):
'FileCopy "\\server\share\*.txt", "c:\temp\"
'NOTE: copies are not recursive, and wildcards can only exists in the file level.
'NOTE: The user running the script must have permission to write AND DELETE files in the target location

'Write an entry to the log file with WriteLog():
'WriteLog("some text here")

'Write an entry to the registry file with RegWrite:
'RegWrite "Reg value to change, Reg data to have entered into the value, Reg value type"

'Set user environment variables with PutEnv:
'PutEnv "Variablename", "VariableValue"

'A log file will be placed in the user's temp directory and will be named to the ScriptLogName variable set above.

'Interact with the logon script Progress Bar with ProgressBar:
'ProgressBar("parameters here")
'Fully documented here:  http://www.devenezia.com/downloads/ppb/index.html

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\
'// ############################################################################### \\
'// ############################# Change Script Below ############################# \\
'// ############################################################################### \\
'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\
'//
'// Checking OS Version:

WriteLog "---------------- Checking OS Version ----------------"
WriteLog ""
If IsOSVer("5.0.2195") Then
    If bolWriteLog Then
        WriteLog "OS is Windows 2000"
        strOSVer = "2000"
        WriteLog ""
        WriteLog ""
        WScript.sleep 5000
        Run "\\domain.tld\netlogon\oldlogonscript.bat"
        WScript.Quit
    End If
End If

If IsOSVer("5.1.2600") Then
    If bolWriteLog Then WriteLog "OS is Windows XP"
        strOSVer = "XP"
        WriteLog ""
        WriteLog ""
'      WScript.sleep 5000
'       Run "\\domain.tld\netlogon\oldlogonscript.bat"
'       WScript.Quit
    End If
End If

If IsOSVer("5.2.3790") Then
    If bolWriteLog Then
        WriteLog "OS is Windows Server 2003"
        strOSVer = "2003"
        WriteLog ""
        WriteLog ""
'       WScript.sleep 5000
'       Run "\\domain.tld\netlogon\oldlogonscript.bat"
'       WScript.Quit
    End If
End If

If IsOSVer("6.1.7600") Then
    strOSVer = "7 / 2008 R2 RTM"
    WriteLog ""
    If bolWriteLog Then
        WriteLog "OS is Windows 7 / Server 2008 R2 RTM"
    End If
End If

If IsOSVer("6.0.6002") Then
    strOSVer = "Vista / 2008 SP2"
    WriteLog ""
    If bolWriteLog Then
        WriteLog "OS is Windows Vista / Server 2008 SP2"
    End If
End If

If IsOSVer("6.0.6001") Then
    strOSVer = "Vista / 2008 SP1"
    WriteLog ""
    If bolWriteLog Then
        WriteLog "OS is Windows Vista / Server 2008 SP1"
    End If
End If

If IsOSVer("6.0.6000") Then
    strOSVer = "Vista RTM"
    WriteLog ""
    If bolWriteLog
        Then WriteLog "OS is Windows Vista RTM"
    End If
End If

'Write final empty log line for section
WriteLog ""

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\
'// ############################### Global Settings ############################### \\
'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Create Login Progress Bar application:

ProgressBar("Create ""Login Script")
WScript.sleep 100

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Synchronize PC's time with a domain controller:

ProgressBar("SetText 1 ""Setting time")
WScript.sleep 100
WriteLog "------------- Configuring Machine Time --------------"
WriteLog ""
objShell.run "net time /domain: " & strDomain & " /set /yes", 0, TRUE

If Err.Number = 0 Then
    objLogFile.WriteLine(Now() & ": Success: Machine time for computer " & strComputerName & " synchronized with " & strDomain & " domain" )
Else
    objLogFile.WriteLine(Now() & ": Failure: Machine time for computer " & strComputerName & " not synchronized with " & strDomain & " domain" )
End If

WriteLog ""
ProgressBar("SetPos 1 5")
WScript.sleep 300

'Write final empty log line for section
WriteLog ""

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\
'// #################### Settings based on user/group/machine ##################### \\
'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Remove mapped drives and printers before continuing:

ProgressBar("SetText 1 ""Removing old mapped drives and printers")
ProgressBar("SetPos 1 20")

On Error Resume Next
For i = 0 to objDrives.Count - 1 Step 2
    'WScript.Echo objDrives.Item(i+1)
    objNetwork.RemoveNetworkDrive objDrives.Item(i),True,True
Next
WScript.sleep 600

On Error Resume Next
For i = 0 to objPrinters.Count - 1 Step 2
    'WScript.Echo objPrinters.Item(i+1)
    objNetwork.RemovePrinterConnection objPrinters.Item(i+1)
Next
WScript.sleep 600

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Skip printer mappings If the computer is a member of a specific group:

If IsComputerMember("PrintServers") Then
    bolManagePrinters = False
    writeLog "Printer Management Disabled for Terminal Servers"
'   Exclude anyone logging on to a print server from creating printers.
End If

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Domain Users Domain Group check:

On Error Resume Next
If isMember("Domain Users") Then
    WriteLog ""
    WriteLog "Processing 'Domain Users' Script Profile"
    WriteLog ""
    WriteLog "---------------- Profile Redirection ----------------"
    WriteLog ""
    ProgressBar("SetText 1 ""Redirecting Domain Users folders")
    WScript.sleep 100
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Cookies", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Cookies" , "REG_EXPAND_SZ"
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Desktop", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Desktop" , "REG_EXPAND_SZ"
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Favorites" , "REG_EXPAND_SZ"
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\History", "\\FILESERVER\Profiles$\Windows\" & strUser & "\History" , "REG_EXPAND_SZ"
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Recent", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Recent" , "REG_EXPAND_SZ"
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal", "\\FILESERVER\Profiles$\Windows\" & strUser , "REG_EXPAND_SZ"
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Music", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Music" , "REG_EXPAND_SZ"
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Pictures", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Pictures" , "REG_EXPAND_SZ"
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Video", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Video" , "REG_EXPAND_SZ"
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\{374DE290-123F-4565-9164-39C4925E467B}", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Downloads" , "REG_EXPAND_SZ"
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData", "\\FILESERVER\Profiles$\Windows\" & strUser & "\AppData" , "REG_EXPAND_SZ"
    ProgressBar("SetPos 1 25")
    WScript.sleep 300
    WriteLog ""
    WriteLog "------------------ Drive Mappings -------------------"
    WriteLog ""
    ProgressBar("SetText 1 ""Mapping Domain Users drives")
    WScript.sleep 100
    DriveMapper "H:", "\\FILESERVER\Home$\Windows\" & strUser , "Home"
    DriveMapper "L:", "\\FILESERVER\Profiles$\Windows\" & strUser , "Profile"
    DriveMapper "P:", "\\FILESERVER\Public", "Public"
    DriveMapper "S:", "\\FILESERVER\Applications$", "Apps"
    DriveMapper "V:", "\\FILESERVER\system$", "Access System Files"
    WriteLog ""
    WriteLog ""
    ProgressBar("SetPos 1 30")
    WScript.sleep 300
    If isMember("Quick Books") Then
        ProgressBar("SetText 1 ""Mapping Quick Books drives")
        WScript.sleep 100
        WriteLog ""
        DriveMapper "Q:", "\\FILESERVER\QuickBooks$"
        objShellApp.NameSpace(qDrive).Self.Name = "QuickBooks"
        WriteLog ""
        ProgressBar("SetPos 1 40")
        WScript.sleep 300
    End If
    WriteLog ""
    WriteLog "----------------- Printer Mappings ------------------"
    WriteLog ""
    If isOUMember("North Campus") Then
        ProgressBar("SetText 1 ""Mapping North Campus printers")
        WScript.sleep 100
        WriteLog ""
        AddPrinter "\\PRINTSERVER\PRINTER01"
        AddPrinter "\\PRINTSERVER\PRINTER02"
        AddPrinter "\\PRINTSERVER\PRINTER04"
        AddPrinter "\\PRINTSERVER\PRINTER05"
        SetPrinterDefault "\\PRINTSERVER\PRINTER02"
        WriteLog ""
        WriteLog ""
        ProgressBar("SetPos 1 52")
        WScript.sleep 300
        If isMember("Accounting") Then
            ProgressBar("SetText 1 ""Mapping Accounting printers")
            WScript.sleep 100
            WriteLog ""
            AddPrinter "\\PRINTSERVER\PRINTER06"
            'SetPrinterDefault "\\PRINTSERVER\PRINTER06"
            WriteLog ""
            ProgressBar("SetPos 1 54")
            WScript.sleep 300
        End If
        If isUser("usera") Then
            ProgressBar("SetText 1 ""Mapping usera's printers")
            WScript.sleep 100
            WriteLog ""
            AddPrinter "\\PRINTSERVER\PRINTER03"
            SetPrinterDefault "\\PRINTSERVER\PRINTER03"
            WriteLog ""
            ProgressBar("SetPos 1 58")
            WScript.sleep 300
        End If
    End If
    If isOUMember("South Campus") Then
        ProgressBar("SetText 1 ""Mapping South Campus printers")
        WScript.sleep 100
        WriteLog ""
        AddPrinter "\\PRINTSERVER\PRINTER01"
        AddPrinter "\\PRINTSERVER\PRINTER02"
        AddPrinter "\\PRINTSERVER\PRINTER04"
        AddPrinter "\\PRINTSERVER\PRINTER05"
        SetPrinterDefault "\\PRINTSERVER\PRINTER01"
        WriteLog ""
        WriteLog ""
        ProgressBar("SetPos 1 60")
        WScript.sleep 300
        If isMember("Accounting") Then
            ProgressBar("SetText 1 ""Mapping Accounting printers")
            WScript.sleep 100
            WriteLog ""
            AddPrinter "\\PRINTSERVER\PRINTER06"
            SetPrinterDefault "\\PRINTSERVER\PRINTER06"
            WriteLog ""
            ProgressBar("SetPos 1 62")
            WScript.sleep 300
        End If
        If isUser("userb") Then
            ProgressBar("SetText 1 ""Mapping userb's printers")
            WScript.sleep 100
            WriteLog ""
            AddPrinter "\\PRINTSERVER\PRINTER03"
            WriteLog ""
            ProgressBar("SetPos 1 66")
            WScript.sleep 300
        End If
    End If
    WriteLog ""
    WriteLog "----------------- Registry Policies -----------------"
    WriteLog ""
    ProgressBar("SetText 1 ""Setting profile policies")
    WScript.sleep 100
    'Internet Explorer
    'Disable Internet Connection Wizard:
    RegWrite "HKCU\Software\Microsoft\Internet Connection Wizard\Completed", "1", "REG_DWORD"
    'Disable changing proxy settings:
    RegWrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Proxy", "1", "REG_DWORD"
    'Disable Reset Web Settings feature:
    RegWrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\ResetWebSettings", "1", "REG_DWORD"
    'Disable automatic check for software updates:
    RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\NoUpdateCheck", "1", "REG_DWORD"
    'System
    'Require alphanumeric password:
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Network\AlphanumPwds", "1", "REG_DWORD"
    'No workgroup contents in network neighborhood:
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoWorkgroupContents", "1", "REG_DWORD"
    'Hide L, N, S, and V drive letters:
    RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives", &H00242800, "REG_DWORD"
    WriteLog ""
    ProgressBar("SetPos 1 75")
    WScript.sleep 300
End If

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Domain Admins Domain Group check:

If isMember("Domain Admins") Then
    WriteLog ""
    WriteLog "Processing 'Domain Admins' Script Profile"
    WriteLog ""
    ProgressBar("SetText 1 ""Redirecting Domain Admins folders")
    WScript.sleep 100
    WriteLog ""
    WriteLog "---------------- Profile Redirection ----------------"
    WriteLog ""
    If isUser("otheradmin") Then
        ProgressBar("SetText 1 ""Redirecting otheradmin's folders")
        WScript.sleep 100
        WriteLog ""
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Cookies", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Cookies" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Desktop", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Desktop" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Favorites" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\History", "\\FILESERVER\Profiles$\Windows\" & strUser & "\History" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Recent", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Recent" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal", "\\FILESERVER\Profiles$\Windows\" & strUser , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Music", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Music" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Pictures", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Pictures" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Video", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Video" , "REG_EXPAND_SZ"
        'RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\{374DE290-123F-4565-9164-39C4925E467B}", "\\FILESERVER\Profiles$\Windows\" & strUser & "\Downloads" , "REG_EXPAND_SZ"
        'RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData", "\\FILESERVER\Profiles$\Windows\" & strUser & "\AppData" , "REG_EXPAND_SZ"
        WriteLog ""
        WScript.sleep 300
    Else
        ProgressBar("SetText 1 ""Redirecting Domain Admins folders")
        WScript.sleep 100
        WriteLog ""
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Cookies", "%USERPROFILE%\AppData\Roaming\Microsoft\Windows\Cookies" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Desktop", "%USERPROFILE%\Desktop" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites", "%USERPROFILE%\Favorites" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\History", "%USERPROFILE%\AppData\Local\Microsoft\Windows\History" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Recent", "%USERPROFILE%\AppData\Roaming\Microsoft\Windows\Recent" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal", "%USERPROFILE%\Documents" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Music", "%USERPROFILE%\Music" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Pictures", "%USERPROFILE%\Pictures" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Video", "%USERPROFILE%\Videos" , "REG_EXPAND_SZ"
        'RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\{374DE290-123F-4565-9164-39C4925E467B}", "%USERPROFILE%\Downloads" , "REG_EXPAND_SZ"
        RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData", "%USERPROFILE%\AppData\Roaming" , "REG_EXPAND_SZ"
        WriteLog ""
        WScript.sleep 300
    End If
    ProgressBar("SetPos 1 25")
    WScript.sleep 300
    WriteLog ""
    WriteLog "------------------ Drive Mappings -------------------"
    WriteLog ""
    ProgressBar("SetText 1 ""Mapping Domain Admins drives")
    WScript.sleep 100
    DriveMapper "H:", "\\FILESERVER\Home$\Windows\" & strUser , "Home"
    DriveMapper "L:", "\\FILESERVER\Profiles$\Windows\" & strUser , "Profile"
    DriveMapper "M:", "\\FILESERVER\adminshare$", "Admin"
    DriveMapper "P:", "\\FILESERVER\Public", "Public"
    DriveMapper "Q:", "\\FILESERVER\QuickBooks$", "QuickBooks"
    DriveMapper "S:", "\\FILESERVER\Applications$", "Apps"
    DriveMapper "V:", "\\FILESERVER\system$", "MS Access System Files"
    WriteLog ""
    WriteLog ""
    ProgressBar("SetPos 1 50")
    WScript.sleep 300
    ProgressBar("SetText 1 ""Mapping Domain Admins printers")
    WScript.sleep 100
    WriteLog ""
    WriteLog "----------------- Printer Mappings ------------------"
    WriteLog ""
    AddPrinter "\\PRINTSERVER\PRINTER01"
    AddPrinter "\\PRINTSERVER\PRINTER06"
    AddPrinter "\\PRINTSERVER\PRINTER02"
    AddPrinter "\\PRINTSERVER\PRINTER03"
    AddPrinter "\\PRINTSERVER\PRINTER04"
    AddPrinter "\\PRINTSERVER\PRINTER05"
    SetPrinterDefault "\\PRINTSERVER\PRINTER01"
    WriteLog ""
    WriteLog ""
    ProgressBar("SetPos 1 70")
    WScript.sleep 300
    If isOUMember("North Campus") Then
        ProgressBar("SetText 1 ""Mapping North Campus printers")
        WScript.sleep 100
        WriteLog ""
        SetPrinterDefault "\\PRINTSERVER\PRINTER02"
        WriteLog ""
        ProgressBar("SetPos 1 72")
        WScript.sleep 300
    End If
    If isOUMember("South Campus") Then
        ProgressBar("SetText 1 ""Mapping South Campus printers")
        WScript.sleep 100
        WriteLog ""
        SetPrinterDefault "\\PRINTSERVER\PRINTER01"
        WriteLog ""
        ProgressBar("SetPos 1 75")
        WScript.sleep 300
    End If
    ProgressBar("SetText 1 ""Setting Domain Admins Registry Policies")
    WScript.sleep 100
    WriteLog ""
    WriteLog "----------------- Registry Policies -----------------"
    WriteLog ""
    WriteLog "No policies written for Domain Admins"
    WriteLog ""
    ProgressBar("SetPos 1 80")
    WScript.sleep 300
End If

'Write final empty log line for section
WriteLog ""

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\
'// ############################ Temp File Cleanup ################################ \\
'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Delete files from temp directory:

WriteLog "---------------- Deleting Temp Files ----------------"
WriteLog ""

ProgressBar("SetText 1 ""Cleaning up")
WScript.sleep 100
intcount = 0
Set objFiles = objTempFolder.Files

For Each strFile In objFiles
    On Error Resume Next
    strFile.delete
    intCount = intCount +1
Next

WriteLog intCount & " temp files were deleted"
ProgressBar("SetPos 1 95")
WScript.sleep 300

'Write final empty log line for section
WriteLog ""

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\
'// ############################################################################### \\
'// ################## ^^^^^^^^^^ CHANGE SCRIPT ABOVE ^^^^^^^^^^ ################## \\
'// ####################### DO NOT EDIT BELOW THIS SECTION ######################## \\
'// ############################################################################### \\
'//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \\

WriteLog ""

'// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'//
'// Subs and Functions

ProgressBar("SetPos 1 100")
WScript.sleep 100
ProgressBar("SetText 1 ""Login script finished")
WScript.sleep 2000
ProgressBar("shutdown")
WriteLog "#####################################################"
WriteLog "################ End Login Script ###################"
WriteLog "#####################################################"
Set objNetwork = Nothing
Set objDrives = Nothing
Set objComputer = Nothing
Set objShell = Nothing
Set objFileSystem = Nothing
Set objLogFile = Nothing
Set objFSO = nothing
Set strFile = nothing
Set objFiles = nothing
Wscript.Quit

Function IsOSVer(sOSVer)
    On Error Resume Next
    Dim sThisComputer, oWMIService, cItems, oItem, sVer, intComparison

    sThisComputer = "."
    Set oWMIService = GetObject("winmgmts:\\" & sThisComputer & "\root\cimv2")
    Set cItems = oWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)

    For Each oItem In cItems
        intComparison = StrComp(oItem.Version ,sOSVer ,1)

        If intComparison = 0 Then
            isOSVer =  True
            If bolWriteLog Then
                objLogFile.WriteLine(Now() & ": Success: OS Version is " & sOSVer )
            End If
            Exit Function
        Else
            isOSVer =  False
        End If
    Next
End Function

Function IsUser(sUser)
    Dim intComparison

    intComparison = StrComp(strUser ,sUser ,1)
    If intComparison = 0 Then
        IsUser = True
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: User is " & strUser)
        End If
        Exit Function
    Else
        IsUser = False
    End If
End Function

Function IsMember(sGroup)
    Dim oDict, oUser, oGroup

    If IsEmpty(oDict) Then
        Set oDict = CreateObject("Scripting.Dictionary")
        oDict.CompareMode = vbTextCompare
        Set oUser = GetObject("WinNT://" & strAdsPath & ",user")

        For Each oGroup In oUser.Groups
            oDict.Add oGroup.Name, "-"
        Next

        Set oUser = Nothing
    End If

    IsMember = CBool(oDict.Exists(sGroup))

    If IsMember And bolWriteLog Then
        objLogFile.WriteLine(Now() & ": Success: User is member of " & sGroup)
    End If
End Function

Function IsOUMember(sOU)
    Dim oConnection, oCommand, oRecordSet
    Dim strDN, arrPath, intLength, intNameLength, intComparison

    Const ADS_SCOPE_SUBTREE = 2

    Set oConnection = CreateObject("ADODB.Connection")
    Set oCommand =   CreateObject("ADODB.Command")
    oConnection.Provider = "ADsDSOObject"
    oConnection.Open "Active Directory Provider"
    Set oCommand.ActiveConnection = oConnection
    oCommand.Properties("Page Size") = 1000
    oCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
    oCommand.CommandText = _
    "SELECT distinguishedName FROM 'LDAP://dc=DOMAIN,dc=to'WHERE objectCategory='user'AND sAMAccountName='" & strUser & "'"
    Set oRecordSet = oCommand.Execute
    oRecordSet.MoveFirst

    Do Until oRecordSet.EOF
        strDN = oRecordSet.Fields("distinguishedName").Value
        arrPath = Split(strDN, ",")
        intLength = Len(arrPath(1))
        intNameLength = intLength - 3
        strUserOU = Right(arrPath(1), intNameLength)
        oRecordSet.MoveNext
    Loop
        intComparison = StrComp(strUserOU ,sOU ,1)

    If intComparison = 0 Then
        IsOUMember = True
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: User is a member of " & strUserOU)
        End If
        Exit Function
    Else
        IsOUMember = False
    End If
End Function

Function IsComputerMember(sGroup)
    Dim oGroup

    On Error Resume Next
    Set oGroup = GetObject("WinNT://" & strDomain & "/" & sGroup & ",group")
    IsComputerMember = CBool(oGroup.IsMember(objComputer.ADsPath & "$"))

    If IsComputerMember And bolWriteLog Then
        objLogFile.WriteLine(Now() & ": Success: Computer is member of " & sGroup)
        Set oGroup = Nothing
        If Not Err.Number = 0 Then
            'nothing to see here, move along
        End If
    End If
    On Error Goto 0
End Function

Sub WriteLog(sEntry)
    If bolWriteLog Then
        objLogFile.WriteLine(Now() & ": Log:     " & sEntry)
    End If
End Sub

Sub DriveMapper(sDrive, sShare, sName)
    On Error Resume Next
    objNetwork.MapNetworkDrive sDrive, sShare

    If Err.Number = 0 Then
        objShellApp.NameSpace(sDrive).Self.Name = sName
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Connect  """ & sDrive & """ to share """ & sShare & """ with name """ & sName & """")
        End If
    Else
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Log:     Unable to connect """ & sDrive & """ to share """ & sShare & """ with name """ & sName & """")
        End If
    On Error Goto 0
End Sub

Sub AddPrinter(sPrinterUNC)
    On Error Resume Next

    If Not bolManagePrinters Then
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Printer connection skipped because disabled (" & _
            strUser & " on " & strComputerName & ")")
        End If
    Else
        objNetwork.AddWindowsPrinterConnection sPrinterUNC
        If Err.Number = 0 Then
            If bolWriteLog Then
                objLogFile.WriteLine(Now() & ": Success: Connect to printer: " & sPrinterUNC)
            End If
        Else
            If bolWriteLog Then
                objLogFile.WriteLine(Now() & ": Failed:  Connect to printer: " & sPrinterUNC)
            End If
        End If
    End If
    On Error Goto 0
End Sub

Sub RemovePrinter(sPrinterUNC)
    If Not bolManagePrinters Then
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Printer connection skipped because disabled (" & _
            strUser & " on " & strComputerName & ")")
        End If
    Else
        Dim oPrinters
        Set oPrinters = objNetwork.EnumPrinterConnections

        For i = 0 To oPrinters.Count - 1 Step 2
            If uCase(oPrinters.Item(i+1)) = uCase(sPrinterUNC) Then
                On Error Resume Next
                objNetwork.RemovePrinterConnection sPrinterUNC, True, True
                If Err.Number = 0 Then
                    If bolWriteLog Then
                    objLogFile.WriteLine(Now() & ": Success: Remove printer: " & sPrinterUNC)
                Else
                    If bolWriteLog Then\
                    objLogFile.WriteLine(Now() & ": Failed:  Remove printer: " & sPrinterUNC)
                End If
                On Error Goto 0
                Exit Sub
            End If
        Next
    End If

    If bolWriteLog Then
        objLogFile.WriteLine(Now() & ": Success: Remove printer: " & sPrinterUNC & " (Printer did not exist)" )
    End If
End Sub

Sub RemovePrintersFromServer(sServerName)
    If Not bolManagePrinters Then
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Printer connection skipped because disabled (" & _
            strUser & " on " & strComputerName & ")")
        End If
    Else
        Dim oPrinters, aPrinter

        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Removing all printers from: " & ucase(sServerName))
            Set oPrinters = objNetwork.EnumPrinterConnections

            For i = 0 to oPrinters.Count - 1 Step 2
                On Error Resume Next
                aPrinter = split(uCase(oPrinters.Item(i+1)),"\",-1, 1)  '"
                If Not UBound(aPrinter) = 0 Then  'this is not a local printer, process code
                    If aPrinter(2) = ucase(sServerName) Then
                        objNetwork.RemovePrinterConnection oPrinters.Item(i+1), True, True
                        If Err.Number = 0 Then
                            If bolWriteLog Then
                                objLogFile.WriteLine(Now() & ": Success: Remove printer: " & oPrinters.Item(i+1))
                            End If
                        Else
                            If bolWriteLog Then
                                objLogFile.WriteLine(Now() & ": Failed:  Remove printer: " & oPrinters.Item(i+1))
                            End If
                        End If
                    End If
                End If
                aPrinter = ""
                On Error Goto 0
            Next
        End If

        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Removed  all printers from: " & ucase(sServerName))
        End If
    End If
End Sub

Sub SetPrinterDefault(sPrinterUNC)
    On Error Resume Next
    If Not bolManagePrinters Then
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Default printer to " & sPrinterUNC & _
            " skipped because disabled (" & strUser & " on " & strComputerName & ")")
        Else
            objNetwork.SetDefaultPrinter sPrinterUNC
            If Err.Number = 0 Then
                If bolWriteLog Then
                    objLogFile.WriteLine(Now() & ": Success: Set as Default: " & sPrinterUNC)
                End If
            Else
                If bolWriteLog Then
                    objLogFile.WriteLine(Now() & ": Failed:  Set as Default: " & sPrinterUNC)
                End If
            End If
    End If
    On Error Goto 0
End Sub

Sub PutEnv(sName, sValue)
    Dim oEnv
    Set oEnv = objShell.Environment("USER")
    oEnv(sName) = sValue

    If bolWriteLog Then
        objLogFile.WriteLine(Now() & ": Success: Set user variable """ & sName & """ to: """ & sValue & """")
    End If
    Set oEnv = Nothing
End Sub

Sub Run(ByVal sFile)
    On Error Resume Next
    'objShell.Run Chr(34) & sFile & Chr(34), 1, False
    objShell.Run sFile, 1, False

    If Err.Number = 0 Then
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Execute: " & sFile)
        End If
    Else
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Failed:  Execute: " & sFile & " with error " & Err.Number)
        End If
    End If
    On Error Goto 0
End Sub

Sub FileCopy(sSource, sTarget)
    On Error Resume Next
    objFileSystem.CopyFile sSource, sTarget

    If Err.Number = 0 Then
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Copy: " & sSource & " to " & sTarget)
        End If
    Else
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Failed:  Copy: " & sSource & " to " & sTarget)
        End If
    End If
    On Error Goto 0
End Sub

Sub RegWrite(sRegValue, sRegData, sRegType)
    On Error Resume Next
    objShell.Regwrite sRegValue, sRegData, sRegType

    If Err.Number = 0 Then
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Reg value " & sRegValue & " set to " & sRegData & " as type " & sRegType )
        End If
    Else
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Failed:  Reg value " & sRegValue & " not set to " & sRegData)
        End If
    End If
    On Error Goto 0
End Sub

Function isThisIP(sThisAddress)
    On Error Resume Next
    Dim sThisComputer, oWMIService, cItems, oItem ,sAddress
    sThisComputer = "."
    Set oWMIService = GetObject("winmgmts:\\" & sThisComputer & "\root\cimv2")
    Set cItems = oWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

    For Each oItem In cItems 'cycle all adapters
        'objItem.MACAddress 'this is the mac address, just in case

        For Each sAddress In oItem.IPAddress 'cycle all ip addresses for this adapter
            If sAddress = sThisAddress Then
                isThisIP =  True
                If bolWriteLog Then
                    objLogFile.WriteLine(Now() & ": Success: Found IP " & sThisAddress )
                    Exit function
                End If
            End If
        Next
    Next

    If Err.Number = 0 Then
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Did not find IP " & sThisAddress )
        End If
    Else
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Failed:  An error occurred looking for IP " & sThisAddress )
        End If
    End If

    isThisIP =  False
    On Error goto 0
End Function

Function isThisMachine(sThisMachine)
    On Error Resume Next
    If sThisMachine = strComputer Then
        isThisMachine = True
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Machine name is " & sThisMachine )
        Exit function
        End If
    End If

    If Err.Number = 0 Then
        If bolWriteLog Then
            objLogFile.WriteLine(Now() & ": Success: Machine name is not " & sThisMachine )
        End If
    Else
        'nothing to see here, move along
    End If

    isThisMachine =  False
    On Error goto 0
End Function

Sub ProgressBar(params)
    objShell.Run """" & strUserProfile & "\progressbar.exe"" " & params
End Sub