er det muligt at kunne scripte sig til at Sun Jvm er deaktiveret i Internet exploreren f.eks en vbs fil eller noget
ved at man kan klikke på java plugin i kontrolpanelet og under applet tag support fjerne hakket fra ie ... men ville gerne kunne det fra en command-line
har fedtet et script sammen men syntes ikke rigtig det virker helt optimalt [code] Function JavaPluginPath() Dim WshShell, IEJava2Option, java2path, version Set WshShell = WScript.CreateObject("WScript.Shell") IEJava2Option="HKLM\SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_SUN\SELECT\RegPath" On Error Resume Next java2path = WshShell.RegRead(IEJava2Option) If Err.Number <> 0 Then ' if REG_PATH named-value does not exist JavaPluginPath = "0" Exit Function End If On Error GoTo 0 JavaPluginPath = java2path End Function
Function MSJVMVersion Dim msjavadll Dim fso, WshShell Set WshShell = WScript.CreateObject("WScript.Shell") msjavadll = WshShell.ExpandEnvironmentStrings("%WINDIR%\system32\msjava.dll") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(msjavadll) Then 'WScript.Echo fso.GetFileVersion(msjavadll) MSJVMVersion = "er installeret - version: " & fso.GetFileVersion(msjavadll) Else MSJVMVersion = "er ikke installeret- hent venligst 3810 fra IEDB siden" End If Set fso = nothing Set wshshell = nothing End Function
Dim objShell Set objShell = CreateObject("WScript.Shell") objShell.RegWrite "HKLM\" & JavaPluginPath() & "\UseJava2IExplorer", 0, "REG_SZ"
Function JavaPluginPath() Dim WshShell, IEJava2Option, java2path, version Set WshShell = WScript.CreateObject("WScript.Shell") IEJava2Option="HKLM\SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_SUN\SELECT\RegPath" On Error Resume Next java2path = WshShell.RegRead(IEJava2Option) If Err.Number <> 0 Then ' if REG_PATH named-value does not exist JavaPluginPath = "0" Exit Function End If On Error GoTo 0 JavaPluginPath = java2path End Function
Function MSJVMVersion Dim msjavadll Dim fso, WshShell Set WshShell = WScript.CreateObject("WScript.Shell") msjavadll = WshShell.ExpandEnvironmentStrings("%WINDIR%\system32\msjava.dll") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(msjavadll) Then 'WScript.Echo fso.GetFileVersion(msjavadll) MSJVMVersion = "er installeret - version: " & fso.GetFileVersion(msjavadll) Else MSJVMVersion = "er ikke installeret- hent venligst 3810 fra IEDB siden" End If Set fso = nothing Set wshshell = nothing End Function
Dim objShell Set objShell = CreateObject("WScript.Shell") objShell.RegWrite "HKLM\" & JavaPluginPath() & "\UseJava2IExplorer", "dword:00000000", "REG_SZ"
bare helt iorden :) ovenstående virker glimrende til mit behov :)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.