VirtualBox

source: vbox/trunk/src/VBox/ValidationKit/testdriver/win-vbox-net-uninstall.ps1

Last change on this file was 106061, checked in by vboxsync, 3 months ago

Copyright year updates by scm.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 10.2 KB
Line 
1# $Id: win-vbox-net-uninstall.ps1 106061 2024-09-16 14:03:52Z vboxsync $
2## @file
3# VirtualBox Validation Kit - network cleanup script (powershell).
4#
5
6#
7# Copyright (C) 2006-2024 Oracle and/or its affiliates.
8#
9# This file is part of VirtualBox base platform packages, as
10# available from https://www.virtualbox.org.
11#
12# This program is free software; you can redistribute it and/or
13# modify it under the terms of the GNU General Public License
14# as published by the Free Software Foundation, in version 3 of the
15# License.
16#
17# This program is distributed in the hope that it will be useful, but
18# WITHOUT ANY WARRANTY; without even the implied warranty of
19# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20# General Public License for more details.
21#
22# You should have received a copy of the GNU General Public License
23# along with this program; if not, see <https://www.gnu.org/licenses>.
24#
25# The contents of this file may alternatively be used under the terms
26# of the Common Development and Distribution License Version 1.0
27# (CDDL), a copy of it is provided in the "COPYING.CDDL" file included
28# in the VirtualBox distribution, in which case the provisions of the
29# CDDL are applicable instead of those of the GPL.
30#
31# You may elect to license modified versions of this file under the
32# terms and conditions of either the GPL or the CDDL or both.
33#
34# SPDX-License-Identifier: GPL-3.0-only OR CDDL-1.0
35#
36
37param([switch]$confirm)
38
39Function AskForConfirmation ($title_text, $message_text, $yes_text, $no_text)
40{
41 if ($confirm) {
42 $title = $title_text
43 $message = $message_text
44
45 $yes = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", $yes_text
46
47 $no = New-Object System.Management.Automation.Host.ChoiceDescription "&No", $no_text
48
49 $options = [System.Management.Automation.Host.ChoiceDescription[]]($yes, $no)
50
51 $result = $host.ui.PromptForChoice($title, $message, $options, 0)
52 } else {
53 $result = 0
54 }
55
56 return $result
57}
58
59Function DeleteUnmatchingKeys ($title_text, $reg_key)
60{
61 $ghostcon = @(Get-ChildItem ($reg_key) | Where-Object { !$connections.ContainsKey($_.PSChildName) } )
62 if ($ghostcon.count -eq 0) {
63 Write-Host "`nNo ghost connections has been found -- nothing to do"
64 } else {
65 Write-Host "`nParameter keys for the following connections will be removed:"
66 Write-Host ($ghostcon | Out-String)
67
68 $result = AskForConfirmation $title_text `
69 "Do you want to delete the keys listed above?" `
70 "Deletes all ghost connection keys from the registry." `
71 "No modifications to the registry will be made."
72
73 switch ($result)
74 {
75 0 {$ghostcon.GetEnumerator() | ForEach-Object { Remove-Item -Path $_ -Recurse }}
76 1 {"Removal cancelled."}
77 }
78 }
79}
80
81
82Push-Location
83cd "Registry::"
84Write-Host "Retrieving valid connections:"
85$iftypes = @{}
86$connections = @{}
87$ghostcon_names = @{}
88Get-Item ".\HKLM\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\0*" | `
89 ForEach-Object {
90 $prop = (Get-ItemProperty $_.PSPath)
91 $conn = $null
92 if (Test-Path ("HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" + $prop.NetCfgInstanceId + "\Connection")) {
93 $conn = (Get-ItemProperty ("HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" + $prop.NetCfgInstanceId + "\Connection"))
94 }
95 $iftype = $prop."*IfType"
96 if ($iftypes.ContainsKey($iftype)) {
97 $iftypes[$iftype] = $iftypes[$iftype] + [Math]::pow(2,$prop.NetLuidIndex)
98 } else {
99 $iftypes[$iftype] = [Math]::pow(2,$prop.NetLuidIndex)
100 }
101 if ($conn -ne $null) {
102 $connections[$prop.NetCfgInstanceId] = $conn.Name
103 Write-Host $prop.NetCfgInstanceId $conn.Name "|" $prop."*IfType" $prop.NetLuidIndex $prop.DriverDesc
104 } else {
105 Write-Host $prop.NetCfgInstanceId [MISSING] "|" $prop."*IfType" $prop.NetLuidIndex $prop.DriverDesc
106 }
107 }
108
109# Someday we may want to process other types than Ethernet as well: $iftypes.GetEnumerator() | ForEach-Object {
110if ($iftypes[6] -gt 9223372036854775808) {
111 Write-Host "Found more than 63 interfaces (mask=" $iftypes[6] ") -- bailing out"
112 exit
113}
114Write-Host "`nChecking if the used LUID index mask is correct:"
115$correctmask = [BitConverter]::GetBytes([int64]($iftypes[6]))
116$actualmask = (Get-ItemProperty -Path "HKLM\SYSTEM\CurrentControlSet\Services\NDIS\IfTypes\6" -Name "IfUsedNetLuidIndices").IfUsedNetLuidIndices
117$needcorrection = $FALSE
118$ai = 0
119$lastnonzero = 0
120for ($ci = 0; $ci -lt $correctmask.Length; $ci++) {
121 if ($ai -lt $actualmask.Length) {
122 $aval = $actualmask[$ai++]
123 } else {
124 $aval = 0
125 }
126 if ($correctmask[$ci] -ne 0) {
127 $lastnonzero = $ci
128 }
129 if ($correctmask[$ci] -eq $aval) {
130 Write-Host "DEBUG: " $correctmask[$ci].ToString("X2") " == " $aval.ToString("X2")
131 } else {
132 Write-Host "DEBUG: " $correctmask[$ci].ToString("X2") " != " $aval.ToString("X2")
133 $needcorrection = $TRUE
134 }
135}
136if ($ai -lt $actualmask.Length) {
137 for (; $ai -lt $actualmask.Length; $ai++) {
138 if ($actualmask[$ai] -eq 0) {
139 Write-Host "DEBUG: 0 == 0"
140 } else {
141 Write-Host "DEBUG: " $actualmask[$ai].ToString("X2") " != 0"
142 $needcorrection = $TRUE
143 }
144 }
145}
146if ($needcorrection) {
147 Write-Host "Current mask is " ($actualmask|foreach {$_.ToString("X2")}) ", while it should be" ($correctmask|foreach {$_.ToString("X2")})
148 if ($confirm) {
149 Set-ItemProperty -Path "HKLM\SYSTEM\CurrentControlSet\Services\NDIS\IfTypes\6" -Name "IfUsedNetLuidIndices" -Value $correctmask -Type Binary -Confirm
150 } else {
151 Set-ItemProperty -Path "HKLM\SYSTEM\CurrentControlSet\Services\NDIS\IfTypes\6" -Name "IfUsedNetLuidIndices" -Value $correctmask -Type Binary
152 }
153} else {
154 Write-Host "The used LUID index mask is correct -- nothing to do"
155}
156
157#Write-Host ($connections | Out-String)
158$ghostcon = @(Get-ChildItem ("HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}") | Where-Object { !$connections.ContainsKey($_.PSChildName) -and $_.PSChildName -ne "Descriptions" } )
159if ($ghostcon -eq $null) {
160 Write-Host "`nNo ghost connections has been found -- nothing to do"
161} else {
162 Write-Host "`nThe following connections will be removed:"
163 #Write-Host ($ghostcon | Out-String)
164
165 $ghostcon.GetEnumerator() | ForEach-Object {
166 $prop = (Get-ItemProperty "$_\Connection")
167 if ($prop.PnPInstanceId -eq $null) {
168 Write-Host "WARNING! PnPInstanceId does not exist for" $_.PSChildName
169 } elseif (!($prop.PnPInstanceId.ToString() -match "SUN_VBOXNETFLTMP")) {
170 Write-Host "WARNING! PnPInstanceId (" $prop.PnPInstanceId.ToString() ") does not match ROOT\SUN_VBOXNETFLTMP for" $_.PSChildName
171 }
172 if ($prop.Name -eq $null) {
173 Write-Host "WARNING! Name does not exist for" $_.PSChildName
174 } else {
175 $ghostcon_names.Add($_.PSChildName, $prop.Name)
176 Write-Host $_.PSChildName -nonewline
177 Write-Host " " -nonewline
178 Write-Host $prop.Name
179 }
180 }
181
182 $result = AskForConfirmation "Delete Registry Keys" `
183 "Do you want to delete the keys listed above?" `
184 "Deletes all ghost connection keys from the registry." `
185 "No modifications to the registry will be made."
186
187 switch ($result)
188 {
189 0 {$ghostcon.GetEnumerator() | ForEach-Object { Remove-Item -Path $_.PSPath -Recurse }}
190 1 {"Removal cancelled."}
191 }
192}
193
194# Delete WFPLWFS parameter keys
195DeleteUnmatchingKeys "Delete WFPLWFS Parameter Keys (Adapter subkey)" "HKLM\SYSTEM\CurrentControlSet\Services\WFPLWFS\Parameters\Adapters"
196DeleteUnmatchingKeys "Delete WFPLWFS Parameter Keys (NdisAdapter subkey)" "HKLM\SYSTEM\CurrentControlSet\Services\WFPLWFS\Parameters\NdisAdapters"
197# Delete Psched parameter keys
198DeleteUnmatchingKeys "Delete Psched Parameter Keys (Adapter subkey)" "HKLM\SYSTEM\CurrentControlSet\Services\Psched\Parameters\Adapters"
199DeleteUnmatchingKeys "Delete Psched Parameter Keys (NdisAdapter subkey)" "HKLM\SYSTEM\CurrentControlSet\Services\Psched\Parameters\NdisAdapters"
200
201# Clean up NSI entries
202$nsi_obsolete = New-Object System.Collections.ArrayList
203$nsi_path = "HKLM\SYSTEM\CurrentControlSet\Control\Nsi\{EB004A11-9B1A-11D4-9123-0050047759BC}\10"
204$nsi = (Get-Item $nsi_path) | Select-Object -ExpandProperty property
205$nsi | ForEach-Object {
206 $value = (Get-ItemProperty -Path $nsi_path -Name $_).$_
207 [byte[]]$guid_bytes = $value[1040..1055]
208 $guid = New-Object -TypeName System.Guid -ArgumentList (,$guid_bytes)
209 $guid_string = $guid.ToString("B").ToUpper()
210 $nsi_conn_name_last = 6 + $value[4] + $value[5]*256
211 $nsi_conn_name = [Text.Encoding]::Unicode.GetString($value[6..$nsi_conn_name_last])
212 $nsi_if_name_last = 522 + $value[520] + $value[521]*256
213 $nsi_if_name = [Text.Encoding]::Unicode.GetString($value[522..$nsi_if_name_last])
214 Write-Host $_ -nonewline
215 Write-Host " " -nonewline
216 Write-Host $guid_string -nonewline
217 Write-Host " " -nonewline
218 if ($connections.ContainsKey($guid_string)) {
219 Write-Host $nsi_if_name
220 } else {
221 [void] $nsi_obsolete.Add($_)
222 Write-Host "[OBSOLETE] " $nsi_if_name -foregroundcolor red
223 }
224}
225
226$result = AskForConfirmation "Delete NSI Entries" `
227 "Do you want to delete the entries marked in red above?" `
228 "Deletes all marked entries from the NSI registry key." `
229 "No modifications to the registry will be made."
230
231switch ($result)
232 {
233 0 {$nsi_obsolete.GetEnumerator() | ForEach-Object { Remove-ItemProperty -Path $nsi_path -Name $_ }}
234 1 {"Removal cancelled."}
235 }
236
237# Clean up uninstalled connections
238if ( (Get-ChildItem "HKLM\SYSTEM\CurrentControlSet\Control\Network\Uninstalled" | Measure-Object).Count -gt 10 ) {
239 $result = AskForConfirmation "Delete Uninstalled Network Connection Registry Keys" `
240 "There are over 10 uninstalled network connections accumulated in the registry. Do you want to delete them?" `
241 "Deletes uninstalled connection keys from the registry." `
242 "No modifications to the registry will be made."
243
244 switch ($result)
245 {
246 0 {Remove-Item -Path "HKLM\SYSTEM\CurrentControlSet\Control\Network\Uninstalled\*" -Recurse}
247 1 {"Removal cancelled."}
248 }
249} else {
250 Write-Host "Less than 10 uninstalled connections -- no action yet required."
251}
252
253Pop-Location
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette