Χειρόγραφο VBS για τους διοικητές συστημάτων - πώς στο εφεδρικό ηλεκτρονικό ταχυδρομείο προοπτικής αυτόματα σε ένα χειρόγραφο σύνδεσης ή εξόδου από το σύστημα

Ταχυδρομημένος στις 13 Μαρτίου 2007 στις 8:11 AM

Εάν είστε διοικητής συστημάτων για την επιχείρησή σας και η καθεμία χρησιμοποιεί την προοπτική ή κάποιο άλλο πρόγραμμα ηλεκτρονικού ταχυδρομείου υπολογιστών γραφείου, έχετε τρέξει πιθανώς στην κατάσταση όπου κάποιος έχει χάσει τα όλα ηλεκτρονικά ταχυδρομεία τους εξαιτίας του γεγονότος που έχει σώσει τοπικά στον υπολογιστή του χρήστη και όχι στους κύριους κεντρικούς υπολογιστές. Έτσι εάν είστε ένα μικρό κατάστημα και δεν μπορείτε να αντέξετε οικονομικά να πάρετε τον κεντρικό υπολογιστή ανταλλαγής, κατόπιν είναι εδώ ένας απλά τρόπος να αυτοματοποιηθεί το στήριγμα των αρχείων προοπτικής PST του χρήστη επάνω στον κεντρικό υπολογιστή σας σε ένα χειρόγραφο σύνδεσης ή εξόδου από το σύστημα.

Πρώτα εδώ είναι ο κώδικας και έπειτα θα τον εξηγήσω:

Σύνολο shell= WScript.CreateObject (» WScript.Shell»)
strUserName = shell.ExpandEnvironmentStrings (» %USERNAME%»)

Αμυδρό fso
καθορισμένο fso = CreateObject (» Scripting.FileSystemObject»)

lnDayOfWeek = εργάσιμη μέρα (τώρα ())

εάν lnDayOfWeek = 5 έπειτα

Εάν fso.DriveExists (» Γ: ») Έπειτα

Αμυδρός lcDrive
Καθορισμένος lcDrive = fso.GetDrive (» Γ: »)

Εάν lcDrive.IsReady έπειτα

newfolderpath = «\ \ servername \ χρήστες \» & strUserName & «\ EmailBackup»

Εάν όχι fso.FolderExists (newfolderpath) Κατόπιν
Σύνολο newfolder = fso.CreateFolder (newfolderpath)
Τέλος εάν

Αμυδρό αρχείο
αρχείο = «C:\Documents and Settings\» & strUserName & «\ τοπική προοπτική \ Outlook.pst στοιχείων \ Microsoft \ εφαρμογής τοποθετήσεων \»

Εάν fso.FileExists (αρχείο) Κατόπιν
fso.CopyFile «C:\Documents and Settings\» & strUserName & «\ τοπικοί χρήστες \ Outlook.pst», «\ \ servername \ \» & strUserName & «\ EmailBackup \ Outlook.pst» προοπτικής στοιχείων \ Microsoft \ εφαρμογής τοποθετήσεων \

καθορισμένο fso = τίποτα
wscript.echo «το ηλεκτρονικό ταχυδρομείο σας έχει υποστηριχτεί!»
τελειώστε εάν
τελειώστε εάν
τελειώστε εάν
τελειώστε εάν

Το Unforunately, ο κώδικας δεν είναι χαραγμένο πολύ καλά εδώ, έτσι θα πρέπει να τον αντιγράψετε και να τον καθορίσετε έτσι ώστε μπορείτε να τον διαβάσετε σωστά. Βασικά, αρχίζει ένα αντικείμενο FileSystem που θα φροντίσει την αντιγραφή του αρχείου στον κεντρικό υπολογιστή. Κατόπιν κάνω έναν έλεγχο που βλέπει που ημέρα της εβδομάδας είναι και χρησιμοποιώ 5 (Παρασκευή), έτσι ώστε το χειρόγραφο τρέχει μόνο μία φορά την εβδομάδα. Κάνω επίσης έναν έλεγχο για να σιγουρευτώ ότι η κίνηση Γ είναι διαθέσιμη (η κίνηση δικτύων πρόκειται τα στοιχεία) προτού να φτάσω στην αντιγραφή.

Κατόπιν ελέγχω για να δω εάν ο φάκελλος υπάρχει ότι θέλω να αντιγράψω και εάν όχι, προχωρώ και δημιουργώ εκείνο τον φάκελλο στο φάκελλο του χρήστη στον κεντρικό υπολογιστή. Ελέγχω επίσης για να σιγουρευτώ ότι το αρχείο υπάρχει και σε αυτή την περίπτωση, το αντιγράφω έπειτα στο φάκελλο του χρήστη στο δίκτυο. Χρησιμοποιώ τη (» %USERNAME%») μέθοδο shell.ExpandEnvironmentStrings για να πάρω το όνομα χρήστη του τρέχοντος χρήστη.

Μπορείτε έπειτα να εφαρμόσετε αυτό ως είτε χειρόγραφο σύνδεσης είτε εξόδου από το σύστημα χρησιμοποιώντας την πολιτική ομάδας!

Σχετικές θέσεις:

Περισσότερα χειρόγραφα VBS για τους διοικητές συστημάτων

Εργονομία γραφείων - κίνδυνοι σε έναν τερματικό σταθμό υπολογιστών γραφείου και πώς να τους αποφύγει

Gliffy - σε απευθείας σύνδεση εργαλείο για να δημιουργήσει και να μοιραστεί τα διαγράμματα δωρεάν

Μεγάλο εργαλείο για τους επαγγελματίες Admintrator γραφείων βοήθειας/συστημάτων - αλλάξτε το διαγνωστικό εργαλείο ανάλυσης

Εάν απολαύσατε αυτήν την θέση, σας σιγουρευτείτε προσυπογράψτε στην τροφή RSS μου!

_» Filed κάτω IT Job Stuff

One Response to “VBS Script for System Administrators - How to backup Outlook email automatically in a login or logoff script”

Jemas said on : August 28th, 2007 at 9:00 pm

Like your script, for home user how can I modify it to do a backup to external hard drive on a daily basis. Thanks