none
FCS no se instalar en WIndows XP RRS feed

  • Pregunta

  • Hola a todos e instalador el servidor Forefront, y al parecer otod esta norma ya que no me dio ningun mensaje de error, tambien instale el srvicio de distribucion en el servidor WSUS, pero los clientes no se despliegan de manera automatica a las estaciones.

    He intentado instalar manualmente pero en estaciones con XP no lo instala, pero en servidores win2003 si funciona.


    Grover Vásquez
    miércoles, 23 de junio de 2010 13:48

Respuestas

  • Hola Grover,

    Muchas gracias por tu feedback!

    En mi caso, he utilizado un script de inicio para instalar FCS en las estaciones de trabajo cliente. Puede ver los detalles script aquí:

    Option Explicit
     
    const HKEY_LOCAL_MACHINE = &H80000002
    Dim FProductName, FProductKey, Msg, MsgBoxStyle, RegKey

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    sub GetFCSKey()
     
    dim oReg, sPath, aKeys, sName, sKey
    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
     
    sPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    oReg.EnumKey HKEY_LOCAL_MACHINE, sPath, aKeys
     
    For Each sKey in aKeys
            oReg.GetStringValue HKEY_LOCAL_MACHINE, sPath & "\" & sKey, "DisplayName", sName
            If Not IsNull(sName) Then
                   if (sName = "Microsoft Forefront Client Security Antimalware Service") then
                           FProductKey = sKey
                           FProductName = sName
                   end if
            end if
    Next
     
    end sub

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    sub InstallFCS()
    dim objwshShell, sComputerName, x86InstallLocation, x64InstallLocation, InstallationPath, LogsPath, Proc, intFCS, sInstallCommand
    Set objWshShell = WScript.CreateObject("WScript.Shell")
    sComputerName = objWshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
    x86InstallLocation = "\\nombre.de.tu.servidor.local\X86\CLIENTSETUP.EXE /CG DPFCS /MS nombre.de.tu.servidor.local"
    x64InstallLocation = "\\nombre.de.tu.servidor.local\X64\CLIENTSETUP.EXE /CG DPFCS /MS nombre.de.tu.servidor.local"
    InstallationPath = "C:\Program Files\Forefront Client Security"
    LogsPath = "C:\Program Files\Forefront Client Security\Logs"

    Proc = objWshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

     If Proc = "x86" Then
      sInstallCommand = x86InstallLocation & " /I " & Chr(34) & InstallationPath & Chr(34) & " /L " & Chr(34) & LogsPath & Chr(34)
     Else
      sInstallCommand = x64InstallLocation & " /I " & Chr(34) & InstallationPath & Chr(34) & " /L " & Chr(34) & LogsPath & Chr(34)
     End If

    intFCS = objWshShell.Run(sInstallCommand, 0, TRUE)
    'Wscript.echo "Before GPUpdate"
    objwshShell.Run "C:\WINDOWS\system32\gpupdate.exe /force"
    'Wscript.echo "After GPUpdate"
    end sub

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


    FProductKey = ""
    FProductName = ""


    call GetFCSKey()
     if (FProductKey = "" ) then
      'Msg=MsgBox ("Installing Microsoft ForeFront Clinet Software", 0, "IT Services")
             call InstallFCS()
     end if

     

    ---------------------------

    Un saludo,


    Átilla Arruda - Microsoft Corporation
    Blog: http://www.atillaarruda.com.br/
    viernes, 25 de junio de 2010 18:14
    Moderador

Todas las respuestas

  • Hola Grover,

    Qué tal? Espero que todo vaya bien :)

    Forefront Client Security ha sido diseñado para Windows 2000 y Windows XP también. Pero, cuál es la versión de tu service pack en tu Windows XP? Microsoft Forefront Client Security está diseñado para proteger Windows XP Service Pack 2 o 3. Podría usted confirmar si su Windows XP está utilizando esta versión del Service Pack?

    Bueno, nosotros estamos a su disposición para cualquier duda, ok? Estoy seguro de que será un gran placer ayudarle!

    Un saludo,


    Átilla Arruda - Microsoft Corporation
    Blog: http://www.atillaarruda.com.br/
    jueves, 24 de junio de 2010 12:38
    Moderador
  • Actualmente tenemos XP con XP3, ahora estuve haciendo unas pruebas, y en una Pc recien formateada se instala de forma manual con exito, pero a lo mejor en otras que tengan otro antivirus no deja instala ni de forma manual.

    Pero como hago el despliegue automático ya que hacero manual requiere mucho tiempo por la cantidad de estaciones que tenemos.

     


    Grover Vásquez
    viernes, 25 de junio de 2010 17:40
  • Hola Grover,

    Muchas gracias por tu feedback!

    En mi caso, he utilizado un script de inicio para instalar FCS en las estaciones de trabajo cliente. Puede ver los detalles script aquí:

    Option Explicit
     
    const HKEY_LOCAL_MACHINE = &H80000002
    Dim FProductName, FProductKey, Msg, MsgBoxStyle, RegKey

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    sub GetFCSKey()
     
    dim oReg, sPath, aKeys, sName, sKey
    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
     
    sPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    oReg.EnumKey HKEY_LOCAL_MACHINE, sPath, aKeys
     
    For Each sKey in aKeys
            oReg.GetStringValue HKEY_LOCAL_MACHINE, sPath & "\" & sKey, "DisplayName", sName
            If Not IsNull(sName) Then
                   if (sName = "Microsoft Forefront Client Security Antimalware Service") then
                           FProductKey = sKey
                           FProductName = sName
                   end if
            end if
    Next
     
    end sub

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    sub InstallFCS()
    dim objwshShell, sComputerName, x86InstallLocation, x64InstallLocation, InstallationPath, LogsPath, Proc, intFCS, sInstallCommand
    Set objWshShell = WScript.CreateObject("WScript.Shell")
    sComputerName = objWshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
    x86InstallLocation = "\\nombre.de.tu.servidor.local\X86\CLIENTSETUP.EXE /CG DPFCS /MS nombre.de.tu.servidor.local"
    x64InstallLocation = "\\nombre.de.tu.servidor.local\X64\CLIENTSETUP.EXE /CG DPFCS /MS nombre.de.tu.servidor.local"
    InstallationPath = "C:\Program Files\Forefront Client Security"
    LogsPath = "C:\Program Files\Forefront Client Security\Logs"

    Proc = objWshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")

     If Proc = "x86" Then
      sInstallCommand = x86InstallLocation & " /I " & Chr(34) & InstallationPath & Chr(34) & " /L " & Chr(34) & LogsPath & Chr(34)
     Else
      sInstallCommand = x64InstallLocation & " /I " & Chr(34) & InstallationPath & Chr(34) & " /L " & Chr(34) & LogsPath & Chr(34)
     End If

    intFCS = objWshShell.Run(sInstallCommand, 0, TRUE)
    'Wscript.echo "Before GPUpdate"
    objwshShell.Run "C:\WINDOWS\system32\gpupdate.exe /force"
    'Wscript.echo "After GPUpdate"
    end sub

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


    FProductKey = ""
    FProductName = ""


    call GetFCSKey()
     if (FProductKey = "" ) then
      'Msg=MsgBox ("Installing Microsoft ForeFront Clinet Software", 0, "IT Services")
             call InstallFCS()
     end if

     

    ---------------------------

    Un saludo,


    Átilla Arruda - Microsoft Corporation
    Blog: http://www.atillaarruda.com.br/
    viernes, 25 de junio de 2010 18:14
    Moderador