itech

' copySet fso = CreateObject("Scripting.FileSystemObject")Set aFile = fso.CreateTextFile(".\output.dat", True)aFile.WriteLine("1234")Set aFile = fso.GetFile(".\output.dat")aFile.Copy("./output.bak")' alternatefso.CopyFile "c:\mydir\*.*", "d:\backup\",TRUE' copy folderfso.CopyFolder "c:\mydir\*", "D:\backup\mydir\",TRUE ' deleteSet fso = CreateObject("Scripting.FileSystemObject")Set aFile = fso.GetFile(".\output.dat")aFile.Delete ' move or renameSet fso = CreateObject("Scripting.FileSystemObject")Set aFile = fso.CreateTextFile(".\output.dat", True)aFile.WriteLine("1234")Set aFile = fso.GetFile(".\output.dat")aFile.Move ".\output.ok"

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 \\ServerA /set /y",0,TRUE set wshell = Nothing ServerA Active directory domain controller dır.