Norton Antivirus Corparate Editiona çökmüş Norton Server Client'ları nasıl aktarılır ?

Norton Antivirüs serverım ( 9.0 versiyon )göçtü ve yenisini kurdum fakat uzakdan remote client install ile yukleme yapmama rağmen clientlar server olarak hala göçen makineyi görmekteler. 100 civarında makineden uninstall yapıp install yapmak zaman alacağından farklı çözüm arayışına gittim ve aşağıdaki çözümü buldum ;

Yeni kurulan Antivirüs server'ın vphome paylaşımındaki grc.dat isimli dosyayı client'ın
C:\Documents and Settings\All Users\Application Data\Symantec\Symantec AntiVirus Corporate Edition\7.5\ dizini altına grc.dat olarak kopyalıyoruz.

Bilgisayarı kapatıp açtıkdan sonra client yeni server'a taşınmış oluyor.Ayrıca dosya da otomatik olarak oradan siliniyor. Eğer çok fazla pc varsa group policy'den script olarak başlangıca koyabilirsiniz.

Powered by ScribeFire.

Script ile sistem saatini değiştirme

VBS dosyasının içine aşağıdaki kodu yazıyoruz;

Dim wshell
Set wshell = CreateObject("WScript.Shell")
wshell.Run "%COMSPEC% /c net time \\neptun /set /y",0,TRUE
set wshell = Nothing


Neptun Active directory domain controller dır.

Powered by ScribeFire.

Script ile Dosya silme, taşıma, kopyalama

' copy
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.CreateTextFile(".\output.dat", True)
aFile.WriteLine("1234")
Set aFile = fso.GetFile(".\output.dat")
aFile.Copy("./output.bak")

' alternate
fso.CopyFile "c:\mydir\*.*", "d:\backup\",TRUE

' copy folder
fso.CopyFolder "c:\mydir\*", "D:\backup\mydir\",TRUE

' delete
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.GetFile(".\output.dat")
aFile.Delete

' move or rename
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.CreateTextFile(".\output.dat", True)
aFile.WriteLine("1234")
Set aFile = fso.GetFile(".\output.dat")
aFile.Move ".\output.ok"

Powered by ScribeFire.

Networkdeki paylaşımı toplu işlem ve script ile map etme

scriptle map etmek için, once vbs uzantılı bi dosya oluşturup içine aşağıdakileri yazıyoruz;

Dim Network
Set Network = CreateObject("Wscript.network")

Network.MapNetworkDrive "l:", "\\Tms\logo"
Network.MapNetworkDrive "p:","\\tms\pdks_pro"

batch file ile maplemek içini once bat uzantılı dosya oluşturup içine aşağıdakileri yazıyoruz;

net use l: \\tms\logo /user:pc logopdz
rem net use p: \\tms\pdks_pro /user:pc logopdz

İsterse bu dosyaları group policy de logon script ile dağıtabiliriz.

Powered by ScribeFire.