Einführung in VB Script: ein Anfängerleitfaden: Teil 2: Arbeiten mit Dateien: 13 Schritte

2024 Autor: John Day | [email protected]. Zuletzt bearbeitet: 2024-01-30 07:23

Nun, in meinem letzten VBScript instructable ging ich darüber nach, wie man ein Skript erstellt, um Ihr Internet abzuschalten, um Xbox360 zu spielen. Heute habe ich ein anderes Problem. Mein Computer wurde zu zufälligen Zeiten heruntergefahren und ich möchte mich jedes Mal, wenn der Computer neu startet, in eine Datei protokollieren. Ich habe das Gefühl, dass das Problem die Grafikkarte ist, aber ich möchte sichergehen. Ich lasse den Computer immer eingeschaltet, kann ihn aber nicht rund um die Uhr überwachen. Daher besteht meine einfachste Lösung darin, bei jedem Neustart einen Zeitstempel in eine Datei zu schreiben. Da es mir jedes Mal einen BSOD gibt, ist das Protokollieren beim Herunterfahren schwierig, so dass ich es abrufen muss, wenn es wieder eingeschaltet wird. Das ist der einfache Teil. Aufgrund der Tatsache, dass dies nur vorübergehend ist, bis ich herausgefunden habe, was mit dem Computer nicht stimmt, werde ich nicht in die Registrierung schreiben oder es zu einem Dienst machen, damit er beim Booten gestartet wird. Und damit es jedes Mal neu startet, wenn es heruntergefahren wird, muss ich das Bios bearbeiten.

Schritt 1: Bearbeiten des Bios, um es bei Stromausfall neu zu starten

Ich bin mir nicht sicher, ob mein Problem an einem Ausfall der Stromversorgung oder an meiner Grafikkarte liegt oder was es ist. Aber ich weiß, dass der Computer von Zeit zu Zeit neu startet. Um sicherzustellen, dass es nach einem Stromausfall (zB: das Netzteil wird braun) neu startet, möchte ich das Bios bearbeiten. Aufgrund der Tatsache, dass es so viele verschiedene Bios-Hersteller gibt, wäre es zu schwierig, all die verschiedenen Möglichkeiten, dies in all den verschiedenen Bios-Bildschirmen zu tun, aufzulisten, also werde ich dir nur die Grundlagen geben und dich herausfinden lassen die Einzelheiten selbst. Um in Ihr Bios zu gelangen, müssen Sie beim Booten eine Taste drücken. Normalerweise sagt es so etwas wie "Entf drücken, um das Setup zu öffnen" oder "F2". Verschiedene Hersteller bieten Ihnen unterschiedliche Möglichkeiten, aber normalerweise ist es entweder die Taste "F2" oder "Entf". Achten Sie in jedem Fall darauf und drücken Sie die Taste, die Sie drücken sollen. Jetzt kommen Sie zu einem Bildschirm, der normalerweise entweder grau oder blau ist, aber auch hier hängt es von Ihrem Bios-Hersteller ab. Sie werden nach einer Option für die Energieeinstellungen suchen. Es befindet sich entweder in einem eigenen Fenster wie im AMIBIOS-Screenshot (aus der Toms-Hardware-Anleitung geliehen) oder in einigen in einem Fenster mit erweiterten Bios-Funktionen. Wie auch immer, Sie suchen nach einer Einstellung "Wiederherstellen bei Wechselstrom / Stromausfall". Es mag anders heißen, aber es wird dem nahe kommen. Suchen Sie einfach danach. Es hat normalerweise drei Optionen (letzter Zustand, an nach Stromausfall, aus nach Stromausfall). Sie möchten es nach einem Stromausfall einschalten. Stellen Sie sicher, dass Sie Ihre Einstellungen speichern und das Bios beenden. Wenn Ihr Strom ausfällt oder Sie Ihren Computer vom Netz trennen, wird er neu gestartet, sobald er wieder mit Strom versorgt wird. Jahhhhh!!!!!!!!!!!!!!!!

Schritt 2: Das Skript schreiben Teil 1: Einen Plan erstellen

