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.