Opsi Client: Installierte Produkte auf Installed setzen.

[JanK]

Hallo zusammen,
leider sind bei uns einige Clients aus opsi verschwunden.
Ein Backup haben wir natürlich auch nicht, da es eine neue Instanz ist, welche noch nicht so lange läuft.
Nun installieren wir den opsi Agent über die Clients. Dann erscheinen sie jedoch ohne schon installierte Produkte im opsi, obwohl es die Client ja schonmal gab.
Gibt es eine Möglichkeit auf dem Client auszulesen, welche Produkte installiert sind und diese automatisch auf installed zu setzen z.B. per Skript oder ähnliches.

Gruß JanK

[Jan.Schmidt]

Hi,

das wird extrem kompliziert, wenn du kein Backup hast.
(Hoffen, dass die Clients das log der installation noch haben und was daraus zimmern)

Dann fehlt in deiner gedachten 2to Liste ein gravierender Punkt...

Es ist egal, welches Produkt im OPSI auf installed gesetzt wird!!!!

Wenn Du nicht auch die Version des Setups hast, das da installiert wurde, dann kannst du auch kein setup where outdated durchführen.

Dann die Frage sind das DEINE Pakete, oder fremde?

Bei deinen Paketen könntest du vorher ne Abfrage machen ist in pfad x oder regkey y dieses und oder jenes - passt die ausgelesene Version zu paket yxz, wenn ja gehe nicht zum Punkt install sondern exit /b 0 und tschüss und dann überdiese Pakete ein setop wherenotinstalled drüberjagen.

[JanK]

Guten Morgen,

ich benutze zu 99 % eigene Pakete.
Also könnte ich theoretisch ein Skript bauen, welche z.B. Abfragt Produkt X hat folgende MSI ID und es wird geprüft, ob diese vorhanden ist.
Falls vorhanden, wird das Produkt auf setup gesetzt.

Kann ich das dann für mehrere Produkte in ein Skript machen, also die Abfrage?

Danke für die Hilfe!
Gruß Jan

[Jan.Schmidt]

Kann ich das dann für mehrere Produkte in ein Skript machen, also die Abfrage?

Da bin ich überfragt

ich meine sowas (pro Produkt|Paket):

fileversion.vbs, die vorgher in c:\opsi.org\tmp\ kopiert wurde

Code: Alles auswählen

'fileversion.vbs
Set FSO=CreateObject("Scripting.FileSystemObject")  
If Wscript.Arguments.Count > 0 then
    sFullFileName = Wscript.Arguments(0)
End if  
If FSO.FileExists(sFullFileName) Then
    Set objFolder = CreateObject("Shell.Application").Namespace(FSO.GetParentFolderName(sFullFileName))  
    Set objFolderItem = objFolder.ParseName(FSO.GetFileName(sFullFileName))
    WScript.Echo objFolderItem.ExtendedProperty("productversion")  
End If

Code: Alles auswählen

[DosInAnIcon_batch]
reg query HKLM\SOFTWARE\Microsoft\VisualStudio || goto install_vc

for /f "tokens=2 delims=v" %%a in ('reg query HKLM\SOFTWARE\Microsoft\VisualStudio /s ^|findstr "Version"') do set installed=%%a
if "%installed%" == "" goto install_vc

for /f "tokens=1-3 delims=." %%a in ('echo %installed%') do set installed=%%a %%b %%c
set installed=%installed: =%

for /f %%a in ('cscript /nologo c:\opsi.org\tmp\fileversion.vbs "c:\opsi.org\tmp\VC_redist.x64.exe"') do set installer=%%a
for /f "tokens=1-3 delims=." %%a in ('echo %installer%') do set installer=%%a %%b %%c
set installer=%installer: =%

if %installer% leq %installed% goto eof

:install_vc
start "vc_redist.x86" /wait c:\opsi.org\tmp\vc_redist.x86.exe /install /quiet /norestart
start "vc_redist_64" /wait c:\opsi.org\tmp\vc_redist.x64.exe /install /quiet /norestart

:eof

In dem Beispiel ist das absichlich krumm geschrieben, denn es gibt VC restist, die mit .00 enden und welche die mit .0 enden und damit sind die Versionen mit mehr ziffern immer höher deswegen werfe ich alles nach dem 3. punkt in die Tonne.

[SisterOfMercy]

Why not run something like swinvent?