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
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-ID: 394167
Url: https://administrator.de/contentid/394167
Printed on: December 2, 2024 at 14:12 o'clock
5 Comments
Latest comment