'*** v9.7 *** www.dieseyer.de ******************************* 

' 

' Datei:  1service_serviceentfernen.vbs 

'	  aus vbsbeimsystemstart.vbs v8.4 

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de 

' 

'************************************************************ 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

  Dim WSHNet		: Set WSHNet		= WScript.CreateObject("WScript.Network") 

  Dim WSHShell		: Set WSHShell		= WScript.CreateObject("WScript.Shell") 

  Dim fso		: Set fso		= WScript.CreateObject("Scripting.FileSystemObject") 

  Dim oArgs		: Set oArgs		= Wscript.Arguments 

 

  Const Dienst1		= "1Service"   ' DienstName auf dem ZielPC 

 

  Dim ZielPC 

 

'  Dim ZielVerz, ZielWinDir, ZielDatei, Txt, Tst 

 

 

' LOG-Datei-Namen  festlegen 

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

  Dim LogDatei 

  LogDatei = "" 

  Trace32Log "Starte: """ & ZielPC & """ " , 1 ' LOG-Datei ist VBS-Name 

 

 

' Dim aktVerz		: aktVerz		= WshShell.ExpandEnvironmentStrings("%WinDir%") & "\system32\CCM\Inst.LOG\" 

  Dim AktVerz		: AktVerz		= Replace( WScript.ScriptFullName, WScript.ScriptName, "" ) ' mit "\" am Ende!!! 

'  If InStr( VBSStart, "\" ) > 1 Then AktVerz = Mid( VBSStart, 1, InStrRev( VBSStart, "\" ) ) 

 

 

  LogDatei		= WScript.ScriptFullName 

  LogDatei		= Mid( LogDatei, 1, InStrRev( LogDatei, "." ) - 1 ) ' alles bis zum letzten Punkt 

  LogDatei		= LogDatei & "_" & ZielPC & ".log" ' LogDatei enthält jetzt PCNamen 

  LogDatei		= AktVerz & fso.GetBaseName( WScript.ScriptFullName )&  "_" & ZielPC & ".log" ' LogDatei enthält jetzt PCNamen 

 

'	Trace32Log "-", 0 ' erstellt neue LogDatei (wegen 0) 

	Trace32Log " ", 1 ' fügt Leerzeile in LogDatei ein 

	Trace32Log "044 :: Start " & WScript.ScriptFullName & " ( " & fso.GetFile( WScript.ScriptFullName ).DateLastModified & " )", 1 

	Trace32Log "045 :: LogDatei: " & LogDatei, 1 

	Trace32Log "046 :: AktVerz: " & AktVerz, 1 

	Trace32Log "047 :: PCname: " & WSHNet.ComputerName, 1 

	Trace32Log "048 :: Angemeldeter User: " & WSHNet.UserName, 1 

	Trace32Log "049 :: ZielPC: " & ZielPC, 1 

 

 

 

Call ServiceEntfernen( ".", Dienst1 ) 

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

 

 

  Trace32Log "062 :: Ende " & WScript.ScriptFullName & " ( " & fso.GetFile( WScript.ScriptFullName ).DateLastModified & " )", 1 

  LogDatei = "" : Trace32Log "Abgearbeitet: """ & ZielPC & """ " , 1 ' LOG-Datei ist VBS-Name 

 

WScript.Quit 

 

 

'********************************************************* 

Sub ServiceEntfernen( PC, Dienst ) 

'********************************************************* 

  Trace32Log "071 :: START: Sub ServiceEntfernen( """ & PC & """, """ & Dienst & """ )", 1 

 

  Dim objWMIService, colServices, objService 

  Dim Txt 

 

  Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & PC & "\root\cimv2") 

  Set colServices = objWMIService.ExecQuery ("SELECT * FROM Win32_Service WHERE Name = '" & Dienst & "'") 

  For Each objService in colServices 

	objService.StopService() : Trace32Log "079 :: Stopanforderung . . . ", 1 

	WScript.Sleep 3*1000 

	objService.Delete() : Trace32Log "081 :: Löschanforderung . . . ", 1 

  Next 

  Set objWMIService = nothing 

  Set colServices = nothing 

 

  Txt = "" 

  ' Test, ob Dienst vorhanden ist 

  ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

  Set objWMIService      = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!\\" & PC & "\root\cimv2") 

  Set colServices = objWMIService.ExecQuery ("Select * From Win32_Service" ) 

  For Each objService in colServices 

    If objService.DisplayName = Dienst Then Txt = """" & objService.DisplayName & """ (" & objService.State & ")" 

  Next 

  Txt = "Der Dienst """ & Dienst & """ wurde von """ & PC & """ entfernt." 

' If Len( Txt ) > 5 Then MsgBox now() & vbCRLF & Txt , , "095 :: " & WScript.ScriptName 

  If Len( Txt ) > 5 Then Trace32Log "096 :: " & Txt, 1 

  If Len( Txt ) > 5 Then Exit Sub 

 

		Txt = "FEHLER: Der Dienst """ & Dienst & """ konnte nicht von """ & PC & """ entfernt werden." 

		WSHShell.Popup vbTab & "= = = E N D E = = =" & vbCRLF & vbCRLF & Txt & vbCRLF & vbCRLF & vbTab & ZielPC, 17, "100 :: " & WScript.ScriptName 

		Trace32Log "101 :: Ende " & WScript.ScriptFullName & " ( " & fso.GetFile( WScript.ScriptFullName ).DateLastModified & " )", 3 

		LogDatei = "" : Trace32Log "Ende: """ & ZielPC & """ - " & Txt, 3 ' LOG-Datei ist VBS-Name 

		MsgBox now() & vbCRLF & Txt, , "103 :: " & "= = = E N D E = = =" 

		WScript.Quit 

 

End Sub ' ServiceEntfernen( PC, Dienst ) 

 

 

'*** v9.C *** www.dieseyer.de ****************************** 

Sub Trace32Log( LogTxt, ErrType ) 

'*********************************************************** 

' in VBS und HTA verwendbar 

' Aufbau einer LOG-Datei für trace32.exe ( SMS Trace; 

' ALLES in einer Zeile!): 

' <![LOG[...]LOG]!> 

' < 

'	time="08:12:54.309+-60" 

'	date="03-14-2008" 

'	component="SrcUpdateMgr" 

'	context="" 

'	type="0" 

'	thread="1812" 

'	file="productpackage.cpp:97" 

' > 

' 

'	"context="	Info wird nicht angezeigt 

'	type="0"	normale Zeie => NEUE LOG-DATEI - ggf. alte überschreiben !!!!!!!!!!!! 

'	type="1"	normale Zeie 

'	type="2"	gelbe Zeie 

'	type="3"	rote Zeie 

'	type="F"	rote Zeie 

 

'	"thread="	kann eine Dezimalzahl aufnehmen; trace32 zeigt 

'           neben der Dezimalzahl in Klammern die entspr. 

'           Hexadezimalzahl an - z.B. "33 (0x21)" 

'	"file="	wird in "Source:" angezeigt 

' 

 

  Dim fso         : Set fso       = CreateObject("Scripting.FileSystemObject") 

  Dim LogDateiX, TitelX, Tst, Nr 

 

  On Error Resume Next 

	Tst = KeineLog 

  On Error Goto 0 

  If UCase( Tst ) = "JA" Then Exit Sub 

 

  On Error Resume Next 

	TitelX = Titel	' Fehler, wenn die Variable 'Titel' nicht außerhalb der Prozedur definiert wurde 

	TitelX = title	' Fehler, wenn die Variable 'Titel' nicht außerhalb der Prozedur definiert wurde 

	If Len( TitelX ) < 2	Then TitelX = document.title		' .hta 

	If Len( TitelX ) < 2	Then TitelX = WScript.ScriptName	' .vbs 

  On Error Goto 0 

 

  On Error Resume Next 

	LogDateiX = LogDatei	' wurde die Variable 'LogDatei' nicht außerhalb der Prozedur definiert 

	If Len( LogDateiX ) < 2	Then LogDateiX = WScript.ScriptFullName & ".log"	' .vbs 

	If Len( LogDateiX ) < 2	Then LogDateiX = TitelX & ".log"			' .hta 

  On Error Goto 0 

 

  Nr = 0 ' Wenn in Thread die Zeilennummer stehen soll: 

  Nr = 999999 

  If Nr = 0   AND   InStr( LogTxt, " :" & ": " ) > 0 Then 

' Wenn in Thread die Zeilennummer stehen soll - Voraussetzung 

' ist eine ZeilenNr. im Format '22 :: ' 

	Nr = LogTxt 

	Nr = Mid( Nr, 1, InStrRev( Nr, " :" & ": "	) -1 )		' nach der Zeilennummer 

	Nr = Mid( Nr, InStrRev( Nr, " "	) + 1 )    			' vor der Zeilennummer 

	On Error Resume Next : Tst = Int( Nr ) : On Error Goto 0	' Zeilennummer als (Integer) Zahl 

	Do    ' Tst für Vergleich auf gleiche Länge wie Nr anpassen 

	  If Len( Tst ) = Len( Nr ) Then Exit Do 

	  Tst = "0" & Tst 

	Loop 

 

	If "x" & Tst = "x" & Nr Then 

	  LogTxt = Replace( LogTxt, Tst & " :" & ": ", "" ) 

	  Nr = Int( Nr ) 

	End If 

  End If 

  If Nr = 999999 Then Nr = 0 

 

 

' Zwei Nachkommastellen (nach Sekunden) der aktuellen Zeit 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

  Tst = Timer()   				' timer() in USA: 1234.22 

  Tst = Replace( Tst, "," , ".")        	' timer() in Deutschland: 123454,12 

  If InStr( Tst, "." ) = 0 Then Tst = Tst & ".000" 

  Tst = Mid( Tst, InStr( Tst, "." ), 4 ) 

  If Len( Tst ) < 3 Then Tst = Tst & "0" 

 

' Zeitzone ermitteln - neu (v9.C) und immer richtig(er) 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

  Dim AktDMTF : Set AktDMTF = CreateObject("WbemScripting.SWbemDateTime") 

  AktDMTF.SetVarDate Now(), True : Tst = Tst & Mid( AktDMTF, 22 ) ' : MsgBox Tst, , "205 :: " 

' MsgBox "AktDMTF: '" & AktDMTF & "'", , "206 :: " 

  Set AktDMTF = nothing 

 

  LogTxt = "<![LOG[" & LogTxt & "]LOG]!>" 

  LogTxt = LogTxt & "<" 

  LogTxt = LogTxt & "time=""" & Hour( Time() ) & ":" & Minute( Time() ) & ":" & Second( Time() ) & Tst & """ " 

  LogTxt = LogTxt & "date=""" & Month( Date() ) & "-" & Day( Date() ) & "-" & Year( Date() ) & """ " 

  LogTxt = LogTxt & "component=""" & TitelX & """ " 

  LogTxt = LogTxt & "context="""" " 

  LogTxt = LogTxt & "type=""" & ErrType & """ " 

  LogTxt = LogTxt & "thread=""" & Nr & """ " 

  LogTxt = LogTxt & "file=""dieseyer.de"" " 

  LogTxt = LogTxt & ">" 

 

			Tst = 8 ' LOG-Datei erweitern 

  If ErrType = 0 Then	Tst = 2 ' LOG-Datei erneuern (alte löschen, neue erstellen) 

 

	On Error Resume Next 

  If     LogTxt = vbCRLF Then fso.OpenTextFile( LogDateiX, Tst, true).WriteLine ( LogTxt ) 

  If not LogTxt = vbCRLF Then fso.OpenTextFile( LogDateiX, Tst, true).WriteLine ( LogTxt ) 

	On Error Goto 0 

 

  Set fso     = Nothing 

 

End Sub ' Trace32Log( LogTxt, ErrType )