Als erstes wollen wir einen Plan erstellen. Was genau soll das Skript tun? A.) Wenn der Strom ausfällt oder das BSOD hochfährt, möchten wir, dass es neu startet. (Beachten Sie in Schritt 1 Bearbeiten des BiosB.) Sobald es neu gestartet wird, möchten wir das genaue Datum und die genaue Uhrzeit des Neustarts in eine Datei schreiben. C.) Wir möchten diese Datei ändern können. Wenn es mehr als einmal neu startet, würden wir es nie erfahren. D.) Wir möchten, dass es eine Fehlerkorrektur hat, damit es nicht vermasselt, und wir stellen sicher, dass wir alle unsere Neustarts erhalten, ohne aufgrund von schlechter Codierung irgendwelche zu verpassen. E.) Wir wollen es um eine Nachricht anzuzeigen, die besagt, dass es neu gestartet wurde.

Schritt 3: Schreiben des Skripts Teil 2: Erstellen Ihres Skripts und Zuweisen der Variablen

Ok, das Wichtigste zuerst, erstellen Sie ein Textdokument und benennen Sie es in any_name.vbs um. Ich habe shutdown_catcher.vbs verwendet, aber Sie können alles verwenden. Klicken Sie nun mit der rechten Maustaste auf die vbs-Datei und klicken Sie auf Bearbeiten sollten versuchen, es zu bekommen. Okay, als erstes wollen wir Variablen erstellen. Variablen sind im Grunde nur Platzhalter, damit wir nicht viele Male eine ganze Menge Zeug schreiben müssen. Beispiel: wir haben einen Satz, der sagt "der schnelle braune Fuchs springt über die faulen Hunde zurück". aber es ist in unserem Code 20 Mal. Wir können entweder den ganzen Satz 20 Mal eingeben oder eine Variable erstellen und den Satz dieser Variablen zuweisen. In diesem Beispiel erstellen wir die Variable strSentence und weisen dann dieser Variablen "der schnelle braune Fuchs springt über die faulen Hunde zurück" zu. Jetzt müssen wir nur noch strSentence eingeben, wenn wir den Satz brauchen, und er weiß, dass er "der schnelle braune Fuchs springt über die faulen Hunde zurück" eingeben muss, wie machen wir es: Wenn wir mehrere Variablen des gleichen Typs haben, können wir setzen sie in derselben Zeile und trennen Sie die Variablen durch Kommas. Um eine Variable zu erstellen, müssen wir die Variable dimensionieren. Dazu geben wir Dim vor der Variablen ein und setzen dann ein Präfix auf die Variable, damit wir wissen, was die Variable darstellt. Beispiele sind str für eine String-Variable obj für eine Objektvariable const für eine Konstante…. Die Liste geht weiter und weiter. Dies sind die, die wir in diesem Skript verwenden werden, also werde ich sie ein wenig erklären. eine Zeichenfolge ist normalerweise Text wie ein Satz. Ein Objekt ist normalerweise etwas Physisches wie eine Datei oder ein Programm. und eine Konstante ist etwas, das im gesamten Skript immer die gleiche Bedeutung hat. HINWEIS: JEDES MAL, WENN EINE ZEILE EIN EINZELNES ' BEVOR SIE HAT, WIRD DIE ZEILE VOM SKRIPT IGNORIERT. SIE WERDEN BEMERKUNGEN GENANNT UND WERDEN NORMAL VOM PROGRAMMIERER EINGEGEBEN SIE KÖNNEN SICH ERINNERN, WAS SIE SPÄTER BEI DER ÜBERPRÜFUNG DES CODES GETAN HABEN. ICH WERDE SIE VERWENDEN, UM KOMMENTARE ÜBER DEN CODE ZU MACHEN, DAMIT SIE SEHEN KÖNNEN, WARUM ICH SO GESTOPFT HABE. UND SIE SIND ÜBER DER LINIE, ÜBER DIE SIE KOMMENTIEREN. Tatsächliche Verwendung: Diese Zeile zwingt Sie, alle Variablen zu definieren. Ohne sie wird jede undefinierte Variable als eine Objektoption Explicit behandelt'jetzt erstellen wir 5 Variablen für die Ordner und Dateien, die wir brauchen'benennen Sie sie wie Sie wollen, aber die Konvention ist preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'jetzt brauchen wir um String-Variablen für das Verzeichnis zu erstellen, Datei- und DateinameDim strDir, strFile, strFileName'jetzt den Variablen Werte zuweisen'das strDir ist unser Verzeichnis wir wollen den Ordner in strDir = "C:\Catcher"'das strFile ist dort, wo wir wollen das Textdokument und wie es heißtstrFile = "\Shutdown_catcher.txt"'der strfile-Name ist, damit wir den Namen der Datei für die Verwendung in pop upsstrFileName ="Shutdown_catcher.txt"'als nächstes müssen wir eine Konstante für den Zugriff auf file haben wir drei Optionen'wir werden in diesem Code nur das Anhängen verwenden, aber es ist schön, sie alle zu kennen. Const forReading=1, forWriting = 2, ForAppending = 8'zuletzt müssen wir eine Variable auf das Dateisystem setzen Objekt, damit wir es später aufrufen können, wenn wir es brauchenSet objFiS yOb = CreateObject("Scripting. FileSystemObject")

