blogMyTrash

‘ Mit VB-Script Dienste auflisten, die beendet werden können.
strComputer = “.” ‘ Der PC auf den das Skript zugreifen soll
Set objWMI = GetObject(”winmgmts:\\” & strComputer)
wql = “Select * from Win32_Service Where AcceptStop = True”‘Dienste aus Win32_Service filtern, welche beendet werden können
Set colServices = objWMI.ExecQuery(wql,,48)
WScript.Echo “Dienste, die beendet werden können:”For Each objService In colServices WScript.Echo [...]

‘ Mit VB-Script Dienst aus der Diensteliste suchen bzw. suchen.
strServer = “.”strService = “Dienstname” ‘ Name des Dienstes den man suchen will
Set objWMI = GetObject(”winmgmts:\\” & strServer)wql = “Select * from Win32_Service Where DisplayName=’” & strService & “‘ and State=’Running’”
Set colServices = objWMI.ExecQuery(wql)
If colServices.Count > 0 Then ‘ wenn > 0 wurde der [...]

‘ DOSausgabe kidnappen bzw. abfangen
‘ Mit VB-Script die Zeit auf hundertstel Sekunden genau ausgeben
Set objShell = CreateObject(”WScript.Shell”)
Set objExec = objShell.Exec(”cmd /c echo %time%”)
‘ Zeit auf Millisekunden genau im DOS Fenster ausgeben
dostime = LCase(objExec.StdOut.ReadAll)
dostime = Split(dostime, vbcrlf, -1, 1) ‘ Zeilenumbruch filtern
msgbox “Die Zeit: ” & dostime(0) ‘ Zeit auf hundertstel Sekunden genau mit VB-Script ausgeben

‘ Mit VB-Script Konsolenbefehle ausführen‘ Befehle im Dosfenster ausgeben
Set objShell = CreateObject(”WScript.Shell”) ‘ mit der Konsole verbindenSet objExec = objShell.Exec(”cmd /c logoff”) ‘ Dosbefehl: abmelden

‘ Mit VBScript Excel Datei öffnen und bestimmten Bereich kopieren‘ Bereich von Worksheet 1 ins Worksheet 2 kopieren’
set exApp = CreateObject(”Excel.Application”)exApp.Visible = TRUE [...]

‘ Mit VBScript Konsolenausgabe kidnappen bzw. abfangen
WScript.Echo Executekonsole(”echo %time%”) ‘ Konsolenbefehl der gekidnappt bzw. abgefangen werden soll
Function ExecuteKonsole(ByVal befehl) ‘ Subroutine Konsolenausgabe kidnappen bzw. abfangen Const WshRunning = 0 Set wshshell = CreateObject(”WScript.Shell”) kommando = “%comspec% /c ” & befehl
Set objProc = wshshell.Exec(kommando) Do While [...]

‘ loop Schleife mit VBScript realisieren bzw. programmieren
i = 0
do while i < 3 ‘ Schleife solange i kleiner 3 ist ausführen On Error Resume Next
MsgBox “Hallo ich bin eine Schleife!”, 64 i = i+1loop

‘ online check bzw. ping mit VB-Script machen
terminal_server = “127.0.0.1″
cmd = “ping.exe -n 1 -w 100″ip = InputBox(”IP-Adresse des Terminal Server?”, , terminal_server)
Set objshell = CreateObject(”WScript.Shell”)rv = objshell.run(cmd & ” ” & ip, , True) ‘Server pingen bzw. online check durchführen’
If rv = 0 Then WScript.Echo “System ” & ip & [...]

‘ Mit VBScript Computer abmelden, herunterfahren oder neustarten
strComputer = “.”
Const LOGOFF = 0 ‘ Konstante für ambeldenConst SHUTDOWN = 1 ‘ Konstante für herunterfahrenConst REBOOT = 2 ‘ Konstante für neustartenConst POWEROFF = 8
Const FORCE = 4 ‘ auf jeden Fall Aktion durchführen
flags = LOGOFF + FORCE
Set objwmi = GetObject(”winmgmts:” & “{(Shutdown)}!\\” & strComputer)
wql [...]

‘ Mit VB-Script PID eines Prozesses ermitteln
process = “notepad.exe”strComputer = “.”
Set objNet = CreateObject(”WScript.Network”)src = objNet.UserName
pid = GetPIDmsgbox pid ‘ PID des Prozesses mit VBScript ausgeben
Function GetPID Set objwmi = GetObject(”winmgmts:\\” & strComputer) wql = “Select * from Win32_Process Where Name = ‘” & process & “‘” ‘alle notepad.exe Prozesse die laufen [...]