Skip to content

Instantly share code, notes, and snippets.

View WimObiwan's full-sized avatar

Wim Devos WimObiwan

5 followers · 7 following
View GitHub Profile
@WimObiwan
WimObiwan / WinDbg script.txt
Last active October 19, 2021 08:16
WinDbg troubleshoot deadlocks caused by WinForms STA-violations
* START EXE IN WINDBG
* Based on https://web.archive.org/web/20160223063851/http://blogs.msdn.com/b/dsui_team/archive/2012/10/31/debugging-windows-forms-application-hangs-during-systemevents.userpreferencechanged.aspx
sxe ld clrjit
g
.sympath srv*http://msdl.microsoft.com/download/symbols
.reload
.loadby sos.dll clr
@WimObiwan
WimObiwan / Auth0 - OAuth2 Client Credentials flow example.ps1
Created November 30, 2020 12:21
function Get-AccessTokenClientCredentialsFlow {
param (
[string]$ClientId,
[string]$ClientSecret,
[string]$Audience
)
Add-Type -AssemblyName System.Web
$clientidEnc = [System.Web.HttpUtility]::UrlEncode($ClientId)
@WimObiwan
WimObiwan / Teams config.html
Created November 16, 2020 15:49
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8" />
<link rel="icon" href="/favicon.ico" />
<link rel="stylesheet" href="https://static2.sharepointonline.com/files/fabric/office-ui-fabric-core/11.0.0/css/fabric.min.css" />
<title>Microsoft Teams Tab</title>
</head>
<body>
<noscript>You need to enable JavaScript to run this app.</noscript>
@WimObiwan
WimObiwan / auth.log hacking attempt by IP
Created June 12, 2020 20:26
cat /var/log/auth.log /var/log/auth.log | grep 'authentication failure;' | sed 's/.*rhost=\([^ ]*\).*/\1/' | sort | uniq -c
@WimObiwan
WimObiwan / Test-EnduranceSqlConnection.ps1
Last active May 20, 2020 20:31
# Example usage:
# . C:\temp\Test-EnduranceSqlConnection.ps1
# Test-EnduranceSqlConnection '192.168.253.127\Corflow' -Interval ([timespan]::FromSeconds(1))
function Test-Key {
[CmdletBinding()]
param (
[System.ConsoleKey]$Key
)
@WimObiwan
WimObiwan / Wims raadsel.ps1
Created April 8, 2020 08:22
function Match([string]$x, [string]$y) {
if ($x.Length -ne $y.Length) { return '' }
$result = ''
@(0..($x.Length - 1)) | %{
if ($x[$_] -eq $y[$_]) {
$result += '*'
} elseif ($y.Contains($x[$_])) {
$result += '?'
} else {
$result += '.'
@WimObiwan
WimObiwan / Check URL domains in sourcecode.ps1
Created April 8, 2020 08:08
dir -Recurse -Filter *.cs | gc | %{ if ($_ -match '^.*(http(?:s)?\://[^/]*/).*$') { $Matches[1] } } | select -Unique
@WimObiwan
WimObiwan / Remove values from Zabbix.md
Created October 24, 2019 15:17
Remove values from Zabbix

On Zabbix server, connect to MariaDB by running:

mysql

And go to the correct database, e.g.:




  


  




    


          
    

      

        
        

          

              @WimObiwan
          

          

            
                WimObiwan
                / CleanupOldFiles.ps1
            
            

              Last active
              August 29, 2019 11:58
            

              
                CleanupOldFiles.ps1
              
          

        

      

        

  

    
    


        



  


  

        

          
          $folder = 'C:\Temp\', $env:TEMP, '~/Downloads'
        

        

          
          $threshold = (Get-Date).AddMonths(-1.0)
        

        

          
          $ConfirmPreference = 'Low'
        

        

          
          

        

        

          
          $oldFiles = $folder | Get-ChildItem -File -Recurse | ?{ $_.LastAccessTime -lt $threshold }
        

        

          
          $oldFiles | Sort-Object -Property Length -Descending | Select -First 25 Length, FullName
        

        

          
          $oldFiles | Measure-Object -Property Length -Sum -Maximum -Minimum -Average
        

        

          
          $oldFiles | Remove-Item -Force -Confirm
        

        

          
          

        

        

          
          $emptyFolders = $folder | Get-ChildItem -Directory -Recurse `
        

  





    


  




    


          
    

      

        
        

          

              @WimObiwan
          

          

            
                WimObiwan
                / ConvertTo-Dictionary.ps1
            
            

              Created
              August 26, 2019 14:38
            

              
                ConvertTo-Dictionary
              
          

        

      

        

  

    
    


        



  


  

        

          
          function ConvertTo-Dictionary {
        

        

          
            [CmdletBinding()]
        

        

          
            param (
        

        

          
          

        

        

          
              [Parameter(Mandatory=$true, ValueFromPipeline=$true)]
        

        

          
              $Collection,
        

        

          
            
        

        

          
              [Parameter(Mandatory=$true)]
        

        

          
              [string]$Key