Versionsnummer und Installationsdatum eines Dienstes

Szabi_123

Hallo,
ist es möglich, die Versionsnummer und und oder das Installationsdatum eines Dienstes per AutoIT auslesen zu können?
Falls ja,
wie müsste ich das in folgendem Script hinzufügen, sodass er weiterhin den Namen und den Pfad in einer .txt-Datei ausgibt, jedoch (falls eben möglich) auch die Versionsnummer und das Installationsdatum mit in diser .txt-Datei ausgibt?

_GetService('"Beispiel"')
_GetService('"Beispiel"')
Func _GetService($ServiceName)
Local $Services = ObjGet('winmgmts:\root\cimv2').ExecQuery('SELECT * FROM Win32_Service WHERE Name="' & $ServiceName & '"')
For $Service In $Services
If Not FileExists("C:\LCS") Then DirCreate("C:\LCS")
FileWrite("C:\LCS\lw-Dienste.txt", $Service.Name & @CRLF & $Service.PathName & @CRLF & $Service.Version & @CRLF )
Next
EndFunc

Vielen Dank schonmal im vorraus

MfG
Szabi

n00b-it

Schau dir die Klasse mal genauer an. Da sollte alles sein was du brauchst. >> Win32_Service <<

n00b-it

Vielleicht kannst du das ja für dich passend umbauen

Spoiler anzeigen

AutoIt

#cs ----------------------------------------------------------------------------
	AutoIt Version: 3.3.14.2
	Author:         Philip G.
	Date:			 2016-09-20
	Script Function:
	Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
_GetServiceDetails("SERVICE-NAME")
Func _GetServiceDetails($sServiceName)
	Local $Output
	ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sServiceName = ' & $sServiceName & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
	$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
	$colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_Service WHERE Name="' & $sServiceName & '"', "WQL", 0x10 + 0x20)
	If IsObj($colItems) Then
		For $objItem In $colItems
			$Output = $Output & "AcceptPause: " & $objItem.AcceptPause & @CRLF
			$Output = $Output & "AcceptStop: " & $objItem.AcceptStop & @CRLF
			$Output = $Output & "Caption: " & $objItem.Caption & @CRLF
			$Output = $Output & "CheckPoint: " & $objItem.CheckPoint & @CRLF
			$Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF
			$Output = $Output & "DelayedAutoStart: " & $objItem.DelayedAutoStart & @CRLF
			$Output = $Output & "Description: " & $objItem.Description & @CRLF
			$Output = $Output & "DesktopInteract: " & $objItem.DesktopInteract & @CRLF
			$Output = $Output & "DisplayName: " & $objItem.DisplayName & @CRLF
			$Output = $Output & "ErrorControl: " & $objItem.ErrorControl & @CRLF
			$Output = $Output & "ExitCode: " & $objItem.ExitCode & @CRLF
			$Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
			$Output = $Output & "Name: " & $objItem.Name & @CRLF
			$Output = $Output & "PathName: " & $objItem.PathName & @CRLF
			$Output = $Output & "ProcessId: " & $objItem.ProcessId & @CRLF
			$Output = $Output & "ServiceSpecificExitCode: " & $objItem.ServiceSpecificExitCode & @CRLF
			$Output = $Output & "ServiceType: " & $objItem.ServiceType & @CRLF
			$Output = $Output & "Started: " & $objItem.Started & @CRLF
			$Output = $Output & "StartMode: " & $objItem.StartMode & @CRLF
			$Output = $Output & "StartName: " & $objItem.StartName & @CRLF
			$Output = $Output & "State: " & $objItem.State & @CRLF
			$Output = $Output & "Status: " & $objItem.Status & @CRLF
			$Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
			$Output = $Output & "SystemName: " & $objItem.SystemName & @CRLF
			$Output = $Output & "TagId: " & $objItem.TagId & @CRLF
			$Output = $Output & "WaitHint: " & $objItem.WaitHint & @CRLF
			MsgBox(0, "", $Output)
		Next
	EndIf
EndFunc
Func WMIDateStringToDate($dtmDate)
	Return (StringMid($dtmDate, 5, 2) & "/" & StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc   ;==>WMIDateStringToDate

Alles anzeigen

Bei groben Schnitzern durft ihr mich gerne auf den richtigen Weg bringen