strLogLocation<\/strong> definition, which sets the location of the MSI log file. As you can see I place it in the “%SystemDrive%\\bldlogs” folder.<\/p>\nEnjoy!!!<\/p>\n
\r\n' VMware Tools installation script.\r\n\r\n' For Citrix\/Terminal\/RDS Servers, don't install VMware Tools components that can impede\r\n' performance. These include: \r\n' - MemCtl - Memory Control Driver (vmmemctl \u2013 reclaims memory using the balloon driver) \r\n' - vmdesched - Descheduled Time Accounting (experimental) \r\n' - Sync - Filesystem Sync Driver (LGTO_SYNC - can halt I\/O disrupting services\/users) \r\n' - Hgfs - Shared Folders (vmhgfs \u2013 not supported on ESX) \r\n\r\n' There is now evidence to suggest that under ESX4.x and certain deployment scenarios\r\n' leaving the memory control driver enabled can assist with performance. Discussions with\r\n' VMware suggest that it will only be used when the host is under memory pressure and will\r\n' intelligently select memory to balloon in conjunction with the operating system. The\r\n' alternative is the host paging out virtual machine memory to disk, which may be highly\r\n' active, possibly suspending a virtual machine for milliseconds at a time. This situation\r\n' should not arise if suitable resources are available, but an unexpected event such as a\r\n' host failure may cause this. Therefore, a boolean value of blnRemoveMemoryBaloonDriver\r\n' has been added that can be set to True or False depending on your requirements.\r\n\r\n' Before we proceed we first need to check that the "Terminal Services" (TermServ) service\r\n' is running, otherwise using the WMI provider to query the Win32_TerminalServiceSetting\r\n' properties will return a null value. Note that the WMI provider namespace is slighly\r\n' different between Windows 2003 and Windows 2008.\r\n\r\n' Reference for Unattended Installation of VMware Tools in Windows:\r\n' http:\/\/communities.vmware.com\/servlet\/JiveServlet\/downloadBody\/12413-102-4-13370\/VMware%20Tools%20-%20Unattended_Install.pdf\r\n\r\n' The setVideoAcceleration function was written by Jamie Morrison (http:\/\/theether.net\/)\r\n\r\n' It's expecting the latest version of VMware Tools to be extracted into a subfolder called\r\n' "VMware Tools". So your folder structure will look like this...\r\n' - InstallVMwareTools.vbs (this script)\r\n' - VMware Tools (this is a folder that contains the extracted VMware Tools)\r\n\r\n' Version 1.6 released on 19th October 2010.\r\n' Written by Jeremy@jhouseconsulting.com on 1st December 2008.\r\n\r\nOption Explicit\r\n\r\nDim objFSO, objFolder, wshShell, oShellLink, strScriptPath, strLogLocation, strOS\r\nDim strOptions, strCommandLine, strRegKey, blnDeleteVMwareUserProcess, blnReturn\r\nDim strProcessorArchitecture, strMSI, blnNewInstall, blnRemoveMemoryBaloonDriver\r\nDim strvalue, blnMoveStartMenuFolder, strITToolsFolder, strAllUsersProfile\r\nDim strLogFile, strFrom, strTo\r\n\r\n'********** These are the script variables that can be changed **********\r\n\r\n' Setting this to false will not remove the VMware memory balloon driver.\r\nblnRemoveMemoryBaloonDriver = False\r\n\r\n' Removing the "VMware User Process" (VMwareUser.exe) from the Run key causes no detrement\r\n' to the running Guest. It may cause some loss of functionality from VMware Tools e.g. Drag\r\n' and drop\/copy and paste operations which does not seem to affect ICA sessions. Change this\r\n' value to False if you do not want to disable the VMwareUser.exe process.\r\nblnDeleteVMwareUserProcess = True\r\n\r\n' Setting this to true will move the VMware Start Menu folder to the Start Menu subfolder\r\n' defined.\r\nblnMoveStartMenuFolder = True\r\nstrITToolsFolder = "IT Tools"\r\n\r\n' Set the log file location\r\nstrLogLocation = "%SystemDrive%\\bldlogs"\r\n\r\n' Set the log file name\r\nstrLogFile = "VMwareTools.Log"\r\n\r\n'************************************************************************\r\n\r\nset WshShell = WScript.CreateObject("WScript.Shell")\r\nset objFSO = CreateObject("Scripting.FileSystemObject")\r\n\r\nstrLogLocation = WshShell.ExpandEnvironmentStrings(strLogLocation)\r\n\r\nstrScriptPath = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName, "\\"))\r\n\r\n' Create the log file folder\r\nIf NOT objFSO.FolderExists(strLogLocation) Then\r\n objFSO.CreateFolder(strLogLocation)\r\nEnd If\r\n\r\nstrProcessorArchitecture = WshShell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%")\r\nstrAllUsersProfile = WshShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%")\r\n\r\nstrOS = GetOSFamily()\r\n\r\n' Modifying the video hardware acceleration\r\nIf setVideoAcceleration Then\r\n wscript.echo "Updated Video Hardware Acceleration to Full."\r\nElse\r\n wscript.echo "No Video Hardware Acceleration to set."\r\nEnd If\r\n\r\n' Detect previous installation of VMware Tools\r\nblnNewInstall = True\r\nstrvalue = "HKLM\\SYSTEM\\CurrentControlSet\\Services\\VMTools\\Start"\r\nIf RegValueExists(strvalue) Then\r\n blnNewInstall = False\r\nEnd If\r\n\r\n' Building the MSIEXEC command line options\r\nIf blnNewInstall Then\r\n strOptions = " ALLUSERS=TRUE ADDLOCAL=ALL \/Lv* " & chr(34) & strLogLocation & "\\" & strLogFile & chr(34) & " \/qb- REBOOT=ReallySuppress"\r\nElse\r\n strOptions = " ALLUSERS=TRUE \/Lv* " & chr(34) & strLogLocation & "\\" & strLogFile & chr(34) & " \/qb- REBOOT=ReallySuppress"\r\nEnd If\r\nIf isTerminalServer(strOS) Then\r\n If blnRemoveMemoryBaloonDriver Then\r\n strOptions = strOptions & " REMOVE=" & chr(34) & "Hgfs,MemCtl,Sync,vmdesched" & chr(34)\r\n Else\r\n strOptions = strOptions & " REMOVE=" & chr(34) & "Hgfs,Sync,vmdesched" & chr(34)\r\n End If\r\nEnd If\r\n\r\nIf strProcessorArchitecture = "x86" Then\r\n strMSI = "VMware Tools.msi"\r\nElse\r\n strMSI = "VMware Tools64.msi"\r\nEnd If\r\n\r\n' Installing VMware Tools with the relevant command line options\r\nstrCommandLine = "msiexec \/i " & chr(34) & strScriptPath & "VMware Tools\\"& strMSI & chr(34) & strOptions\r\nWshShell.Run strCommandLine,1,True\r\n\r\n' If we are building a Citrix\/Terminal Server, delete VMware Tools Tray Icon and VMware User\r\n' Process from the Run key. The VMware User Process will only be removed if\r\n' blnDeleteVMwareUserProcess is set to True. There are settings for this in our Group Policy\r\n' ADM template. It will also move the Start Menu Folder to a location specified by the\r\n' strITToolsFolder variable.\r\nIf isTerminalServer(strOS) Then\r\n strRegKey = "HKLM\\SOFTWARE\\VMware, Inc.\\VMware Tools\\"\r\n If RegValueExists(strRegKey & "ShowTray") Then\r\n WshShell.RegWrite strRegKey & "ShowTray", "0", "REG_DWORD"\r\n wscript.echo "VMware Tools Tray Icon has been disabled."\r\n End If\r\n strRegKey = "HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\"\r\n If RegValueExists(strRegKey & "VMware Tools") Then\r\n WshShell.RegDelete strRegKey & "VMware Tools"\r\n wscript.echo "VMware Tools registry value deleted."\r\n Else\r\n wscript.echo "VMware Tools registry value does not exist."\r\n End If\r\n If blnDeleteVMwareUserProcess Then\r\n If RegValueExists(strRegKey & "VMware User Process") Then\r\n WshShell.RegDelete strRegKey & "VMware User Process"\r\n wscript.echo "VMware User Process registry value deleted."\r\n Else\r\n wscript.echo "VMware User Process registry value does not exist."\r\n End If\r\n End If\r\n' Move the Start Menu Folder.\r\n If blnMoveStartMenuFolder Then\r\n If NOT objFSO.FolderExists(strAllUsersProfile & "\\Start Menu\\Programs\\" & strITToolsFolder) Then\r\n objFSO.CreateFolder(strAllUsersProfile & "\\Start Menu\\Programs\\" & strITToolsFolder)\r\n End If\r\n strFrom = strAllUsersProfile & "\\Start Menu\\Programs\\VMware"\r\n strTo = strAllUsersProfile & "\\Start Menu\\Programs\\" & strITToolsFolder & "\\"\r\n Call MoveFolder(strFrom,strTo)\r\n wscript.echo "VMware Start Menu Folder has been moved."\r\n End If\r\nEnd If\r\n\r\nSet WshShell = Nothing\r\nset objFSO = Nothing\r\n\r\nWScript.Quit(0)\r\n\r\nFunction setVideoAcceleration()\r\n'\r\n' SYNTAX:\t\tsetVideoAcceleration()\r\n'\t\t\r\n' Parameters:\tN\/A\r\n'\r\n' Returns:\t\tTrue if registry written successfully\r\n'\r\n' Example:\t\tsetVideoAcceleration\r\n'\r\n' Remarks:\t\t\r\n'\r\n Const HKEY_LOCAL_MACHINE = &H80000002\r\n Const VIDEO_LIST = "SYSTEM\\CurrentControlSet\\Control\\Video"\r\n\r\n Dim wbemLocator, wbemDefault, wshShell, regAllWMI, adapterList, adapterGUID, adapterPath, dwValue\r\n\r\n Set wbemLocator = CreateObject("WbemScripting.SWbemLocator")\r\n Set wbemDefault = wbemLocator.ConnectServer(".", "root\\default")\r\n Set wshShell = WScript.CreateObject("WScript.Shell")\r\n\r\n setVideoAcceleration = False\r\n Set regAllWMI = wbemDefault.Get("StdRegProv")\r\n If (Err.Number <> 0) Then\r\n wscript.echo "Error connecting to WMI StdRegProv " & Err.Number & " : " & Err.Description\r\n Else\r\n regAllWMI.EnumKey HKEY_LOCAL_MACHINE, VIDEO_LIST, adapterList\r\n If (Err.Number <> 0) Then\r\n wscript.echo "Could not enumerate video adapters"\r\n Else\r\n For Each adapterGUID In adapterList\r\n adapterPath = VIDEO_LIST & "\\" & adapterGUID & "\0000"\r\n regAllWMI.GetDWORDValue HKEY_LOCAL_MACHINE, adapterPath, "Acceleration.Level", dwValue\r\n If Not IsNull(dwValue) Then\r\n regAllWMI.SetDWORDValue HKEY_LOCAL_MACHINE, adapterPath, "Acceleration.Level", 0\r\n setVideoAcceleration = True\r\n End If\r\n Next\r\n End If\r\n End If\r\n Set regAllWMI = Nothing\r\n Set wshShell = Nothing\r\n Set wbemDefault = Nothing\r\n Set wbemLocator = Nothing\r\n\r\nEnd Function\r\n\r\nFunction RegValueExists(sRegValue)\r\n' Returns True or False based of the existence of a registry value.\r\n Dim oShell, RegReadReturn \r\n Set oShell = CreateObject("WScript.Shell") \r\n RegValueExists = True ' init value \r\n On Error Resume Next \r\n RegReadReturn = oShell.RegRead(sRegValue) \r\n If Err.Number <> 0 Then \r\n RegValueExists = False \r\n End if \r\n On Error Goto 0 \r\n Set oShell = Nothing\r\nEnd Function \r\n\r\nSub MoveFolder(strFrom, strTo)\r\n Dim objFSO\r\n Set objFSO = CreateObject("Scripting.FileSystemObject")\r\n If NOT objFSO.FolderExists(strTo) Then\r\n Set objFolder = objFSO.CreateFolder(strTo)\r\n End If\r\n If objFSO.FolderExists(strFrom) Then\r\n objFSO.CopyFolder strFrom , strTo , True\r\n objFSO.DeleteFolder(strFrom)\r\n End If\r\n Set objFSO = Nothing\r\n Set objFolder = Nothing\r\nEnd Sub\r\n\r\nFunction GetOSFamily()\r\n Dim strComputer, oWMIService, colOSInfo, oOSProperty, strCaption, strOSFamily\r\n strComputer = "."\r\n Set oWMIService = GetObject("winmgmts:\\\\" & strComputer & "\\root\\cimv2")\r\n Set colOSInfo = oWMIService.ExecQuery("Select * from Win32_OperatingSystem")\r\n For Each oOSProperty in colOSInfo\r\n strCaption = oOSProperty.Caption\r\n Next\r\n If InStr(1,strCaption, "2008", vbTextCompare) Then strOSFamily = "W2K8"\r\n If InStr(1,strCaption, "2003", vbTextCompare) Then strOSFamily = "W2K3"\r\n GetOSFamily = strOSFamily\r\n Set oWMIService = Nothing\r\n Set colOSInfo = Nothing\r\nEnd Function\r\n\r\nFunction isTerminalServer(strOS)\r\n Dim strComputer, strNameSpace, objWMIService, colItems, objItem \r\n strComputer = "."\r\n If ucase(strOS) = "W2K3" Then\r\n strNameSpace = "\\root\\cimv2"\r\n Else\r\n strNameSpace = "\\root\\cimv2\\TerminalServices"\r\n End If\r\n Set objWMIService = GetObject("winmgmts:" _ \r\n & "{impersonationLevel=impersonate}!\\\\" & strComputer & strNameSpace) \r\n Set colItems = objWMIService.ExecQuery _ \r\n ("Select * from Win32_TerminalServiceSetting") \r\n For Each objItem in colItems \r\n Select Case objItem.LicensingType \r\n Case "1" ' Remote Administration\r\n isTerminalServer = False\r\n Case "2" ' Per Device\r\n isTerminalServer = True\r\n Case "4" ' Per User\r\n isTerminalServer = True\r\n Case "5" ' Not configured yet\r\n isTerminalServer = True\r\n Case Else\r\n isTerminalServer = False \r\n End Select\r\n Next \r\n Set objWMIService = Nothing \r\n Set colItems = Nothing \r\nEnd Function \r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"Updated 19th October 2010… This is what I call the “bees knees” of scripts for deploying VMware Tools. It will detect if it’s being installed on a Terminal\/Citrix Server, and remove the appropriate components that may impede performance, etc.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[5,40,38],"tags":[416,107,92,108,417],"class_list":["post-220","post","type-post","status-publish","format-standard","hentry","category-scripting","category-vmware","category-xenapp","tag-citrix","tag-install-vmware-tools","tag-presentation-server","tag-vmtools","tag-xenapp"],"aioseo_notices":[],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/220","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/comments?post=220"}],"version-history":[{"count":49,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/220\/revisions"}],"predecessor-version":[{"id":675,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/220\/revisions\/675"}],"wp:attachment":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/media?parent=220"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/categories?post=220"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/tags?post=220"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"\"](\"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-content\/uploads\/2008\/12\/promptforsettinghardwareacceleration.png\" "\\"promptforsettinghardwareacceleration\\"")
<\/a><\/p>\n