' ################################
'
' SendMail.vbs
'

' Sends an eMail through Microsoft Outlook
'
' Usage: SendMail.vbs recipient@domain.com reply-to-address@domain.com
' 09/22/2011 Daniel Ristic
'
' ################################

End Function

GetObject("winmgmts:root\cimv2:Win32_Processor='cpu0'").AddressWidth

.NET Code (VB.NET 2010)

Imports System.Security.Cryptography
Imports System.IO.Compression

Public Function Compress(ByVal text As String) As String
	Try
		Dim buffer() As Byte = Encoding.UTF8.GetBytes(text)
		Dim memoryStream = New MemoryStream()
		Using gZipStream = New GZipStream(memoryStream, CompressionMode.Compress, True)
			gZipStream.Write(buffer, 0, buffer.Length)
		End Using
		Return Convert.ToBase64String(memoryStream.GetBuffer)

	Catch ex As Exception
		WriteToDebugLog("Compress", ex.Message)
		Return Nothing
	End Try

End Function

RoR Code (Ruby 1.9.2 / Rails 3)

require "base64"
require 'nokogiri'
xml = ActiveSupport::Gzip.decompress(Base64.decode64( ))
xml_doc = Nokogiri::XML(xml) do |config|
	config.noblanks
end
# Zugriff auf Elemente über
xml_doc.xpath()

Evtl. hilfts ja jemandem bei was auch immer.

Die Aufgabe des Powershell Scripts ist/war es, Druckaufträge eines Druckers nach einem definierten alter (Hier drei tage) automatisiert zu löschen. War für irgend ein SAP->Packzettel->Ausfallkonzept das ich aber nicht ganz verstanden habe ^^. Mein Part war nur das mit den Druckern

$strPrintername = "PS-NM-TEST*"
$PrintJobs = get-wmiobject -class "Win32_PrintJob" -namespace "root\CIMV2" | Where-Object { $_.Name -like $strPrintername -and $_.ConvertToDateTime($_.TimeSubmitted) -lt $($(Get-Date).addMinutes(-3))}

foreach ($job in $PrintJobs)
{
if ($job) {
Write-Host "Job $($job.JobId) canceled"
$job.Delete()
}
else {
Write-Host "Nothing to delete"
}
}

Danach ganz normal in der Festplattenverwaltung formatieren.

Irgenwann kann ich's mir merken, ganz bestimmt (Oje)

Einfach einen Registry Wert vom Typ String unter:

HKLM\Software\PHP\Per Directory Values\c\inetpup\vhost\

erstellen.

Name: display_errors
Wert: ON

Das geht mit allen php.ini Einstellungen, mit denen die ich versucht habe zumindest.

On Error Resume Next
Set wshShell = WScript.CreateObject( "WScript.Shell" )
strUserDomain = wshShell.ExpandEnvironmentStrings( "%USERDOMAIN%" )

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("SELECT ClientSiteName FROM Win32_NTDomain WHERE DomainName = '"& strUserDomain &"'",,48)

For Each objItem in colItems
  ' Hier wird der erkannte Sitename der Anmeldedomäne ausgegeben.
  strSiteName = objItem.ClientSiteName
next

select case strSiteName
	case "Berlin"
             ' Tu irgendwas
	case "München"
             ' Tu irgendwas anderes
end select

Getestet unter Windows XP, Windows 2003, Vista und Windows 7.

Meine Wahl fiel dabei auf Aptana RadRails, ein wirklich nettes Produkt.

Das einzige Problem was ich bisher hatte, und das auch nur auf dem Laptop hier im Büro, war das grundlose verweigern jeder Art von Plugin-Installation via GEM.

Jeder Versuch wurde mit

ERROR: While executing gem ... (Errno::ENOENT)
No such file or directory - U:/

quitiert. Das Laufwerk U:/ ist mein Homedrive im Netzwerk.

Die Lösungsvorschläge aus dem Netz, die Umgebungsvariablen “GEM_HOME” und “GEM_PATH” zu setzen hatten leider keinen positiven Effekt.

Ein kleiner Eintrag in der gem Datei unter c:\ruby\bin\gem bringt die Erlösung:

#!C:/Ruby/bin/ruby.exe
#--
# Copyright 2006 by Chad Fowler, Rich Kilmer, Jim Weirich and others.
# All rights reserved.
# See LICENSE.txt for permissions.
#++
ENV['HOME'] = "C:/ruby"
require 'rubygems'
require 'rubygems/gem_runner'
require 'rubygems/exceptions'
required_version = Gem::Requirement.new "> 1.8.3"
unless required_version.satisfied_by? Gem.ruby_version then
  abort "Expected Ruby Version #{required_version}, was #{Gem.ruby_version}"
end
args = ARGV.clone
begin
  Gem::GemRunner.new.run args
rescue Gem::SystemExitException => e
  exit e.exit_code
end

Vielleicht gibts noch eine bessere Lösung, so funktioniert es bei mir aber auf alle Fälle ohne herumdoktorn an den Umgebunsvariablen.

Dies Betrifft unter anderem auch die letzte Anmeldezeit eines Benutzerkontos.

Dieser Wert ist allerdings ziemlich nützlich um z.B. Benutzerleichen zu identifizieren.

Mir ist kein Windows Boardmittel bekannt mit dem man diese Werte aus einer Domäne über alle Domänencontroller hinweg auslesen kann, deswegen habe ich mir ein kleines Tool geschrieben.

Programmaufruf

LastLogon Lookup.exe > Datei.cvs

Ausgabe

distinguishedName;sAMAccountName;LogonCount;LastLogon;DomainController

...

Das ganze wird dann über alle DCs für alle Benutzer ausgelesen.

Der Benutzeraccount unter dem das Progamm läuft muss mindestens entsprechende Werte aus dem AD lesen können (wär auch komisch sonst), eine Schreibberechtigung ist natürlich nicht notwendig. Das Ergebnis ist einfach mit Access/Excel/Stift und Zettel o.Ä. auszuwerten.

Geschrieben in VB.NET, wenn lieb gefragt wird schick ich bestimmt auch den Quellcode zu

Download: LastLogon Lookup.zip

Abhilfe schafft folgender KB Artikel im Technet:

After you press CTRL+ALT+DELETE to log on to a Microsoft Windows Server 2003-based computer, the logon screen turns black. Although you cannot see what you are typing, you can successfully log on to the Windows Server 2003-based computer. Then, after you successfully log on, the screen becomes visible.

http://support.microsoft.com/default.aspx?scid=kb;en-us;906510

Sofort danach funktioniert alles wieder. Ich frag mich allerdings wie es das Betriebssystem schafft alle Informationen über Farbeinstellungen zu vergessen ^^

The activated proc [dbo].[sp_sysmail_activate] running on queue
msdb.dbo.ExternalMailQueue output the following:
'The service queue "ExternalMailQueue" is currently disabled.'

Event Type:      Information
Event Source:      MSSQLSERVER
Event Category:      (2)
Event ID:      9724
Date:            8/4/2008
Time:            9:53:40 PM
User:            N/A
Computer:      
Description:

Wurde wohl von der Testinstallation des Sharepoint Services 03 verursacht die jetzt nachdem ich die Datenbanken deaktiviert immer noch lustig versucht Mails über Databasemail zu verschicken. ;D

Prüfen ob die Warteschlange läuft kann man mit

SELECT 1 FROM msdb.sys.service_queues
WHERE name = N'ExternalMailQueue' AND is_receive_enabled = 1

Kommt da eine 1 Zurück hat man ein anderes Problem, wenn nicht kann man die Queue mit

EXEC msdb.dbo.sysmail_start_sp wieder starten.

Danach sollte die Fehlermeldung weg sein. Sind sie bei mir jedenfalls.

Ich werd die Software mal im täglichen Betrieb im Internet und innerhalb unseres Netzwerks mit Sharepoint & Co. testen. Bin gespannt wann mir was tolles auffällt. ^^

Edit 1: Das Updates herunterladen hat schonmal gefühlte 3x solange wie das Programm herunterladen gedauert Bleibt also alles beim alten beim IE ;D

Für was auch immer man die Konten braucht, mit dieser LDAP Abfrage kann man das einfach herausfinden:

(&(&(&(objectCategory=person)(objectClass=user)(&(memberOf=GRUPPE1)(memberOf=GRUPPE2)))))

Gruppensyntax:

CN=GRUPPEx,OU=GRUPPEN,DC=deinedomäne,DC=xx

bzw. wenn direkt im USERS Container

CN=GRUPPEx,CN=users,DC=deinedomäne,DC=xx

Kann man immer mal wieder brauchen.