Principales respuestas
FCS no se instalar en WIndows XP

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
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 IfintFCS = 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/- Marcado como respuesta Atilla ArrudaModerator martes, 29 de junio de 2010 12:34
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/ -
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 -
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 IfintFCS = 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/- Marcado como respuesta Atilla ArrudaModerator martes, 29 de junio de 2010 12:34