Java via Loginscript deinstallieren

Hallo zusammen,

da Java ab nächstem Jahr Lizenzpflichtig wird, möchte ich in einer Windows Domaine alle Java Versionen von den Clients entfernen.
Ich hab bereits ein VBScript gebaut, wo ich mir den package - code aus der Registry auslese für Java und dann über die msiexe deinstalliere.

Leider funktioniert das ganze nicht so zuverlässig.
Hat jemand von euch damit schon Erfahrung, mit diesem Thema?

Gruß
Christian

If Not WScript.Arguments.Named.Exists("elevate") Then  
  CreateObject("Shell.Application").ShellExecute WScript.FullName _  
    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1  
  WScript.Quit
End If

On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
const DontWaitUntilFinished = false, ShowWindow = 1, DontShowWindow = 0, WaitUntilFinished = true
Set WSHShell = CreateObject("WScript.Shell")  
Set oShell = WScript.CreateObject("WScript.Shell")  
Set fsoLog = createObject("Scripting.FileSystemObject")  
Set logFile = fsoLog.openTextFile(javas.log", 8, true)  

Set objNet = CreateObject("WScript.Network")  
strCompName = objNet.ComputerName



strComputer = "."  


Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _  
    strComputer & "\root\default:StdRegProv")  

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"  
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys


For Each subkey In arrSubKeys
	value = WSHShell.RegRead( "HKEY_LOCAL_MACHINE" & "\" & strKeyPath & "\" & subkey & "\" & "DisplayName" )  
	If InStr(value, "Java") Then  
		UninstallValue = WSHShell.RegRead( "HKEY_LOCAL_MACHINE" & "\" & strKeyPath & "\" & subkey & "\" & "UninstallString" )  
		command = "cmd /c start /wait " & UninstallValue & " /qn /norestart"  
		'WScript.Echo command, DontShowWindow, WaitUntilFinished  
		oShell.Run command, DontShowWindow, WaitUntilFinished
	End If
Next

For Each subkey In arrSubKeys
	Checkvalue = WSHShell.RegRead( "HKEY_LOCAL_MACHINE" & "\" & strKeyPath & "\" & subkey & "\" & "DisplayName" )  
	If InStr(Checkvalue, "Java") Then  
		logFile.writeLine strCompName & ";ERROR;more Java found;" & command  
		WScript.Echo strCompName & ";ERROR;more Java found;" & command  
		Else
		logFile.writeLine strCompName & ";OK;Unistall no Java found;" & command  
		WScript.Echo strCompName & ";OK;Unistall, no Java found;" & command  
		WScript.Quit
	End If
Next

Please also mark the comments that contributed to the solution of the article

Content-Key: 394167

Url: https://administrator.de/contentid/394167

Printed on: April 25, 2024 at 06:04 o'clock

5 Comments

Latest comment

Moin,

haben denn die User das Recht Software zu deinstallieren?

lg,
Slainte

Moin,

ja dafür hab ich extra die Prüfung eingebaut, bzw. via Startup oder Shutdown Script getestet. Da sollten ja Systemrechte vorhanden sein.

Gruß

Moin.

Ich nehm' dafür nen WMI-Call:

wmic product where "Name like '%%JAVA%%'" call uninstall  

Das putzt alles, was irgendwie JAVA heisst, vom Rechner - benötigt aber entsprechende Rechte, als normaler User keine Chance.

Cheers,
jsysde

Hallo jsysde,

werde das gleich mal testen. Ich melde mich mit dem Ergebniss.

Gruß

Hallo,

hab es nun mit folgendem Script gelöst:

If Not WScript.Arguments.Named.Exists("elevate") Then  
  CreateObject("Shell.Application").ShellExecute WScript.FullName _  
    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1  
  WScript.Quit
End If
On Error Resume Next
const DontWaitUntilFinished = false, ShowWindow = 1, DontShowWindow = 0, WaitUntilFinished = true
Set WSHShell = CreateObject("WScript.Shell")  
Set oShell = WScript.CreateObject("WScript.Shell")  
Set fsoLog = createObject("Scripting.FileSystemObject")  
Set logFile = fsoLog.openTextFile("javas.log", 8, true)  


Set Shell = CreateObject("WScript.Shell")  
	if Instance = "Java" then  
		Shell.Run "taskkill /F /IM java.exe",0,true  
		Shell.Run "taskkill /F /IM javaw.exe",0,true 'java without console  
		Shell.Run "taskkill /F /IM jp2launcher.exe",0,true  
		Shell.Run "taskkill /F /IM jqs.exe",0,true  'java quick starter  
		Shell.Run "taskkill /F /IM justed.exe",0,true ' java update  
	else
		Shell.Run  "taskkill /F /IM " & Instance,0,true  
	end if
Set Shell = Nothing

Set Shell = WScript.CreateObject("WScript.Shell")  
Shell.Run "taskkill /F /IM iexplore.exe",0,true  
Shell.Run "taskkill /F /IM firefox.exe",0,true  
Shell.Run "taskkill /F /IM chrome.exe",0,true  
Set Shell = Nothing


Set objNet = CreateObject("WScript.Network")  
strCompName = objNet.ComputerName

strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
Set colItems = objWMIService.ExecQuery( _
	"SELECT IdentifyingNumber FROM Win32_Product where Name Like '%%JAVA%%'",,48)  
	logFile.writeLine strCompName & ";START;"  
	
For Each objItem in colItems
	If objItem.Name = " " Then  
		logFile.writeLine strCompName & ";NO JAVA;"  
	Else
		Wscript.Echo "Folgende Installation gefunden, " & objItem.Name &" "& objItem.IdentifyingNumber  
		command = "cmd /c start /W MsiExec.exe /x " & objItem.IdentifyingNumber & " /qn /norestart"  
		Wscript.Echo command
		oShell.Run command, DontShowWindow, WaitUntilFinished
		logFile.writeLine strCompName & ";UNINST;"& objItem.Name & ";" & objItem.IdentifyingNumber	  
	End If
Next


Set checkcolItems = objWMIService.ExecQuery( _
	"SELECT IdentifyingNumber FROM Win32_Product where Name Like '%%JAVA%%'",,48)  
For Each checkobjItem in checkcolItems
	If checkobjItem.Name = " " Then  
		logFile.writeLine strCompName & ";OK;"  
	Else
		logFile.writeLine strCompName & ";ERROR;"& checkobjItem.Name & ";" & checkobjItem.IdentifyingNumber	  
	End If
Next
logFile.writeLine strCompName & ";END;"  

German solved Question Windows User Management Microsoft

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments

Wireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments