19. Mai 2008
.::[ Intelligente Suche mit Notepad]::.
Microsoft legt schon seit Jahren jeder Windows-Version mit Notepad einen unglaublich leistungsfähigen Editor kostenlos bei. Aufgrund des quasi vollständigen Leistungsumfangs der Urversion der von vielen auch liebevoll "Visual Notepad" genannten Applikation wurde das Tool wohl auch seitdem nicht weiterentwickelt. Aber nein! Mit Windows Vista wurde nun ein vollkommen neues Notepad-Feature entdeckt: Die intelligente Suche.
Zum besseren Verständnis sollte der geneigte Notepad-Fan einen Satz mit vielen Umlauten als Zeichen und ausgeschrieben eingeben oder einfach folgenden sinnlosen Text über die Zwischenablage in Notepad übernehmen: "Ich kaufte süßes Körnerbrot bei einem Bäcker in Soest." Und nun beginnt der Spaß: In der Suchmaske nach ö suchen und siehe da, es wird das oe in Soest gefunden. Oder umgekehrt nach ue oder ss suchen und die entsprechenden Zeichen in süßes werden gefunden. Sowas ist praktisch bei der Internetsuche, aber in einem Texteditor hat sowas wohl nichts zu suchen.
Ob Notepad auch Begriffe findet, die sich in Lautschrift entsprechen (zum Beispiel das Wortpaar Rad / Rat) konnte noch nicht sicher ausgeschlossen werden.
Labels: TechTalk
13. Mai 2008
.::[ Ermittlung des Outlook-PST-Formats: ANSI oder UNICODE?]::.
Dim rdoSession
Dim rdoStore
Dim strPath
Dim wso
Dim fso
Dim fsoStream
Dim wshNet
Dim strPrint
Set wso = CreateObject("WScript.Shell")
Set wshNet = CreateObject("WScript.Network")
Set rdoSession = CreateObject("Redemption.RDOSession")
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoStream = fso.OpenTextFile("C:\PST.TXT", 8, True)
rdoSession.Logon
For Each rdoStore in rdoSession.Stores
If rdoStore.StoreKind = 1 or rdoStore.StoreKind = 2 Then
strPrint = wshNet.UserDomain & "\" & wshNet.Username & ", "
strPrint = strPrint & wshNet.Computername & ", "
strPrint = strPrint & rdoStore.StoreKind & ", "
strPrint = strPrint & rdoStore.PSTPath
fsoStream.WriteLine strPrint
End If
Next
fsoStream.Close
Set fsoStream = Nothing
Set fso = Nothing
Set wso = Nothing
Set wshNet = Nothing
Set rdoSession = Nothing
Durch Einbindung ins Logon-Script, kann man so schnell ermitteln, was im Unternehmen vorhanden ist. Die Nutzung des Scripts ist frei und ohne Gewähr. Lediglich ein Post in den Kommentaren ist erwünscht.
Vorraussetzung für das Script ist lediglich die Registrierung von RDO.
Labels: Exchange Server, Outlook, TechTalk











