win-vbox-net-uninstall.ps1 revision cf22150eaeeb72431bf1cf65c309a431454fb22b
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncparam([switch]$confirm)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncFunction AskForConfirmation ($title_text, $message_text, $yes_text, $no_text)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($confirm) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $title = $title_text
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $message = $message_text
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $yes = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", $yes_text
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $no = New-Object System.Management.Automation.Host.ChoiceDescription "&No", $no_text
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $options = [System.Management.Automation.Host.ChoiceDescription[]]($yes, $no)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $result = $host.ui.PromptForChoice($title, $message, $options, 0)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $result = 0
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync return $result
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncFunction DeleteUnmatchingKeys ($title_text, $reg_key)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $ghostcon = @(Get-ChildItem ($reg_key) | Where-Object { !$connections.ContainsKey($_.PSChildName) } )
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "`nNo ghost connections has been found -- nothing to do"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "`nParameter keys for the following connections will be removed:"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host ($ghostcon | Out-String)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $result = AskForConfirmation $title_text `
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync "Do you want to delete the keys listed above?" `
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync "Deletes all ghost connection keys from the registry." `
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync "No modifications to the registry will be made."
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync switch ($result)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync 0 {$ghostcon.GetEnumerator() | ForEach-Object { Remove-Item -Path $_ -Recurse }}
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync 1 {"Removal cancelled."}
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncPush-Location
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsynccd "Registry::"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncWrite-Host "Retrieving valid connections:"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$iftypes = @{}
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$connections = @{}
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$ghostcon_names = @{}
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncGet-Item ".\HKLM\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\0*" | `
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync ForEach-Object {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $prop = (Get-ItemProperty $_.PSPath)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $conn = $null
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if (Test-Path ("HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" + $prop.NetCfgInstanceId + "\Connection")) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $conn = (Get-ItemProperty ("HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\" + $prop.NetCfgInstanceId + "\Connection"))
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $iftype = $prop."*IfType"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($iftypes.ContainsKey($iftype)) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $iftypes[$iftype] = $iftypes[$iftype] + [Math]::pow(2,$prop.NetLuidIndex)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $iftypes[$iftype] = [Math]::pow(2,$prop.NetLuidIndex)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($conn -ne $null) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host $prop.NetCfgInstanceId $conn.Name "|" $prop."*IfType" $prop.NetLuidIndex $prop.DriverDesc
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host $prop.NetCfgInstanceId [MISSING] "|" $prop."*IfType" $prop.NetLuidIndex $prop.DriverDesc
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync# Someday we may want to process other types than Ethernet as well: $iftypes.GetEnumerator() | ForEach-Object {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncif ($iftypes[6] -gt 9223372036854775808) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "Found more than 63 interfaces (mask=" $iftypes[6] ") -- bailing out"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncWrite-Host "`nChecking if the used LUID index mask is correct:"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$correctmask = [BitConverter]::GetBytes([int64]($iftypes[6]))
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$actualmask = (Get-ItemProperty -Path "HKLM\SYSTEM\CurrentControlSet\Services\NDIS\IfTypes\6" -Name "IfUsedNetLuidIndices").IfUsedNetLuidIndices
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$needcorrection = $FALSE
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$lastnonzero = 0
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncfor ($ci = 0; $ci -lt $correctmask.Length; $ci++) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($ai -lt $actualmask.Length) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $aval = $actualmask[$ai++]
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($correctmask[$ci] -ne 0) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $lastnonzero = $ci
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($correctmask[$ci] -eq $aval) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "DEBUG: " $correctmask[$ci].ToString("X2") " == " $aval.ToString("X2")
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "DEBUG: " $correctmask[$ci].ToString("X2") " != " $aval.ToString("X2")
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $needcorrection = $TRUE
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync for (; $ai -lt $actualmask.Length; $ai++) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($actualmask[$ai] -eq 0) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "DEBUG: 0 == 0"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "DEBUG: " $actualmask[$ai].ToString("X2") " != 0"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $needcorrection = $TRUE
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncif ($needcorrection) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "Current mask is " ($actualmask|foreach {$_.ToString("X2")}) ", while it should be" ($correctmask|foreach {$_.ToString("X2")})
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($confirm) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Set-ItemProperty -Path "HKLM\SYSTEM\CurrentControlSet\Services\NDIS\IfTypes\6" -Name "IfUsedNetLuidIndices" -Value $correctmask -Type Binary -Confirm
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Set-ItemProperty -Path "HKLM\SYSTEM\CurrentControlSet\Services\NDIS\IfTypes\6" -Name "IfUsedNetLuidIndices" -Value $correctmask -Type Binary
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "The used LUID index mask is correct -- nothing to do"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync#Write-Host ($connections | Out-String)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$ghostcon = (Get-ChildItem ("HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}") | Where-Object { !$connections.ContainsKey($_.PSChildName) -and $_.PSChildName -ne "Descriptions" } )
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncif ($ghostcon -eq $null) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "`nNo ghost connections has been found -- nothing to do"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "`nThe following connections will be removed:"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync #Write-Host ($ghostcon | Out-String)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $ghostcon.GetEnumerator() | ForEach-Object {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $prop = (Get-ItemProperty "$_\Connection")
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($prop.PnPInstanceId -eq $null) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "WARNING! PnPInstanceId does not exist for" $_.PSChildName
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync } elseif (!($prop.PnPInstanceId.ToString() -match "SUN_VBOXNETFLTMP")) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "WARNING! PnPInstanceId (" $prop.PnPInstanceId.ToString() ") does not match ROOT\SUN_VBOXNETFLTMP for" $_.PSChildName
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($prop.Name -eq $null) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "WARNING! Name does not exist for" $_.PSChildName
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host $_.PSChildName -nonewline
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host " " -nonewline
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $result = AskForConfirmation "Delete Registry Keys" `
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync "Do you want to delete the keys listed above?" `
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync "Deletes all ghost connection keys from the registry." `
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync "No modifications to the registry will be made."
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync switch ($result)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync 0 {$ghostcon.GetEnumerator() | ForEach-Object { Remove-Item -Path $_.PSPath -Recurse }}
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync 1 {"Removal cancelled."}
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync# Delete WFPLWFS parameter keys
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncDeleteUnmatchingKeys "Delete WFPLWFS Parameter Keys (Adapter subkey)" "HKLM\SYSTEM\CurrentControlSet\Services\WFPLWFS\Parameters\Adapters"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncDeleteUnmatchingKeys "Delete WFPLWFS Parameter Keys (NdisAdapter subkey)" "HKLM\SYSTEM\CurrentControlSet\Services\WFPLWFS\Parameters\NdisAdapters"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync# Delete Psched parameter keys
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncDeleteUnmatchingKeys "Delete Psched Parameter Keys (Adapter subkey)" "HKLM\SYSTEM\CurrentControlSet\Services\Psched\Parameters\Adapters"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncDeleteUnmatchingKeys "Delete Psched Parameter Keys (NdisAdapter subkey)" "HKLM\SYSTEM\CurrentControlSet\Services\Psched\Parameters\NdisAdapters"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync# Clean up NSI entries
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$nsi_obsolete = New-Object System.Collections.ArrayList
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$nsi_path = "HKLM\SYSTEM\CurrentControlSet\Control\Nsi\{EB004A11-9B1A-11D4-9123-0050047759BC}\10"
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$nsi = (Get-Item $nsi_path) | Select-Object -ExpandProperty property
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$nsi | ForEach-Object {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $value = (Get-ItemProperty -Path $nsi_path -Name $_).$_
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync [byte[]]$guid_bytes = $value[1040..1055]
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $guid = New-Object -TypeName System.Guid -ArgumentList (,$guid_bytes)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $guid_string = $guid.ToString("B").ToUpper()
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $nsi_conn_name_last = 6 + $value[4] + $value[5]*256
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $nsi_conn_name = [Text.Encoding]::Unicode.GetString($value[6..$nsi_conn_name_last])
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $nsi_if_name_last = 522 + $value[520] + $value[521]*256
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync $nsi_if_name = [Text.Encoding]::Unicode.GetString($value[522..$nsi_if_name_last])
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host $_ -nonewline
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host " " -nonewline
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host $guid_string -nonewline
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host " " -nonewline
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync if ($connections.ContainsKey($guid_string)) {
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host $nsi_if_name
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync Write-Host "[OBSOLETE] " $nsi_if_name -foregroundcolor red
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync$result = AskForConfirmation "Delete NSI Entries" `
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync "Do you want to delete the entries marked in red above?" `
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync "Deletes all marked entries from the NSI registry key." `
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync "No modifications to the registry will be made."
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncswitch ($result)
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync 0 {$nsi_obsolete.GetEnumerator() | ForEach-Object { Remove-ItemProperty -Path $nsi_path -Name $_ }}
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsync 1 {"Removal cancelled."}
cf22150eaeeb72431bf1cf65c309a431454fb22bvboxsyncPop-Location