Hallo leute,
Kann mir jemand sagen welche Objekte in VB script für Dinge wie
-
- PC herunterfahren
-
- PC neu starten
-
- Dateien löschen
zuständig sind und wie man sie einsetzt.
Danke schon im vorraus
Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge
REPI 
neu12345 „vb script“
Beschreibung
Löscht eine angegebene Datei.
Syntax
Objekt.DeleteFile Dateiangabe[, Erzwingen]
Die Syntax der DeleteFile-Methode besteht aus folgenden Teilen:
Teil Beschreibung
Objekt Erforderlich. Stets der Name eines FileSystemObject-Objekts.
Dateiangabe Erforderlich. Name der zu löschenden Datei. Dateiangabe darf in der letzten Pfadkomponente Platzhalterzeichen enthalten.
Erzwingen Optional. Boolescher Wert, der True ist, wenn Dateien mit gesetztem Schreibschutzattribut gelöscht werden sollen. Er ist False (Standard), wenn dem nicht so sein soll.
Hinweise
Ein Fehler tritt auf, wenn keine übereinstimmenden Dateien gefunden werden. Die DeleteFile-Methode wird beim ersten auftretenden Fehler abgebrochen. Vor dem Fehler durchgeführte Änderungen werden nicht rückgängig gemacht.
Das folgende Beispiel zeigt die Verwendung der DeleteFile-Methode:
Sub DateiLoeschen(Dateiangabe)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile Dateiangabe
End Sub
--------------------------------------------------------------------------------
Pc runterfahre und neu booten mit reinem VB Befehlen ist mir nicht bekannt, sollte wohl immer ein Dll-Aufruf sein .
z.B.@ECHO OFF
REM ENDE.BAT Stand: TT. MM. JJJJ
REM Windows ohne Nachfrage runterfahren
REM ===================================
RUNDLL32.EXE user,ExitWindows
REM --- Ende ENDE.BAT -----------------
ein Beispiel
repi
neu12345 Nachtrag zu: „vb script“
Danke, aber wie genau schreibe ich ein script, dass auf *.dll Dateien zugreift.
Kann mir vielleicht jemand ein Beispiel zeigen?
Danke im voraus.
thomas woelfer neu12345 „vb script“
sowas geht mit dem wmi objekten. dazu gibts jede menge beispiele auf msdn und technet. z.b.:
Sub RebootComputer( strServer )
Set objOSSet = GetObject("winmgmts:{(RemoteShutdown)}//" & strServer & "/root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
For each objOS in objOSSet
objOS.Reboot()
Next
End Sub
Dim strComputer
' strComputer = "NameDesComputersDerGebootetWerdenSoll"
RebootComputer( strComputer )
WM_FYI
