Problem:
Um z.B. ein Backup-Lösung auf einen USB-Wechseldatenträger (Stick) zu ermöglichen, möchte man prüfen, ob ein "Removable Device" angeschlossen ist.
außerdem soll geprüft werden, ob es mehr als ein USB-Device gibt.
Lösung:
Das nachfolgende Skript überprüft per WMI, ob "Removable Devices" angeschlossen sind. Sollten welche gefunden sein, wird die Anzahl, der Volumename und der Laufwerksbuchste davon ermittelt.
Option Explicit
Dim WshShell
Dim strComputer, objWMIService, colItems, objItem
Dim USB, USize, UName, UAnzahl, Antwort
Dim BackupDir, UDesktop, UDateien, UFavoriten
set WshShell = WScript.CreateObject("WScript.Shell")
'Setzt USB-Variablen zurück
USB =""
UAnzahl = 0
USize = 0
UName = ""
'Ermittlung von Anzahl und Eigenschaften Wechseldatenträger
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
For Each objItem in colItems
If objItem.DriveType = 2 Then
USB = objItem.Name & "\"
UName = objItem.VolumeName
USize = Int(objItem.FreeSpace /1048576)
UAnzahl = UAnzahl + 1 'Anzahl WEchselmedien ermitteln
End if
Next
'Überprüft, ob mehr als ein USB-Stick angesteckt ist
If UAnzahl > 1 Then
MsgBox "Mehrere USB-Sticks gefunden!" & vbCRLF & "Bitte nur Sicherungs-Stick einstecken und Sicherung neu starten.", vbOKOnly + vbCritical, "Mehrere USB-Sticks gefunden"
WScript.Quit
End if
'Überprüfen ob ein USB-Stick angesteckt ist
If USB = "" Then
MsgBox "KEIN USB-Stick gefunden!" & vbCrLf & "Bitte überprüfen und Sicherung neu starten!", vbOKOnly + vbCritical, "USB-Fehler"
WScript.Quit
End If
Problem:
Beim Ausdruck einer HTML-Mail aus Outlook, in der eine EXCEL-Tabelle (o.ä. Tabellen) integriert sind, wird der rechte Rand der Tabelle abgeschnitten.
Dieses Problem tritt aber nur in der Kombination Outlook 2003, IE8 und html-Mail mit (Excel-)Tabelle im Body.
Lösung:
Das Problem kommt vom Internet Explorer 8. Mit dem IE6/7 tritt dieses Problem nicht auf.
Um das Problem bei einem betroffenen PC zu lösen bitte wie folgt vorgehen:
- Rechner im abgesicherten Modus starten
- Folgende Dateien im "Windows/System32-Verzeichnis" in .old umbenennen: ieframe.dll, ieui.dll
- Die ieframe.dll und ieui.dll aus dem Anhang in das Verzeichnis kopieren
- Rechner neustarten - Fertig
WICHTIGER HINWEIS!!
Dies ist kein Microsoft-Workaraound! Man spielt heir die Dateien von Windows Vista/7 ein.
Bitte testen bevor man es in einer Produktivumgebung einsetzt.
Problem:
Man hat sein Windows Vista/7 System neu installiert ohne die Recovery-Medien des Herstellers zu verwenden und nun fehlt das Office 2010 Starter.
Wie kann man das Paket nachinstallieren ohne die Recovery-Medien zu verwenden?
Lösung:
ACHTUNG - WICHTIGER HINWEIS - UNBEDINGT LESEN
Dies ist keine Anleitung um sich eine illegale Version von Office 2010 Starter zu installieren. Sie benötigen hierfür eine OEM-Lizenz!
1.) Bitte laden Sie sich zuerst folgende Dateien herunter:
Achtung: Diese Dateien unterscheiden sich für die einzel verfügbaren Sprachen von Office 2010 Starter.
Alle verfügbaren Sprachen finden Sie hier : Office 2010 Starter - all available languages
4.) Starten Sie die Installation mit der Datei "SetupConsumerC2ROLW.exe" - Die Installation kann einige Zeit in Anspruch nehmen.
Problem:
Man möchte NUR den Dokumentenschutz bei einer Word-Datei entfernen. Diese Datei ist NICHT passwortgeschützt.
Lösung:
Wenn es nur darum geht den Dokumentschutz (Extras-Dokument schützen) aufzuheben (geht NICHT wenn das ÖFFNEN des Dokuments geschützt ist, d.h.
nicht wenn Extras-Optionen-Speichern-Kennwort für Lese-/Schreibzugriff gesetzt ist):
- Datei-Speichern unter-Dateityp: Rich Text Format (*.rtf) - Dabei gehen allerdings Makros verloren
- Extras-Optionen-Allgemein: Konvertierung beim Öffnen bestätigen: ankreuzen
- Datei schließen.
- rtf-Datei mit Notepad wieder öffnen.
- Nach "prot" suchen und den String "\xxxprot" löschen ("xxx" ist abhängig davon, was geschützt wurde)
- Datei speichern, schließen. rtf-Datei öffnen, diesmal im rtf-Format.
- Jetzt ist der Schutz aufgehoben.
Quelle: Vielen Dank an Dominik für den guten Beitrag, den wir auch schon getestet haben!
Problem:
Sie haben viele Kontakte als VCF-Dateien gespeichert und möchten diese alle in Ihre Outlook-Kontakte importieren. Generell kann man nur eine einzelne VCF-Datei öffrenn und diese dann in den Kontakten speichern, was eventuell sehr aufwendig sein kann, wenn es sich um einige hundert Kontakte handelt.
Lösung:
Hier finden Sie ein Skript, dass im Outlook-VBA verfasst ist, welches alle VCF-Dateien, die im Ordner "C:\VCARDS" liegen, automatsich in die Outlook-Kontakte importiert.
So fügen Sie den Code in Outlook hinzu:
- Einfach im Outlook ALT+F11 drücken um den VBA-Editor zu öffnen
- Navigieren Sie links in der Baumstruktur zu "Projekt1 -> Microsoft Outlook Objekt -> ThisOutlookSession"
- Doppelklicken Sie "This OutlookSession" um die Code-Übersicht zu öffnen
- Hier kopieren Sie das untenstehende Skript hinein
- Starten Sie das Skript mittels klick auf den grünen Pfeil oben im Menüband
Hinweis: Die VCF-Dateien werden in den persönlichen Kontakte-Ordner gespeichert. Bitte diesen vorher sichern und leeren, wenn man ein vermischen der Kontakte nicht wünscht.
Selbstverständlich kann der Pfad zu den VCF-Dateien im Skript angepaßt werden.
Ich selbst habe damit 880 VCF-Dateien in mein Outlook problemlos importieren können! Zuvor hatte ich es mit einigen Freetools vergeblich versucht!
Sub OpenSaveVCard()
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsDir = fso.GetFolder("C:\VCARDS")
For Each fsFile In fsDir.Files
strVCName = "C:\VCARDS\" & fsFile.Name
Set objOL = CreateObject("Outlook.Application")
Set colInsp = objOL.Inspectors
If colInsp.Count = 0 Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run Chr(34) & strVCName & Chr(34)
DoEvents
Set colInsp = objOL.Inspectors
If Err = 0 Then
Do Until colInsp.Count = 1
DoEvents
Loop
colInsp.Item(1).CurrentItem.Save
colInsp.Item(1).Close olDiscard
Set colInsp = Nothing
Set objOL = Nothing
Set objWSHShell = Nothing
Problem:
Als Admin möchte man die Rechte auf Postfächer zentral administrieren. Normalerweise ist der Benutzer selbst für die Rechtevergabe zuständig und es ist auch nicht möglich über die Verwaltungstools von Exchange die Rechte anzupassen. Ein komplexer Powershell-Befehl ab Exchnage 2007 könnte die Berechtigung setzen, aber Powershell ist manchmal etwas anstrengend
Lösung:
Man kann das Tool "PFDAVAdmin" von Microsoft verwenden. Ursprünglich wurde das Tool zum Verwalten von Öffentlichen Ordnern entwickelt, daher auch der Name. Doch man kann das Programm auch zum administrieren von Benutzerpostfächern verwenden.
Die Bedienung ist recht schlicht und einfach gehalten. Man kann sich bis zum Postfach oder Teilberich des Postfachws (z.B. Kalender etc.) durchklicken und hier die Berechtigungen anpassen - Vorraussetzung ist natürlich man hat die Anmeldedaten eines Exchange-Administrator-Kontos.
Um Zugriff auf die Benutzerpostfächer zu erhalten, muss man beim Starten nur die Option "All Mailboxes" auswählen.
Es ist KEINE Installation nötig und kann von jeder Workstation gestartet werden!!
Unterstützte Exchange-Versionen: Exchange 2000/2003/2007 Für Exchange 2010 wurde das neue Tool Exfolders entwickelt.
Hinweis
Auf dem Rechner, auf dem PFDavAdmin gestartet wird muß .NET Framework 1.1 installiert sein. Bei Windows 7 Rechner muss dieses manuell installiert werden.
Sollte .NET Frework 1.1 nicht installiert sein, dann erhält man folgende oder ähnliche Fehlermeldung:
'Could not expand https://localhost/exadmin/admin/mydomain.com/public%20folders/ : name cannot begin with the '0' character, hexadecimal value 0x30. Line 1, position 386'
ACHTUNG - WICHTIGER HINWEIS - UNBEDINGT LESEN!!!!
ACHTUNG: Installieren Sie AUF KEINEN FALL .NET Framework 1.1 auf einem EXCHANGE 2007 Server!!! Dies kann zum TOTALAUSFALL der Exchange-Dienste führen!!
“Das einzig sichere System müsste ausgeschaltet, in einem versiegelten und von Stahlbeton ummantelten Raum und von bewaffneten Schutztruppen umstellt sein.”
