I updated the previous vbs script. It is now more or less a general script for applications with processes in the background. It should work with Workstation 6.5. In the current version manual configuration which had been necessary in the previous version is performed automatically.
Upon starting, when the script notices that VMware related services or processes are running, it will configure startup type of all services and processes.
When services, processes (and an autostart registry entry) are not running/available, it will perform normal operation, which is trying to start related processes and then executes VMware.
Take some patience while executing. It may take a few seconds to start.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' This script first starts services for VMware, then starts
' VMware Workstation. Once VMware stops, services are
' stopped and terminated again.
'
' General instructions:
' Copy this file to the same directory where your target file
' resides. Modify the InitializeTable, which can be found at
' the bottom of this file.
'
' If services or processes are running, while this script is
' started, this script will only perform a modification of
' startup options from all concerning services, registry
' entries and processes, which have been defined in the
' table.
'
' If none of the services or processes are running, this
' program will try to start all services and processes, then
' invoke the target application. Once the application is
' finished, all services and processes are disabled again
'
' written 090212 by w_m0zart / Marc Nijdam.
' http://www.nijdam.de/marc.html
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Const HKLM = &H80000002
dim pth
dim pgm1
dim pgm2
dim pgm3
dim cmnd
dim qq
dim FirstRun
' ##########
dim table(50)
dim ItemCount
InitializeTable ' load array with list of known services and autostart entries
ItemCount=NumArrayElements (table)
' ##########
set shell = Wscript.CreateObject("Wscript.shell")
qq = Chr(34) ' define quote as constant, because shell.run does not accept a program without this function
FirstRun = False
For TableIndex = 1 to ItemCount
select Case table(TableIndex-1)(1)
Case 0 ' Process which is listed in the services.msc list.
If service_status (table(TableIndex-1)(0)) = "Running" Then
service_stop (table(TableIndex-1)(0))
service_setManual (table(TableIndex-1)(0))
FirstRun = True
End If
Case 1 ' Process which is not listed in the services.msc list.
If proces_status (ExtractFileName (table(TableIndex-1)(0))) = "Running" Then
proces_terminate (ExtractFileName ((table(TableIndex-1)(0))))
FirstRun = True
End If
Case 2 ' Proces autostart registry entry.
If reg_status (table(TableIndex-1)(0)) = 1 Then
reg_rundelete (table(TableIndex-1)(0))
FirstRun = True
End If
Case Default
End Select
Next
If not FirstRun Then
rem ! Starting services and running target application
For TableIndex = 1 to ItemCount
select Case table(TableIndex-1)(1)
Case 0 ' Process which is listed in the services.msc list.
service_start (table(TableIndex-1)(0))
Case 1 ' Process which is not listed in the services.msc list.
shell.run qq & table(TableIndex-1)(0) & qq,0,false
Case 3 ' Now starting the target application
shell.run qq & table(TableIndex-1)(0) & qq,1,true
Case Default
End Select
Next
rem Target applicatino quited, stopping services
For TableIndex = 1 to ItemCount
select Case table(TableIndex-1)(1)
Case 0 ' Process which is listed in the services.msc list.
If service_status (table(TableIndex-1)(0)) = "Running" Then
service_stop (table(TableIndex-1)(0))
service_setManual (table(TableIndex-1)(0))
End If
Case 1 ' Process which is not listed in the services.msc list.
If proces_status (ExtractFileName (table(TableIndex-1)(0))) = "Running" Then
proces_terminate (ExtractFileName (table(TableIndex-1)(0)))
End If
Case 2 ' Proces autostart registry entry.
If reg_status (table(TableIndex-1)(0)) = 1 Then
reg_rundelete (table(TableIndex-1)(0))
End If
Case Default
End Select
Next
Else
msgbox ("Finished configuring VMware to disable services and autostart items")
End If
WScript.Quit()
sub service_start (StrService) ' Start a service with its service name in the Windows Services (via Computer Management)
c = 0
Do Until c = 1
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = '" & StrService & "'")
For Each objService in colServiceList
Select Case objService.State
Case "Stopped"
objService.StartService()
c = 1
Case "Running"
c = 0
Case "Start Pending"
c = 0
End Select
Next
WScript.Sleep (2000)
Loop
End Sub
sub service_stop (StrService) ' Stop a service with its service name in the Windows Services (via Computer Management)
c = 0
Do Until c = 1
Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service where Name = '" & StrService & "'")
If colServiceList.Count 0 Then
For Each objService in colServiceList
Select Case objService.State
Case "Stopped"
c = 1
Case "Running"
objService.StopService()
c = 0
Case "Start Pending"
c = 0
End Select
Next
Else
c=1
End If
WScript.Sleep (2000)
Loop
End Sub
sub proces_terminate (StrService) ' Stop a proces with name StrService corresponding in the Windows Task Manager
Dim colProcessList, objProcess
Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process Where Name ='" & StrService & "'")
If colProcessList.Count 0 Then
For Each objProcess in colProcessList
objProcess.Terminate( )
Next
End If
End sub
Function service_status (StrService)
c = 0
Do Until c = 1
Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service where Name = '" & StrService & "'")
If colServiceList.Count 0 Then
For Each objService in colServiceList
Select Case objService.State
Case "Stopped"
c = 1
service_status ="Stopped"
Case "Running"
c = 1
service_status ="Running"
Case "Start Pending"
c = 0
End Select
Next
Else
c=1
End If
WScript.Sleep (100)
Loop
End Function
Function proces_status (StrService)
Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = '" & StrService & "'")
If colServiceList.count = 1 Then
proces_status="Running"
End If
End Function
Sub service_setManual (StrService) 'Disables in the service manager specific services according to "service name:"
Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service where Name = '" & StrService & "'")
For Each objService in colServiceList
objService.ChangeStartMode("Manual")
Next
End Sub
Sub reg_rundelete (StrReg)
rpath="Software\Microsoft\Windows\CurrentVersion\Run"
if objReg.EnumValues(HKLM,rpath,aValueNames,aValueTypes) = 0 Then
For i = 0 To UBound(aValueNames)
' Check for type 'String Value' or "REG_SZ" (= 1)
If aValueTypes(i) = 1 Then
If objReg.GetStringValue(HKLM, rpath, aValueNames(i), sValue) = 0 Then
if aValueNames(i) = StrReg Then
objReg.DeleteValue HKLM,rpath,StrReg
End If
End If
End If
Next
End If
End Sub
Function reg_status (rsReg)
reg_status=0
rpath="Software\Microsoft\Windows\CurrentVersion\Run"
if objReg.EnumValues(HKLM,rpath,aValueNames,aValueTypes) = 0 Then
For i = 0 To UBound(aValueNames)
' Check for type 'String Value' or "REG_SZ" (= 1)
If aValueTypes(i) = 1 Then
If objReg.GetStringValue(HKLM, rpath, aValueNames(i), sValue) = 0 Then
if aValueNames(i) = rsReg Then
reg_status=1
End If
End If
End If
Next
End If
End Function
Function NumArrayElements (NAEtable)
NAEArrayItems=0
For Each element in NAEtable
If IsArray (element) Then
NAEArrayItems=NAEArrayItems+1
End If
Next
NumArrayElements=NAEArrayItems
End Function
Function ExtractFileName (EFNstr)
EFNi = InStrRev(EFNstr, "\")
ExtractFileName = Mid(EFNstr, EFNi + 1)
End Function
' ##########
sub InitializeTable
' Table has following structure:
' table( [index]) = Array("[Processname]", [kind of process])
'
' Processname: Name of Service, executable or registry key
' Kind of process: -1, 0, 1, 2 or 3
' -1: Item is being ignored
' 0: Service is listed with 'Service Name' in services.msc.
' 1: Service is not listed in services.msc. Use 'Image Name' in Task Manager with full path.
' 2: Processes in registry autostart key "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
' 3: Target executable. Use full path and name
table( 0) = Array("VMAuthdService", 0)
table( 1) = Array("VMnetDHCP", 0)
table( 2) = Array("VMware NAT Service", 0)
table( 3) = Array("vmount2", -1) ' Something from previous Vmware workstation version
table( 4) = Array("ufad-ws60", 0)
table( 5) = Array("C:\Program Files\VMware\VMware Workstation\hqtray.exe", 1)
table( 6) = Array("C:\Program Files\VMware\VMware Workstation\vmware-tray.exe", 1)
table( 7) = Array("vmware-tray", 2)
table( 😎 = Array("C:\Program Files\VMware\VMware Workstation\vmware.exe", 3)
End Sub
' ##########
