windows script

[reshine]

disini pasti rata2 pernah urusin net dsb... ada yang suka manfaatin script engine bawaan windows gak ? WSHScript yg berbasis VBScript ama JScript... aku dulu pernah pake... dan juga pernah iseng2 bikin banyak script (cuman sekarang gak tahu kemana)... ini mayan berguna... dari mulai manipulasi registry dll...

ini contoh yg dulu aku pernah buat... fungsinya buat hapus file di direktori tertentu yg dibuat setelah lewat x hari, juga cek subfolder yg ada di direktori itu dan kalau direktori kosong juga dihapus... dulu ini aku buat, diminta temen biar dia gampang di warnetnya buat hapus data-data user yg sesudah lewat 14 hari... jangan set maindir di folder program windows dan data penting yah... soalnya ini baca data created tar pada kena hapus lagi.... kalau ada yg lain yang punya share sini dong.......

Option Explicit
'Script ini untuk otomatis menghapus file dan/atau folder di folder tertentu
'file yang dihapus adalah yang dibuat lebih lama dari selang waktu tertentu
'folder yang dihapus adalah folder yang kosong
'Untuk menentukan setelah berapa lama file dibuat ditentukan oleh MaxDay
'Untuk menentukan direktori pengecekan ditentukan oleh MainDir
'File di MainDir juga akan terhapus namun bila MainDir kosong tidak akan dihapus
'Hati-hati menentukan MainDir, bila coba akses folder yang tidak ada akses maka akan ada error
'Script ini akan cek seluruh file dan folder dibawah MainDir, jadi berhati-hati dengan file penting
'Misalkan bila MainDIR di-set di Program files, bisa saja akan menghapus file-file dari program yang ada.
'Saya tidak bertanggung jawab atas segala kesalahan karena pemakaian script ini
'(c)Tedi Rachmadi, 5 Desember 2005


'Untuk mengitung selisih tanggal
Function selisihtgl(tgl)
selisihtgl = DateDiff("d", tgl, now)
End Function

'Untuk cek file dan hapus bila selisih melebihi konstanta MaxDay
Sub CekFile(Direktori)
Dim f, f1, fc, a, f2
set f = fso.getfolder(direktori)
set fc = f.files
for each f1 in fc
set f2 = fso.getfile(direktori & "" & f1.name)
a = f2.DateCreated
if (selisihtgl(a) > MaxDay OR f2.size = 0) Then
fso.deletefile(f2)
end if
next
End sub

'Untuk cek apakah ada subfolder atau tidak, bila ada dilakukan cek file
sub cekdirektori(direktori)
dim f, f1, sf, fs
set f = fso.getfolder(direktori)
set sf = f.subfolders
cekfile (direktori)
for each f1 in sf
fs = direktori & "" & f1.name
cekdirektori (fs)
next
if (f.size = 0 AND direktori <> MainDir ) Then
fso.DeleteFolder(direktori)
End IF
End Sub

'Program Utama
'Untuk merubah setelah berapa lama file akan dihapus rubah "MaxDay"
'Untuk merubah direktori utama pengecekan, rubah "MainDir"
dim fso, maxday, MainDir
Set fso = CreateObject("Scripting.FileSystemObject")
MaxDay = 14
MainDir = "D:\UserData"
cekdirektori(MainDir)

[appl3]

Kk bisa minta tolong scripts untuk copy file dari server ga?? misal aku mo copy file data.xls, data1.xls,data.doc dari server tapi filenya dalam satu folder data kantor, trus kalo bisa kebalikannya juga biar bisa copy satu dir ke semua client..:le3:: :le3:: :le3:: :le3:: :le3:: ::