blogMyTrash

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

‘ Ein bestimmtes Programm starten mit VB-Script Set wshshell = CreateObject(“WScript.Shell”)wshshell.Run “””” & “C:\MeinProgramm.exe” & “””” ‘ Den Pfad zu dem Programm angeben, welches gestartet werden soll‘ hier: C:\MeinProgramm.exe starten

‘ bestimmten Prozess mit VB-Script in der Prozessliste finden strComputer = “.”process = “notepad.exe” Set objwmi = GetObject(“winmgmts:\\” & strComputer)wql = “Select * from Win32_Process Where Name = ‘” & process & “‘” ‘ Prozess in der Prozessliste suchen und finden Set objProzesse = objwmi.ExecQuery(wql) If objProzesse.Count > 0 Then WScript.Echo “Prozess wird ausgeführt!”Else WScript.Echo [...]

‘ Mit VBScript bestimmten Prozess auf Existenz prüfen‘ Prüfen ob der test_process auf diesem Computer ausgeführt wird strComputer = “.”Set objNet = CreateObject(“WScript.Network”)strUser = objNet.UserNamesrc = strUsertest_process =”notepad.exe” schleife Sub schleifeOn Error Resume Next Set objwmi = GetObject(“winmgmts:\\” & strComputer) wql = “Select * from Win32_Process Where Name = ‘” & test_process & “‘” Set [...]

‘ Remote mit VBScript auf anderen Computer zugreifen strPC = “pcname”strUsername = “username”strPassword = “password” Set objLocator = CreateObject(“WbemScripting.SWbemLocator”)Set objSWbemServices = objLocator.ConnectServer(strPC, “root\cimv2″, strPC & “\” & strUsername, strPassword)‘ Fernzugriff mit VBScript auf entfernten Computer sSQL = “Select * from Win32_Process” ‘ auf Prozessliste des entfernten Computers zugreifenSet oResult = objSWbemServices.ExecQuery(sSQL)For Each obj In oResult [...]

‘ Schreibschutz bei einer Datei setzen und entfernen mit VB-Script Set fs = CreateObject(“Scripting.FileSystemObject”)datei = “C:\Beispiel.txt” ‘ Pfad zu der Datei, bei welcher der Schreibschutz verändert wird SetSchreibschutz dateiMsgBox “Schreibschutz gesetzt bei ” & datei DeleteSchreibschutz dateiMsgBox “Schreibschutz entfernt bei ” & datei Sub SetSchreibschutz(dateiname) If Not fs.FileExists(dateiname) Then Exit sub Set file = fs.GetFile(dateiname) [...]

‘ Select Case Auswahl mit VB-Script und ja nein Abfrage If MsgBox(“Ja oder Nein?”, vbYesNo) = vbYes Then ‘ ja nein Abfrage in VB-Script var = “1″else var = “3″End If mySelect = varSelect Case mySelect ‘ Select Case Auswahl Kontrollstruktur Case “1″,”2″ sub1 Case “3″ sub2End Select Sub sub2 msgbox “Fall 2″End Sub Sub [...]

‘ Mit VBScript Sessions eines Severs auflisten strName = “.”x = 0 Set lanman = GetObject(“WinNT://” & strName & “/LanmanServer,FileService”) WScript.Echo “Sitzungen:” For Each obj In lanman.Sessions ‘ Für jede Session auf dem Server x = x +1 WScript.Echo obj.User & ” greift auf ” & obj.computer & ” zu.” WScript.Echo “Verbindungszeit:”, CMinute(obj.ConnectTime) WScript.Echo “Leerlaufzeit:”, [...]

‘ Mit VBScript einen String auf bestimmtes Zeichen durchsuchen bzw. prüfen mystring = ” xy_abEF_dag_jljl_xy” a = InStr(mystring, “ab”) ‘String auf bestimmtes Zeichen durchsuchen bzw. prüfen msgbox a

‘ String nach einem bestimmten Zeichen trennen bzw. teilen mystring = “L#67″ MyArray = Split(mystring, “#”, -1, 1) ‘ String nach bestimmten Zeichen (#) trennen bzw. teilen MsgBox MyArray(0) & ” ” & MyArray(1)