×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Security, hacker detection & forensics FAQ

Installation

Sophos install doesn't auto remove Symantec Corporate Edition 11.x by mragain
Posted: 31 Jul 09

Created a vbscript file to do the uninstallation of symantec and the install Sophos.  Thought it would be a good idea to share.

dim fso,fs1,subss

Set ws = WScript.CreateObject ("WScript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")

if fso.FolderExists("C:\Documents and Settings\All Users\Application Data\Symantec\Cached Installs") Then
  set fs1 = fso.GetFolder("C:\Documents and Settings\All Users\Application Data\Symantec\Cached Installs")
  set subss = fs1.SubFolders
End if


If fso.FileExists("c:\program files\symantec\symevent.sys") Then
  for each objSubFolder In subss
    ws.Run "msiexec.exe /x " & objSubfolder.Name & " /q /norestart",1,True
  Next
Else
    if fso.FileExists("c:\program files\symantec\liveupdate\lsetup.exe") Then
      ws.Run "c:\progra~1\symantec\Liveupdate\lsetup.exe /U /q",q,True
    else
    End if  
End if

Set net0 = wscript.CreateObject ("WScript.Network")

struser = "EMLibUser1"   'Update Server username
strPass = "mysecurepassword"       'Update Server password for given username
driveletter = "r:"       'Drive letter to use when mapping to server for sophos install

if fso.DriveExists(driveletter) then
  net0.RemoveNetworkDrive driveletter
End if

net0.MapNetworkDrive driveletter,"\\sophos.server.com\Interchk",false,struser,strPass

ws.Run driveletter & "\esxp\setup.exe -user " & struser & " -pwd " & strPass & " -mng yes -updp \\sophos.server.com\Interchk\ESXP",1,True

net0.RemoveNetworkDrive driveletter

set net0 = Nothing
Set ws = Nothing
Set fso = Nothing
Set fs1 = Nothing

 

Back to Security, hacker detection & forensics FAQ Index
Back to Security, hacker detection & forensics Forum

My Archive

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close