deHangman2:
Status: Im Review bei Apple.
deHangman2 basiert auf den bekannten Hangmanspiel!
Ziel des Spieles ist es, die Begriffe zu erraten ohne dabei erhängt zu werden. Man sollte deswegen seine Buchstaben nicht sinnlos wählen, sondern etwas nachdenken und rätseln.
Das Spiel enthält knapp 1000 Wörter und wird mit Updates erweitert.
Neue Features in deHangman2:
Änderungen zum Vorgänger:
-
- komplette Grafiken und Code überarbeitet
– 2 Spieler Modus vorhanden
– längere Wörter sind nun möglich
– dynamische Hintergründe
– Highscore kann an Twitter gesendet werden
– komplett neue Soundkulisse
– und noch einiges mehr…
Screenshots:
CreateUserGUI_V1.ps1:
Einer der anstregendsten Aufgaben, die Administratoren durchführen, ist das Anlegen neuer Benutzer. Wenn wir 50 bis 100 Nutzer anlegen müssen, wird man uns bei einer Reihe von sehr starren Mausklicks beobachten können. In diesem Fall sollte muss ein Powershell-Skript mit Hilfe einer csv-Datei zum Einsatz kommen.
Die o.a. GUI ist eher für die Benutzeranlage für einige wenige Benutzer während des Betriebs gedacht. Diese ist auf unseren Betrieb angepasst und erstellt zusätzlich auf einem Fileserver ein Benutzerordner, wo nur der angelegte Benutzer Schreibrechte hat + Administratoren.
Das Skript ist einfach aufgebaut. Man trägt die Daten für den Benutzer ein, wählt die OU und die Gruppen aus, wo der oder die Benutzer Mitglied werden soll.
[System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
[System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms")
[system.windows.forms.messagebox]::Show("Only run in Quest Powershell!")
Function createmailbox{
#Pfad zum Laufwerk, welches ggf. für den Benutzer angelegt werden soll
$path = "\\Server-IP-Address\datenaustausch\"
#Richtige Domäne eintregen
$objUser = [ADSI]“LDAP://localhost:389/dc=domain,dc=com”
$OU = $OUhash1[$ouOuNameDrop.SelectedItem.ToString()]
$OU = $OU.substring($OU.lastindexof("/")+1)
$TSOU=[ADSI]“LDAP://localhost:389/ou=$OU,OU=Companies,dc=domain,dc=com”
if($TSOU.true){
foreach($row in $dgDataGrid.rows){
if ($row.Cells[0].Value -ne $null){
$CN=$row.Cells[1].Value + " " + $row.Cells[0].Value
$SN=$row.Cells[1].Value
$title="#"
$description=$row.Cells[3].Value
$department="#"
$streetAddress=$row.Cells[5].Value
$postalcode=$row.Cells[4].Value
$telephoneNumber=$row.Cells[6].Value
$givenName=$row.Cells[0].Value
$company=$row.Cells[7].Value
$mail="#"
$userPrincipalName=$row.Cells[2].Value + "@domain.com"
$Samaccountname=$row.Cells[2].Value
$group1Name=$UD.Gruppe1inOU
$group2Name=$UD.Gruppe2inOU
$group3Name=$UD.Gruppe3
$group4Name=$UD.Gruppe4
$group5Name=$UD.Gruppe5
$group6Name=$UD.Gruppe6
$group7Name=$UD.Gruppe7
$Location="Deutschland"
$User=$TSOU.create(“user”,”cn=$cn”)
$User.Put(“sAMAccountName”,$Samaccountname)
$User.put(“SN”,$SN)
$User.put(“Title”,$title)
$User.put(“Description”,$description)
$User.put(“department”,$department)
$User.put(“streetAddress”,$streetAddress)
$User.put(‘telephoneNumber’,$telephoneNumber)
$User.put(‘givenName’,$givenName)
$User.put(‘company’,$company)
$User.put(‘mail’,$mail)
$User.put(‘L’,$Location)
$User.put(‘userPrincipalName’,$userPrincipalName)
$User.setinfo()
$User.psbase.Invoke(“SetPassword”,”Caliber1”)
$User.psbase.InvokeSet(‘Accountdisabled’,$false)
$User.psbase.CommitChanges()
write-host "Bitte 5 Sekunden warten - Benutzer wird angelegt..." + $result
[System.Threading.Thread]::Sleep(5000)
[system.windows.forms.messagebox]::Show("User " + $row.Cells[0].Value + " " + $row.Cells[1].Value + " created")
foreach ($objItem in $objListbox.SelectedItems)
{
$group = $Grouphash1[$objItem]
$groupname = $group.substring($group.lastindexof("/")+1)
Write-Host $groupname
Add-QADGroupMember -Identity $groupname -Member $row.Cells[2].Value
}
if ($checkbox.Checked)
{
write-host "Datenaustauschlaufwerk anlegen..."
if (!(Test-Path ($path + $row.Cells[2].Value))){
new-item -path $path -name $row.Cells[2].Value -type directory
}else {
Write-Host $row.Cells[2].Value " folder already exists"
}
$Acl = Get-Acl ($path+ "\" + $row.Cells[2].Value)
$Ar = New-Object system.security.accesscontrol.filesystemaccessrule($row.Cells[2].Value,"Modify","ContainerInherit,ObjectInherit","None","Allow")
$acl.setAccessRule($ar)
Set-Acl ($path + "\" + $row.Cells[2].Value) $acl
Write-Host "Datenaustauschlaufwerk wurde erfolgreich angelegt"
}
}
}
}else{Write-host “Error OU doesn’t exist to proceed further, please create one” -foregroundcolor RED}
}
$OUhash1 = @{ }
$Grouphash1 = @{ }
$MBhash1 = @{ }
$form = new-object System.Windows.Forms.form
$form.Text = "Quick User Create Form"
$form.size = new-object System.Drawing.Size(910,520)
$msTable = New-Object System.Data.DataTable
$msTable.TableName = "GroupName"
$msTable.Columns.Add("FirstName")
$msTable.Columns.Add("LastName")
$msTable.Columns.Add("UserName")
$msTable.Columns.Add("Description")
$msTable.Columns.Add("Postal-Code")
$msTable.Columns.Add("StreetAddress")
$msTable.Columns.Add("Telephone")
$msTable.Columns.Add("Company")
# Add DataGrid View
$dgDataGrid = new-object System.windows.forms.DataGridView
$dgDataGrid.Location = new-object System.Drawing.Size(10,10)
$dgDataGrid.size = new-object System.Drawing.Size(870,200)
$dgDataGrid.AutoSizeRowsMode = "AllHeaders"
$form.Controls.Add($dgDataGrid)
$dgDataGrid.DataSource = $msTable
# Add OU Drop Down
$ouOuNameDrop = new-object System.Windows.Forms.ComboBox
$ouOuNameDrop.Location = new-object System.Drawing.Size(100,260)
$ouOuNameDrop.Size = new-object System.Drawing.Size(230,30)
$ouOuNameDrop.Items.Add("/Users")
$OUhash1.Add("/Users","Users")
$root = [ADSI]''
$searcher = new-object System.DirectoryServices.DirectorySearcher($root)
$searcher.Filter = '(objectClass=organizationalUnit)'
$searcher.PropertiesToLoad.Add("canonicalName")
$searcher.PropertiesToLoad.Add("Name")
$searcher1 = $searcher.FindAll()
foreach ($person in $searcher1){
[string]$ent = $person.Properties.canonicalname
$OUhash1.Add($ent.substring($ent.indexof("/"),$ent.length-$ent.indexof("/")),$ent)
$ouOuNameDrop.Items.Add($ent.substring($ent.indexof("/"),$ent.length-$ent.indexof("/")))
}
$form.Controls.Add($ouOuNameDrop)
$objListbox = New-Object System.Windows.Forms.Listbox
$objListbox.Location = New-Object System.Drawing.Size(435,220)
$objListbox.Size = New-Object System.Drawing.Size(445,250)
$objListbox.SelectionMode = "MultiExtended"
$objListbox.Height = 250
$form.Controls.Add($objListbox)
# Add OU DropLable
$ouOuNamelableBox = new-object System.Windows.Forms.Label
$ouOuNamelableBox.Location = new-object System.Drawing.Size(10,260)
$ouOuNamelableBox.size = new-object System.Drawing.Size(100,20)
$ouOuNamelableBox.Text = "OU Name"
$form.Controls.Add($ouOuNamelableBox)
# Add Group Drop Down
$searcherGroup = new-object System.DirectoryServices.DirectorySearcher($root)
$searcherGroup.Filter = '(objectClass=group)'
$searcherGroup.PropertiesToLoad.Add("canonicalName")
$searcherGroup1 = $searcherGroup.FindAll()
foreach ($person2 in $searcherGroup1){
[string]$ent = $person2.Properties.canonicalname
$Grouphash1.Add($ent.substring($ent.indexof("/"),$ent.length-$ent.indexof("/")),$ent)
$objListbox.Items.Add($ent.substring($ent.indexof("/"),$ent.length-$ent.indexof("/")))
}
# Add Group DropLable
$snServerNamelableBox = new-object System.Windows.Forms.Label
$snServerNamelableBox.Location = new-object System.Drawing.Size(380,220)
$snServerNamelableBox.size = new-object System.Drawing.Size(100,20)
$snServerNamelableBox.Text = "Groups:"
$form.Controls.Add($snServerNamelableBox)
# create radiobutton1
$checkbox = New-Object Windows.Forms.checkbox
$checkbox.text = "Datenaustauschlaufwerk anlegen?"
$checkbox.height = 20
$checkbox.width = 200
$checkbox.top = 300
$checkbox.left =10
$form.controls.add($checkbox)
# Add Create Button
$crButton = new-object System.Windows.Forms.Button
$crButton.Location = new-object System.Drawing.Size(10,360)
$crButton.Size = new-object System.Drawing.Size(150,23)
$crButton.Text = "Create User"
$crButton.Add_Click({CreateMailbox})
$form.Controls.Add($crButton)
$form.topmost = $true
$form.Add_Shown({$form.Activate()})
$form.ShowDialog()
Die letzten Tage waren wirklich spannend. Bis vor dem iOS4 Update hatte ich kein Exchange Konto bei mir im Telefon eingetragen. Nun wollte ich das doch auch mal testen, Unified Inbox sei dank.
Problembeschreibung
Nun zum Problem:
-
Serverdaten
-
Domäne
-
Benutzername
-
Passwort
alles eingetragen. Account wird überprüft, sollte funktionieren. Bei den Syncoptionen nur Mail gewählt und schon konnte es losgehen, nicht.
Mail auf dem iPhone aufgerufen und die erste Meldung, die ich bekam, lautete “Die Verbindung zum Server ist fehlgeschlagen”. Natürlich alle Daten 5x geprüft, mit anderen Kollegen (bei denen das Exchange-Profil funktioniert) verglichen, ohne Ergebnis.
Mail.app auf dem iMac oder MacBook zeigt keinen Fehler an. Also Active Sync mit meinem Account hat wohl ein Problem.
Also die schöne Seite: https://www.testexchangeconnectivity.com/ aufgerufen und einen Test gestartet. Diese Seite testet den eigenen Exchange-Server und den angegeben Benutzeraccount auf diverse Konfigurationsprobleme u.a. mit ActiveSync.
Und es tauchte ein Fehler auf. Bei Aufruf von ActiveSync bekam ich einen Fehler 500 zurück. Berechtigungsproblem? Bin doch Exchange- und Domänenadmin?!
Lösung
Um es zu verkürzen. Lt. meiner Recherche tritt das Problem nur bei Adminkonten nach einer Exchange Migration auf. Ob dies nun “nur” Exchange-Admin-Accounts betrifft oder auch Domänen-Admins kann ich nicht genau sagen. Und zwar liegt es an der Berechtigung des Problemkontos. Dort wurden die Berechtigungen für diese Accounts nicht vererbt.
Um die Vererbung wieder zu aktivieren, startet den ADSI-Editor. Wählt den Namenskontext aus und navigiert zu dem Problemkonto. Dort unter den Reiter “Sicherheit” navigieren und die Vererbung analog zum folgenden Screenshot wieder aktivieren:
Der RDP-Client 7 ist normalerweise nur für folgende Betriebssysteme verfügbar: Windows XP Service Pack 3 (SP3), Windows Vista Service Pack 1 (SP1) und Windows Vista Service Pack 2 (SP2).
Windows 7 und Windows Server 2008 R2 bringen diese Clientversion von Haus aus mit.
Leider fehlt hier der Support vom Windows Server 2003. Beim Versuch den Client dort zu installieren, bekommt man den freundlichen Hinweis, dass das Betriebssystem nicht unterstützt wird.
Erfreulicherweise klappt die Installation mit einem kleinen Workaround trotzdem.
How-To:
Als erstes braucht ihr den Client.
www.microsoft.com/downloads/details.aspx?FamilyId=72158b4e-b527-45e4-af24-d02938a95683
Das Paket muss nun extrahiert werden. Öffnet die Kommandozeile und navigiert zum Downloadpaket. Danach gebt ihr folgenden Befehl ein:
WindowsXP-KB969084-x86-deu.exe /extract
Ihr werdet gefragt, wohin das Paket extrahiert werden soll. Speichert es am besten unter C:\RDP70.
In dem neuen Ordner findet ihr den Unterordner update. Dort liegt die Datei update.inf. Öffnet diese mit dem Editor und ändert die oberen Einträge wie folgt:
[Version]
RebootRequired=0
Signature = “$Windows NT$”
LanguageType = %LangTypeValue%
NtBuildToUpdate = 3790
NtMajorVersionToUpdate = 5
NtMinorVersionToUpdate = 2
MaxNtBuildToUpdate = 3790
MaxNtMajorVersionToUpdate = 5
MaxNtMinorVersionToUpdate = 2
MinNtServicePackVersion = 512
MaxNtServicePackVersion = 512
ThisServicePackVersion = 512
CatalogFile = %SP_SHORT_TITLE%.cat
Speichert die Datei mit folgendem Namen: update.inf.new. Die originale update.inf Datei benennt ihr in update.inf.old um.
So nun erstellen wir ein kleines Skript, welches das Update aufrufen soll. Dieses wird das Update mit der veränderten update.inf aufrufen und während der Installation die originale update.inf wieder zurückschreiben. Dies gaukelt gibt dem Update vor, es sei alles in Ordnung.
Das Skript sieht wie folgt aus:
@echo off
echo Das Paket installiert RDP 7.0 auf einem Windows Server 2003 x86.
echo Es wird in das Verzeichnis c:\rdp70 gewechselt
c:
cd "C:\RDP70\update"
echo Die originale update.inf wird durch update.inf.new ersetzt
copy update.inf.new update.inf /y
echo Update ausführen
start update.exe
ping -n 1 -w 20 1.2.3.4>nul
echo Ersetze modifizierte update.inf mit der originalen Version. Anonsten gibt der Installer einen Fehler aus.
echo Ggf. muss die Zahl hinter "ping -n 1 -w". Eine größere Nummer bedeutet eine größere Pause.
echo Wenn die Pause zu klein ist, dann erscheint ein Fehler, dass ein flasches Betriebssystem vorliegt.
echo Wenn die Pause zu groß ist, dann erscheint ein Fehler, dass die ini-Datei nicht verifiziert werden kann.
copy update.inf.old update.inf /y
Das Skript geht davon aus, dass das Paket unter C:\RDP70 liegt. Der Befehl ping -n 1 -w 20 1.2.3.4 > nul muss ggf. angepasst werden, da kommt es auf die Geschwindigkeit des Systems an. Einfach mal durchtesten. Die Fehler werden euch sagen, ob ihr zu schnell die update.inf wieder austauscht oder eben zu langsam.
Das Skript generiert eine html-Seite mit der Übersicht aller Termine für alle Exchange Accounts. So kann übersichtlich gelistet werden, wer heute wo, wann und wie beschäftigt ist.
Als Grundlage habe ich das super Skript von Glen Scales benutzt.
Dieses hatte leider noch Probleme die Kalendereinträge richtig auf die Zeiten zu zuordnen. Außerdem habe ich die Zeitspanne bei einem Tag von 8:00 Uhr bis 20:00 Uhr erweitert und die Termine werden verkürzt in den einzelnen Zellen angezeigt. Der komplette Terminname wird angezeigt, wenn man mit dem Cursor über die Zelle fährt. Desweiteren habe ich den Start des Skripts mit einem Parameter versehen, so dass die Termine für bestimmte Tage in der Vergangenheit oder auch in der Zukunft generiert werden können.
Bitte beachtet das die Exchange Web Services installiert sein müssen und in Zeile 56 der richtige Exchange-Server eingetragen wird: $casserverName = “Exchange-Server”.
Hier das Skript:
function cleanDescription([string] $url)
{
$url = $url.Replace("title=", "")
$url = $url.Replace("`"","")
$url = $url.Substring(0,6)
return $url
}
if ($Args.count -lt 1) {
'No Parameter!'
'Usage:'
'./fb.ps1 days in the future (e.g. 0 - Today; 1 - Tomorrow; -1 - Yesterday)'
''
'Today:'
'./fb.ps1 0'
}
else{
[int]$days = $args[0]
$casserverName = "Exchange-Server"
$dllpath = "C:\Program Files\Microsoft\Exchange\Web Services\1.0\Microsoft.Exchange.WebServices.dll"
[void][Reflection.Assembly]::LoadFile($dllpath)
$service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2007_SP1)
$uri=[system.URI] ("https://" + $casserverName + "/ews/exchange.asmx")
$service.Url = $uri
$mbHash = @{ }
$tmValHash = @{ }
$tidx = 0
for($vsStartTime=[DateTime]::Parse([DateTime]::Now.ToString("yyyy-MM-dd 0:00")).AddDays($days);$vsStartTime -lt [DateTime]::Parse([DateTime]::Now.ToString("yyyy-MM-dd 0:00")).AddDays($days+1);$vsStartTime = $vsStartTime.AddMinutes(30)){
$tmValHash.add($vsStartTime.ToString("HH:mm"),$tidx)
$tidx++
}
get-mailbox -ResultSize unlimited | foreach-object{
if ($mbHash.ContainsKey($_.WindowsEmailAddress.ToString()) -eq $false){
$mbHash.Add($_.WindowsEmailAddress.ToString(),$_.DisplayName)
}
}
$Attendeesbatch = [activator]::createinstance(([type]'System.Collections.Generic.List`1').makegenerictype([Microsoft.Exchange.WebServices.Data.AttendeeInfo]))
$StartTime = [DateTime]::Parse([DateTime]::Now.ToString("yyyy-MM-dd 0:00")).AddDays($days)
$EndTime = $StartTime.AddDays(1)
$displayStartTime = [DateTime]::Parse([DateTime]::Now.ToString("yyyy-MM-dd 08:00")).AddDays($days)
$displayEndTime = [DateTime]::Parse([DateTime]::Now.ToString("yyyy-MM-dd 20:30")).AddDays($days)
$drDuration = new-object Microsoft.Exchange.WebServices.Data.TimeWindow($StartTime,$EndTime)
$AvailabilityOptions = new-object Microsoft.Exchange.WebServices.Data.AvailabilityOptions
$AvailabilityOptions.RequestedFreeBusyView = [Microsoft.Exchange.WebServices.Data.FreeBusyViewType]::DetailedMerged
$batchsize = 100
$bcount = 0
$bresult = @()
if ($mbHash.Count -ne 0){
$mbHash.GetEnumerator() | Sort Value | foreach-object {
if ($bcount -ne $batchsize){
$Attendee1 = new-object Microsoft.Exchange.WebServices.Data.AttendeeInfo($_.Key)
$Attendeesbatch.add($Attendee1)
$bcount++
}
else{
$availresponse = $service.GetUserAvailability($Attendeesbatch,$drDuration,[Microsoft.Exchange.WebServices.Data.AvailabilityData]::FreeBusy,$AvailabilityOptions)
foreach($avail in $availresponse.AttendeesAvailability.OverallResult){$bresult += $avail}
$Attendeesbatch = [activator]::createinstance(([type]'System.Collections.Generic.List`1').makegenerictype([Microsoft.Exchange.WebServices.Data.AttendeeInfo]))
$bcount = 0
$Attendee1 = new-object Microsoft.Exchange.WebServices.Data.AttendeeInfo($_.Key)
$Attendeesbatch.add($Attendee1)
$bcount++
}
}
}
$availresponse = $service.GetUserAvailability($Attendeesbatch,$drDuration,[Microsoft.Exchange.WebServices.Data.AvailabilityData]::FreeBusy,$AvailabilityOptions)
$usrIdx = 0
$frow = $true
foreach($res in $availresponse.AttendeesAvailability){
if ($frow -eq $true){
$fbBoard = $fbBoard + "
| "+$StartTime.ToString("dd-MM-yyyy")+" | Free: | " + "`r`n" $fbBoard = $fbBoard + " | Tentative: | " + "`r`n" $fbBoard = $fbBoard + " | Busy: | " + "`r`n" $fbBoard = $fbBoard + " | OOF: | " + "`r`n" $fbBoard = $fbBoard + " |
| User | " +"`r`n" for($stime = $displayStartTime;$stime -lt $displayEndTime;$stime = $stime.AddMinutes(30)){ $fbBoard = $fbBoard + "" + $stime.ToString("HH:mm") + " | " +"`r`n" } $fbBoard = $fbBoard + "" + $mbHash[$Attendeesbatch[$usrIdx].SmtpAddress] + " | " + "`r`n" $c = 0 } $title = "title=" $description = "" if ($res.MergedFreeBusyStatus[$tmValHash[$stime.ToString("HH:mm")]] -ne $null){ $gdet = $false $FbValu = $res.MergedFreeBusyStatus[$tmValHash[$stime.ToString("HH:mm")]] switch($FbValu.ToString()){ "Free" {$bgColour = "bgcolor=`"#41A317`""} "Tentative" {$bgColour = "bgcolor=`"#828383`"" $gdet = $true } "Busy" {$bgColour = "bgcolor=`"#153E7E`"" $gdet = $true } "OOF" {$bgColour = "bgcolor=`"#4E387E`"" $gdet = $true } "NoData" {$bgColour = "bgcolor=`"#98AFC7`""} "N/A" {$bgColour = "bgcolor=`"#98AFC7`""} } if ($gdet -eq $true){ if ($res.CalendarEvents.Count -ne 0){ if($c -lt $res.CalendarEvents.Count){ #for($ci=0;$ci -lt $res.CalendarEvents.Count;$ci++){ [int]$start = $res.CalendarEvents[$c].StartTime.ToString("HHmm") [int]$end = $res.CalendarEvents[$c].EndTime.ToString("HHmm") if($end -ge 0) { $end = 2000 } [int]$time = $stime.ToString("HHmm") #Write-Host $start $time $end if ($time -ge $start-25 -band $time -le $end){ $c += 1 if($res.CalendarEvents[$c-1].Details.IsPrivate -eq $False){ $subject = "" $location = "" #Write-Host $c #Write-Host $mbHash[$Attendeesbatch[$usrIdx].SmtpAddress] #Write-Host $res.CalendarEvents[$c-1].StartTime.ToString("HH:mm") #Write-Host $time #Write-Host $res.CalendarEvents[$c-1].EndTime.ToString("HH:mm") #Write-Host $res.CalendarEvents[$c-1].Details.Subject if ($res.CalendarEvents[$c-1].Details.Subject -ne $null){ $subject = $res.CalendarEvents[$c-1].Details.Subject.ToString() } if ($res.CalendarEvents[$c-1].Details.Location -ne $null){ $location = $res.CalendarEvents[$c-1].Details.Location.ToString() } $title = $title + "`"" + $subject + "`r`n" + "Wo: " + $location + "`" " }else{ $title = $title + "Privat" } } } } } } else{ $bgColour = "bgcolor=`"#98AFC7`"" } if($title -ne "title="){ $description = cleanDescription($title) $fbBoard = $fbBoard + ""+$description+" | " + "`r`n" } else{ $fbBoard = $fbBoard + "" + "`r`n" } } $fbBoard = $fbBoard + " " + "`r`n" $usrIdx++ } $fbBoard = $fbBoard + " |
Man stelle sich vor: Ein Fileserver mit diversen Gruppenberechtigungen am Dateisystem soll durch neue Sicherheitsgruppen, analog der alten Gruppen, erweitert werden.
Beispiel:
Die Sicherheitsgruppe G_Test hat in dem Ordner Fileserver:\Daten\Temp Vollzugriff. Nun soll Gruppe N_Test dieselben Berechtigungen auf diesen Ordner erhalten.
Und da kommt Powershell wie gerufen. Mit folgendem Skript wird abgefragt, ab welchem Ordner + (Unterordner) überprüft werden soll. Danach wird automatisch nach den angegebenen Gruppen gesucht und diese duch die neue Domäne ersetzt. Auch die Vererbung wird geprüft und ggf. übertragen. Es funktioniert nur, wenn die Gruppen gleich heißen, kann aber schnell abgeändert werden.
#ChangeACL.ps1
#The possible values for Rights are
# ListDirectory, ReadData, WriteData
# CreateFiles, CreateDirectories, AppendData
# ReadExtendedAttributes, WriteExtendedAttributes, Traverse
# ExecuteFile, DeleteSubdirectoriesAndFiles, ReadAttributes
# WriteAttributes, Write, Delete
# ReadPermissions, Read, ReadAndExecute
# Modify, ChangePermissions, TakeOwnership
# Synchronize, FullControl
$StartingDir=Read-Host "What directory do you want to start at?"
foreach ($file in $(Get-ChildItem $StartingDir -recurse | where {$_.PsIsContainer})) {
" "
"Objekt: " + $file.FullName
$name = Get-Acl $file.FullName | ForEach-Object { $_.Access } | Group-Object IdentityReference | % {$_.Name}
$rights = Get-Acl $file.FullName | % {$_.Access} | % {$_.FileSystemRights}
$IsInherited = Get-Acl $file.FullName | % {$_.Access} | % {$_.InheritanceFlags}
for($i=0;$i -lt $name.count ;$i++)
{
"User: " + $name[$i]
"Rights: " + $rights[$i]
#Insert your groups which will be replaced
if($name[$i] -eq "domain_A\Test" -or $name[$i] -eq "domain_A\Test2")
{
$name[$i] = $name[$i].Substring(13)
$name[$i] = "domain_B\"+$name[$i] #type in the new domainname
$acl = Get-Acl $file.FullName
$permission = $name[$i],$rights[$i],$IsInherited[$i],"None","Allow"
$rule=new-object System.Security.AccessControl.FileSystemAccessRule $permission
$acl.SetAccessRule($rule)
$acl | Set-Acl $file.FullName
}
}
}
Vielen ist es bekannt, dass die Exchange Server Konsole nur wenig Informationen über Postfächer ausgibt, zumindest, wenn man mehrere Postfächer vergleichen möchte. Powershell kann da schon mehr Infos gleichzeitig ausgeben, wobei hier die Übersichtlichkeit leidet.
Mit Hilfe des Exchange Dev Blogs von Glen Scales habe ich eine neue GUI erstellt, welche sehr viele Infos über die Mailboxen auf einem oder mehreren Exchange-Servern darstellt. Z.B.: Kann nach Postfachgröße (Anzahl der Elemente oder der Speicherbelegung) sortiert werden. Eine Auflistung der Unterordner in einem Postfach ist auch möglich.
Einen Auszug von Filtern zeigt der folgende Screenshot:
Außerdem kann zwischen verbundenen und nicht-verbundenen Postfächern geschaltet werden:
Das Skript muss auf einem Exchange-Server ausgeführt werden. Getestet wurde es auf einem deutschen Exchange-Server 2010. Das Skript muss daher in diesen Ordner kopiert werden: C:\Program Files\Microsoft\Exchange Server\V14\Scripts
Außerdem muss der ausführende Account Zugriffsberechtigungen auf den restlichen Postfächern besitzen.
Das Skript ist hier zum Download verfügbar.
Ein paar neue Geektool-Skripte
Vor einiger Zeit habe ich hier schon ein paar Skripte für Geektool präsentiert.
Folgende Skripte stehen weiter unten zum Download bereit:
-
Wetter-Icon von Yahoo
-
TV-Programm um 20:15 Uhr
-
Kalendereinträge
-
Für das Wetter-Icon benötigt man zwei Skripte. Einmal eins um das Bild herunterzuladen und das Andere um das Bild anzuzeigen.
WetterBild_abrufen.glet
WetterBild_laden.glet
-
Das TV-Programm wird mit dem folgenden Skript angezeigt:
-
Für die Kalendereinträge braucht man noch ein extra Programm namens iCalBuddy. Nach dem Download des Paketes, wird es extrahiert. Dann navigiert ihr im Terminal in das icalBuddy-Verzeichnis und ruft: ./install_command auf. Die Installation könnt ihr prüfen indem ihr im Terminal folgendes eingebt: icalbuddy EventsToday. Mit diesem Kommandozeilen-Tool kann man nun auch die Ausgabe per Geektool erfolgen lassen.
Eine Überschrift für die Kalenderausgabe kann man einfach mit echo selbst erstellen.