blogMyTrash

‘ Mit VBScript Dienst beenden bzw. stoppen strServer = “.”strName = “AudioSrv” ‘Dienst der Beendet werden soll’ Set objWMI = GetObject(“winmgmts:\\” & strServer & “\ROOT\CIMV2″)Set objDienst = objWMI.Get(“Win32_Service=’” & strName & “‘”)With objDienst If .AcceptStop Then rv = objDienst.StopService ‘ Dienst stoppen bzw. beenden WScript.Echo rv Else WScript.Echo “Dienst lässt sich nicht stoppen.” WScript.Echo “Der [...]

‘ 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 [...]

‘ 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 [...]

‘ 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 [...]

‘ 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 ‘ open EXCELset exBook = exApp.WorkBooks.Open(“C:\beispiel.xls”) ‘ Excel Datei öffnen Set exSheet = exBook.Sheets(1) exSheet.Activate ‘ Worksheet aktivierenexSheet.Rows(“2″).Select ‘ bestimmten Bereich auswählenexApp.Selection.Copy ‘ Bereich kopieren’ Set exSheet2 = exBook.Sheets(2)exSheet2.Activate ‘ Worksheet [...]

‘ 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 objProc.Status = WshRunning ExecuteKonsole = ExecuteKonsole & [...]

‘ 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:” [...]