norman-bauer

Set-ExecutionPolicy RemoteSigned

$UserCredential = Get-Credential

$Session = New-PSSession -ConfigurationName Microsoft.Exchange -ConnectionUri https://outlook.office365.com/powershell/ -Credential $UserCredential -Authentication Basic -AllowRedirection

Import-PSSession $Session
 
$DistributionGroup = "somerandomdistributiongroup@normanbauer.com"

norman-bauer

use master
go
select sid, name, dbname from syslogins

norman-bauer

create login your_sql_loginname with password = 'your_sql_loginspassword', sid = {your_sql_user_sid}

norman-bauer

Function LoadPictureFromAD(szADsPath, szSaveFileName)
  Dim objUser, bytesRead, adoStreamWrite
  Const adTypeBinary = 1, adSaveCreateOverWrite = 2

  Set objUser = GetObject(szADsPath)
  bytesRead = objUser.Get("thumbnailPhoto")

  Set adoStreamWrite = CreateObject("ADODB.Stream")
  adoStreamWrite.Type = adTypeBinary
  adoStreamWrite.Open

norman-bauer

using System;
using System.Runtime.InteropServices;

namespace useraccountpicture
{
  class Program
  {
    [DllImport("shell32.dll", EntryPoint = "#262", CharSet = CharSet.Unicode, PreserveSig = false)]
    public static extern void SetUserTile(string username, int notneeded, string picturefilename);

norman-bauer

Imports System.Runtime.InteropServices

Module useraccountpicture

  <DllImport("shell32.dll", EntryPoint:="#262", CharSet:=CharSet.Unicode, PreserveSig:=False)> _
  Private Sub SetUserTile(ByVal username As String, ByVal notneeded As Integer, ByVal picturefilename As String)
  End Sub

  Sub Main(ByVal args As String())
    If (args.Length = 2) Then

norman-bauer

Function SavePictureToAdFromUrl(szADsPath, szUrl)
  Dim objUser, bytesRead, adoStreamRead
  Const adTypeBinary = 1

  Set xml = CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", szUrl, False
  xml.Send

  If xml.status = 200 Then
    Set adoStreamRead = CreateObject("ADODB.Stream")

norman-bauer

Function SavePictureToAD(szADsPath, szLoadFileName)
  Dim objUser, bytesRead, adoStreamRead
  Const adTypeBinary = 1

  Set adoStreamRead = CreateObject("ADODB.Stream")
  adoStreamRead.Type = adTypeBinary
  adoStreamRead.Open
  adoStreamRead.LoadFromFile szLoadFileName
  bytesRead = adoStreamRead.Read()
  adoStreamRead.Close

norman-bauer

$domainSearchList = Read-Host "Please enter a list of domain suffixes separated by semicolons (e.g. domain.local;domain.tld;int.domain.tld)"
$scopeToConfigure = Read-Host "Please enter the scope id of the scope to be configured (e.g. 192.168.1.0)"

$splittedDomainSearchList = $domainSearchList -split "\;"
$domainSearchListHexArray = @();

Foreach ($domain in $splittedDomainSearchList) 
{
    $splittedDomainParts = $domain -split "\."
    Foreach ($domainPart in $splittedDomainParts) 

norman-bauer

$username = "typeusernamehere"
[datetime]::FromFileTime((Get-ADDomainController -Filter * | foreach {Get-ADUser $username -Properties LastLogon -Server $_.Name | select LastLogon} | Measure-Object -Property LastLogon -Maximum).Maximum)