Beschreibung
Dieses Skript ließt alle lokal installierten Drucker aus:
Set objNetwork = WScript.CreateObject("WScript.Network")
Set colPrinters = objNetwork.EnumPrinterConnections
For i = 0 to colPrinters.Count -1 Step 2
Wscript.Echo colPrinters.Item (i + 1)
Next
Mittels VBS und Network-Object Laufwerk mit Übergabe von User und Passwort mappen
On ERROR resume next
Set WshNetwork = WScript.CreateObject("WScript.Network")
wshnetwork.removenetworkdrive "q:"
WshNetwork.MapNetworkDrive "q:","\\mm\daten", false, "domain/username", "password"
Beschreibung
Bei diesem Skript erscheint eine Dialogfenster,
das nach 3 Sekunden wieder ausgeblendet wird.
set wshshell = createobject("Wscript.shell")
wshshell.popup "Nach 3 Sekunden bin ich wieder weg.",3,"Messageboxmeldung"
Alternative mit Msgbox:
MsgBox ( flag, "title", "text" [, timeout] )
Parameter
flag = Das flag gibt an, wie die Box aussieht, und welche Buttons angezeigt werden. Siehe Bemerkungen.
title = Der Titel der MessageBox.
text = Der Text der MessageBox.
timeout = [optional] Zeitbegrenzung in Sekunden. Danach wird die MessageBox automatisch geschlossen.
Beschreibung
Dieses Script teilt einen String in einzelne Teile auf, die durch ein bestimmtes Trennzeichen getrennt wurden.
liste = "1;2;3;4;5;6;7"
InputData = Split(liste, ";")
For each strData In InputData
text = strData
msgbox(text)
next
Beispiel mit drei Diensten - kann beliebig erweitert werden!
Es ist möglich das ganze als
geplanten Task mehrfach täglich laufen zu lassen!
Alle laufenden Dienste werden in der
service.txt gespeichert und dann wird nach den entsprechnden Diensten darin gesucht.
Ist der Dienst nicht gestartet, dann wir er gestartet und ein Eintrag in die
ausfall.txt erstellt mit Uhrzeit und Datum!
Die
ausfall.txt wird
NICHT überschrieben, sondern alle Fehler werden
angehängt!
Die
service.txt wird bei jedem Aufruf neu generiert!
@echo off
REM --- alle laufende Dienste in service.txt speichern---
net start > service.txt
REM ------------- Überprüfen ob 1.Dienst läuft --------------
find "Designs" service.txt
if errorlevel 1 goto WEG1
if errorlevel 0 goto OK1
:WEG1
REM --- Dienst neu starten und Datum + Uhrzeit festhalten ---
echo Designs %date% %time% >> ausfall.txt
net start "Designs"
goto OK1
REM ---------------------------------------------------------
:OK1
REM ------------- Überprüfen ob 2.Dienst läuft --------------
find "Hilfe und Support" service.txt
if errorlevel 1 goto WEG2
if errorlevel 0 goto OK2
:WEG2
REM --- Dienst neu starten und Datum + Uhrzeit festhalten ---
net start "Hilfe und Support"
echo Hilfe und Support %date% %time% >> ausfall.txt
goto OK2
REM ---------------------------------------------------------
:OK2
REM ------------- Überprüfen ob 3.Dienst läuft --------------
find "Taskplaner" service.txt
if errorlevel 1 goto WEG2
if errorlevel 0 goto OK3
:WEG2
REM --- Dienst neu starten und Datum + Uhrzeit festhalten ---
net start "Taskplaner"
echo Taskplaner %date% %time% >> ausfall.txt
goto OK3
REM ---------------------------------------------------------
:OK3
goto END
:END
Locate Clone für Windows
Locate unter UNIX legt eine Datenbank an und indiziert alle Dateien.
Locateclone legt eine Datei
C:\Locate.db an in der alle Dateien von
C:\ D:\ E:\ aufgeführt sind.
Der Skriptinterpreter sollte auf cscript festgelegt werden.
Das Skript wird am besten ins System32 Verzeichnis kopiert (oder die Umgebungsvariablen angepasst)
Die Laufwerke können direkt im Quellcode des Skriptes angepasst werden.
Interpreter umstellen :
C:\cscript //H:cscript
Download :
locate.zip