• 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Script pour la désinstallation de OCS 2.0 et l'installation de Fusion
#1
Bonjour!

Voici le script que j'ai modifié à partir de celui du site pour la désinstallation de OCS 2 avec son service et procéder à l'installation de Fusion. Vous devez ajouter l'exécutable de Fusion dans le même répertoire et modifier le chemin /server= et le numéro de version pour ceux correspondants à votre installation dans l'entête du script.

Deux choses : la version 64bit n'est pas supporté par ce script, et dans mon cas OCS était dans le dossier "Program Files\OCS\". Comme le script est très simple, je vous suggère d'en faire une lecture rapide avant son implantation pour modifier ce qui doit l'être selon vos besoins.


Code:
'---------------------Variables--------------------------------------------------
versionverification = "2.1.8_rc1-1"
fusionarguments = "/S /server=http://glpi.votreserveur.com/glpi/plugins/fusioninventory/front/communication.php /rpc-trust-localhost /runnow"
'---------------------modifier glpi.votreserveur.com pour le bon chemin----------

fusionsetupfile = "fusionagent.exe"
uninstallocsagent = "yes"
strComputer = "."
'---------------------------------------------------------------------------------

Set WshShell = Wscript.CreateObject("Wscript.shell")


'-------------------------------------------------------------
' Regarde si Fusion est installé ou si la version n'est pas bonne
On Error Resume Next
Fusion = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\FusionInventory Agent\DisplayVersion")
If err.number <> 0 Then
  

    WshShell.Run "CMD.EXE /C net stop ""OCS INVENTORY""",0,True
    

    WshShell.Run "CMD.EXE /C ""%ProgramFiles%\OCS\uninst.exe"" /S /Q",0,True
    WshShell.Run "CMD.EXE /C ""%ProgramFiles%\OCS Inventory Agent\uninst.exe"" /S /Q",0,True

    WshShell.Run "CMD.EXE /C """ & OCS & """ /S /NOSPLASH",0,True

    WshShell.Run "CMD.EXE /C rmdir ""%ProgramFiles%\OCS Inventory Agent"" /S /Q",0,True
    WshShell.Run "CMD.EXE /C rmdir ""%ProgramFiles%\OCS"" /S /Q",0,True

    WshShell.Run "CMD.EXE /C rmdir ""%SystemDrive%\ocs-ng"" /S /Q",0,True


    '-----------Supression des services--------------------------
    
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
        
        
    Set colListOfServices = objWMIService.ExecQuery _
        ("Select * from Win32_Service Where Name = 'OCS INVENTORY'")

    For Each objService in colListOfServices
        objService.StopService()
        objService.Delete()
    Next


    '-----------Installation de fusion--------------------------
    If Fusion <> versionverification Then
  
        WshShell.Run "CMD.EXE /C """ & fusionsetupfile & """ " & fusionarguments,0,True

    End If
    
End if
  Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)