Schritt 4: Erklärungen zwischendurch

Nachdem wir nun unsere Variablen dimensioniert haben, müssen wir uns nur noch jedes Mal an diese spezifische Variable erinnern. Dies reduziert nicht nur die Anzahl der Eingaben, sondern verursacht auch weniger Fehler aufgrund von Rechtschreibfehlern. Jetzt müssen wir technisch gesehen nur den folgenden Code eingeben und wir sind fertig 'setze die Datei für appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)'schreiben Sie die neue Zeile in die DateiobjTextFile. WriteLine("Ihr Computer wird am " & Datum & " um " & Zeit heruntergefahren)'schließen Sie die DateiobjTextFile. Close'ein Popup erstellenWscript. Echo ("Ihre" Computer Herunterfahren am " & Datum & " um " & Zeit)'Öffnen Sie die Datei in IESet objShell = CreateObject("WScript. Shell")objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt") Das Problem ist, dass es keine Fehlerkorrektur gibt und jeder einfache Fehler wie eine nicht vorhandene Datei oder eine bereits zugewiesene Variable zum Absturz des Skripts führt.

Schritt 5: Skript schreiben Teil 3: If Then-Anweisungen als Fehlerkorrektur

Der einfachste Weg zur Fehlerkorrektur ist die Verwendung von if/then-Anweisungen. Im Grunde sagt eine if then-Anweisung, wenn etwas passiert, dann tue dies sonst tue das. Durch das Verschachteln von if/then-Anweisungen können Sie eine Reihe von Dingen erstellen, die passieren müssen. Wenn a und b und c passieren, dann tun Sie dies, sonst tun Sie das. Beispiel: Wir möchten sicherstellen, dass die Datei, in die wir schreiben möchten, vorhanden ist Wenn wir sie finden, möchten wir nichts tun, wenn wir sie nicht finden, möchten wir sie erstellen oder wir Ich möchte prüfen, ob der Ordner vorhanden ist und wenn nicht, erstellen Sie ihn und dann prüfen Sie, ob die Datei vorhanden ist, sobald wir den Ordner gefunden haben und wenn nicht, erstellen Sie ihn wir tun es: es gibt vier Teile zu einer if-then-Anweisung if/then elseend wenn es im Grunde ist wenn dies wahr ist dann tue dies sonst tue das dann beende die Anweisung eine richtig codierte if-then-Anweisung wäre: Wenn etwas = etwas Dann tue was Sie tun müssen Sonst tun Sie etwas anderesEnd IfSie können jedes Argument verwenden, solange es wahr ist wir setzen "end if", aber wenn wir if-Anweisungen verschachtelt haben, müssen wir jede if-Anweisung beenden. Es beendet sie von Kind zu Eltern, so dass das erste "end if" die if-Anweisung innerhalb des Elternteils beendet, während das zweite die ursprüngliche (parent) if-Anweisung beendet. Um ein Popup zu erstellen, geben wir einfach Wscript. Echo ("was auch immer" Wir möchten in der Nachricht sagen ") Um einen Variablenwert hinzuzufügen, setzen wir ihn außerhalb oder zwischen doppelte Anführungszeichen und verwenden das kaufmännische Und-Zeichen (&) als Trennzeichen, damit das Skript weiß, dass es sich um eine Variable und nicht um einen Text handelt:Wscript. Echo ("Blah bla bla" & strDir & " bla bla bla "& strFilename & " bla bla.") Die Ausgabe wäre ein Popup mit der Meldung bla bla C:\Catcher bla bla shutdown_catcher.txt blah blah blah. Actual Usage:'if der Ordner C;\exist If objFiSyOb. FolderExists(strDir) Then'Ordner holen Set objSysFold = objFiSyOb. GetFolder(strDir)'otherwiseElse'Ordner erstellen c;\catcher Set objSysFold = objFiSyOb. CreateFolder(strDir)'und prüfen, ob die Datei und der Ordner existieren If objFiSyOb. FileExists(strDir & strFile) Then'wenn es den Ordner c:\catcher holt Set ob jSysFold = objFiSyOb. GetFolder(strDir)'otherwiseElse'Textdokument shutdown_catcher.txt erstellen Set objFile = objFiSyOb. CreateTextFile(strDir & strFile)'dann erscheint eine Meldung, dass Sie beide erstellt haben Wscript. Echo ("Wir haben einen Ordner erstellt namens " & strDir & " und eine Datei namens "& strFilename & " und platziert sie im Verzeichnis " & strDir & strFile & ".")'end nested if AnweisungEnd If'end original if AnweisungEnd If'now in der ersten if-Anweisung Wir haben bereits nach Ordner gesucht und ihn gefunden, also suchen wir jetzt nach fileIf objFiSyOb. FileExists(strDir & strFile) Then'if found Ordner holen Set objSysFold = objFiSyOb. GetFolder(strDir)'sonst Else'Textdokument erstellen Set objFile = objFiSyOb. CreateTextFile(strDir & strFile)'erzeuge ein Popup mit dem Hinweis, dass wir das Textdokument Wscript. Echo erstellt haben ("Wir haben eine Datei mit dem Namen " & strFileName & " im " & strDir & "Dateiordner erstellt.")End If

Schritt 6: Erklärungen zwischendurch

Wenn Sie sich den Code aus dem vorherigen Schritt genau ansehen, sehen Sie sowohl eine verschachtelte als auch eine nicht verschachtelte if then-Anweisung. Die erste ist eine verschachtelte Anweisung. Es sucht nach Ordner und Datei und wenn sie nicht gefunden werden, werden beide erstellt. Der zweite sucht nur nach einer Datei und wenn er nicht findet, erstellt er nur die Datei. Man könnte sagen warum beides. Nun, was passiert, wenn die Datei gelöscht wird, der Ordner jedoch nicht. Die erste if-Anweisung würde das Erstellen der Datei direkt überspringen, da sie den Ordner gefunden hat und den else-Teil der Anweisung nie aktivieren würde. Wenn Sie also in die Datei schreiben wollten, wurde ein Fehler ausgegeben, da die Datei fehlte. Indem es also den zweiten da hat, löst es dieses Problem. Technisch gesehen könnten Sie die verschachtelte Anweisung herausnehmen, weil sie fast dieselbe ist wie die zweite if then-Anweisung, aber dann hätten Sie nur ein Popup und es wäre nicht so sympathisch -verschachtelte if-Anweisungen.

Schritt 7: Weitere Fehlerkorrektur

Nachdem wir nun den Großteil der Fehlerkorrektur abgeschlossen haben, möchten wir in die Datei schreiben und die Popups anzeigen. Das Problem ist, dass wir Berechtigungsfehler erhalten, wenn wir die Referenz des in der Variablen gespeicherten vorherigen Objekts nicht freigeben. Also wollen wir einen kleinen Codeschnipsel einfügen, der besagt, dass die Variablen auf nichts gesetzt werden. Sieht so aus: set objFile = nothingset objSysFold = nothingAlso für diejenigen von Ihnen, die zu Hause mitverfolgen, sollte Ihr Code bis zu diesem Punkt so aussehen (ich habe den Kommentar genommen out):Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt"strFileName ="Shutdown_catcher.txt"Const forReading ==1, for ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")If objFiSyOb. FolderExists(strDir) Then Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objSysFold = objFiSyOb. FolderExists(strDir)If Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("Wir haben einen Ordner namens " & strDir & " und eine Datei namens "& strFilename & " erstellt und in das Verzeichnis " & strDir & strFile & ".")Ende I fEnd IfIf objFiSyOb. FileExists(strDir & strFile) Then Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("Wir haben eine Datei mit dem Namen & " & " & strDir & "Dateiordner.")End Ifset objFile = nichtsset objSysFold = nichts

Schritt 8: Schreiben des Skripts Teil 4: Einstellen von Attributen

Jetzt müssen wir die Attribute für die Datei festlegen, damit wir sie ändern können. Zuvor haben wir drei konstante Variablen gesetzt: forReading=1forWriting=2 forAppending=8Wenn Sie es auf forReading setzen, können Sie es lesen, aber nicht darauf schreiben. Wenn Sie es auf forWriting setzen, überschreiben Sie die vorhandene Datei jedes Mal, wenn Sie das Programm ausführen. Wenn Sie es auf forAppending setzen, fügen Sie jedes Mal eine neue Zeile hinzu, wenn das Skript zum Dokument ausgeführt wird. Da wir bei jedem Neustart ein Protokoll wünschen, möchten wir, dass es angehängt und nicht überschrieben wird. Daher verwenden wir forAppending: Sie müssen das Objekt benennen, dem Sie Attribute setzen möchten. Da wir die meiste Arbeit in den vorherigen Schritten bereits erledigt haben, müssen wir uns an dieser Stelle nur noch an die Variablen erinnern. Dann setzen Sie es einfach auf true. Actual Usage:'object to set = filesystemobject.action(directory+name of file, attribute, true or false)Set objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Schritt 9: Schreiben des Skripts Teil 5: Schreiben in eine Datei

Das Schreiben in eine Datei ähnelt dem Schreiben eines Popups. Sie setzen einfach:objTextFile. WriteLine("Was auch immer Sie sagen möchten " & Variable zum Einfügen in die Schreibzeile)Der einzige Unterschied ist der erste Teil. In einem Popup fügen Sie:Wscript.echoin eine Schreibzeile ein, die Sie setzen:objTextFile. WriteLineUnd in einer Schreibzeile müssen Sie die Schreibzeile schließen, damit sie weiß, dass sie mit dem Schreiben aufhört, und dafür verwenden Sie:objTextFile. CloseActual Usage:objTextFile. WriteLine("Ihr Computer wird am " & Datum & " um " & Zeit" heruntergefahren)objTextFile.close'Fügen Sie jetzt ein Popup hinzu, um zu sagen, dass Sie in die Datei geschrieben haben, damit die Person weiß, dass es passiert ist. & Zeit)

Schritt 10: Schreiben des Skripts Teil 5: Öffnen der Datei zum Anzeigen

Das Skript stoppt an dieser Stelle, bis jemand auf das Popup klickt. Sobald Sie das Popup-Fenster verlassen haben, können Sie eine Zeile einfügen, die die Datei öffnet. Eine gewisse Fehlerkorrektur hilft dabei, das Programm gut laufen zu lassen. Wenn Sie einen Fehler in vbscript erstellen, fügt es einen Wert zur Variablen "err.number" hinzu, die eine vordefinierte Variable in vbscript ist. Sie müssen sie nicht definieren und können sie wie jede andere Variable verwenden, solange Sie ihre Regeln nicht verletzen. Der der Variablen err.number zugewiesene Wert ist der Code für den aufgetretenen Fehler. Jetzt können Sie entweder nach jedem in der vbscript-Datenbank bekannten Fehlercode suchen und sicherstellen, dass er nicht aufgetreten ist. Oder einfacher, überprüfen Sie einfach, ob die Variable err.number leer ist. wenn es leer ist, sind keine Fehler aufgetreten. Dazu prüfen wir einfach, ob die Variable gleich vbEmpty ist. In unserem Skript möchten wir also eine weitere if then-Anweisung verwenden. Und überprüfen Sie, ob ein Fehler aufgetreten ist und ob die Datei nicht zum Anzeigen geöffnet wurde, aber wenn dies der Fall ist, wird eine Meldung mit der Fehlernummer angezeigt, damit wir die Fehler beheben können Geben Sie Wscript. Quit ein. Dies weist das Skript an, sich selbst zu beenden. Dies hilft, Speicherlecks und unerwünschte Prozesse am Laufen zu halten. Verwendung: Wenn err.number gleich vbEmpty ist, dann eine Shell erstellen und dann das Programm von der Shell ausführen. Andernfalls wird eine Meldung angezeigt, die besagt, dass ein Fehler aufgetreten ist FehlerIf err.number = vbEmpty then'wenn keine Shell erstellen Set objShell = CreateObject("WScript. Shell")'dann öffnen Sie die Datei von dieser Shell mit dem Explorer. es wird tatsächlich im IE geöffnet, obwohl objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt")' andernfalls eine Meldung mit der Fehlernummer angezeigt wirdElse WScript.echo "VBScript Error: " & err.numberEnd If 'end scriptWscript.quit

Schritt 11: Das Skript beim Start ausführen lassen

Im Startmenü befindet sich ein Dateiordner namens Startup. Alles, was in diesem Ordner abgelegt wird, wird gestartet, sobald der Computer gestartet wird. Durch das Ablegen der Skriptdatei in den Startordner wird sie jedes Mal ausgeführt, wenn der Computer neu gestartet wird, ob beabsichtigt oder nicht. Da ich dies nur als Diagnosewerkzeug verwende, muss es zum Starten nicht in einen Dienst umgewandelt werden und ich muss es nicht in die Registrierung eingeben, um es zu starten, also ist dies in Ordnung. Sobald ich den Computer repariert habe, kann ich die Datei aus dem Startordner löschen und es ist keine weitere Bereinigung erforderlich.

Schritt 12: Ausführen des Programms

Wenn Sie die vbscript-Datei ausführen, wird sie jetzt A.) Überprüfen Sie, ob der Ordner C:\Catcher existiert und erstellen Sie ihn, falls nicht. B:) Überprüfen Sie, ob die Datei Shutdown_catcher.txt existiert, und erstellen Sie sie falls nicht. C:) Wenn es entweder einen Ordner oder eine Datei oder beide erstellt hat, wird eine Meldung angezeigt, dass es sie erstellt hat (Hinweis: Dies sollte nur beim ersten Ausführen erfolgen, danach sollte es bereits vorhanden sein, es sei denn, es wird gelöscht, sodass Sie diese Meldung nur einmal sehen sollten. Es kann eine gute Idee sein, dieses Skript einmal unter einem kontrollierten Neustart auszuführen, damit Sie diese Popups umgehen können, oder Sie können nichts in die Datei schreiben, da es die erstellten Popups nicht umgeht.)D:) Schreiben Sie eine Zeile in die Textdokument Shutdown_Catcher.txt, das besagt, dass der Computer an diesem und jenem Datum zu dieser und jener Zeit heruntergefahren wurde Sie sehen den geschriebenen Code. Jetzt muss ich mich nur noch zurücklehnen und warten. Jedes Mal, wenn der Computer neu startet, werde ich eine Aufzeichnung davon haben. Dann kann ich den Datensatz überprüfen und feststellen, ob er konsistent ist. Ein Beispiel könnte sein, dass es jede halbe Stunde neu gestartet wird oder jedes Mal neu gestartet wird, wenn die Uhr ein Inkrement oder 45 anzeigt. Dies ist keineswegs die einzige Möglichkeit, den Computer zu überprüfen, nur damit Sie es wissen. Ich habe auch ein Benchmarking-Programm, das läuft, um die Temperaturen zu überprüfen, damit ich weiß, wie heiß es beim Herunterfahren ist, die Spannung, damit ich weiß, ob die Stromversorgung ausfällt, und ein paar andere hilfreiche Dinge. Nun, ich hoffe, das war hilfreich. Ich weiß, dass es mir Spaß macht, vielleicht werden es andere auch tun. Wenn Sie Fragen haben, können Sie diese gerne stellen. Ich komme vielleicht nicht sofort zu ihnen, aber innerhalb einer Weile werde ich Ihnen antworten. Kommt darauf an wie mein Tag/Woche läuft.

Schritt 13: Der Code

Dies ist der geschriebene Code ohne alle Hinweise und Anmerkungen_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt"strFilecatcher ="Shutdown_catcher.txt"strFilecatcher. Const forReading=1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")If objFiSyOb. FolderExists(strDir) Then Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set obj. FiSySyOb = objFiSyOb. FileExists(strDir & strFile) Then Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("Wir haben einen Ordner namens " & astrDir & " "& strFilename & " und im Verzeichnis " & strDir & strFile & " abgelegt.")End IfEnd IfIf objFiSyOb. FileExists(strDir & strFile) Then Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objreFiSyOb(C. strDir & strFile) Wscript. Echo ("Wir haben erstellt eine Datei mit dem Namen " & strFileName & " im " & strDir & "Dateiordner.")End Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)objTextFile. WriteLine("Your computer Herunterfahren am " & Datum & " um " & Zeit)objTextFile. CloseWscript. Echo ("Ihr Computer wird am " & Datum & " um " & Zeit heruntergefahren)If err.number = vbEmpty then Set objShell = CreateObject("WScript. Shell") objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt")Else WScript.echo "VBScript Error: " & err.numberEnd IfWScript. Quit