Beranda > Ajax, Apache, Asp.net, Batch, Blog, C++, CSS, Delphi, Html, JQuery, MySQL, PHP, Programming, Vb.Net, VbScript > Cara Membuat Program Pencari Scripting.FileSystemObject , Wscript , Network DI Registry Editor Dengan VBscript

Cara Membuat Program Pencari Scripting.FileSystemObject , Wscript , Network DI Registry Editor Dengan VBscript

28/12/2010

Buka Notepad Anda
Copy Paste Code Di Bawah Ini …………

set registry = CreateObject(“regtool.tob”)
set dict = CreateObject(“Scripting.Dictionary”)
set allkeys = registry.RegEnum(“HKCR\”)
for each key in allkeys
pos = Instr(2. key, “.”)
if pos>0 then
pos2 = Instr(2. key, “.”)
if pos2>0 then
idependent = left(key, pos2-1)
if ot dict.Exists(independent) then
dict.Add key 0
end if
else
vdpid = “”
for each element in dict
if len(element)>len(key) then
if left(element, len(key)+1)=key & “.” then
vdpid = element
exit for
end if
end if
next

if vdpid=”” then
dict.add key, 0
else
dict.Remove vdpid
dict.add key, 0
end if
end if
end if
next
MsgBox dict.Count & ” Objects found!”
for each key in dict
list = list & key & vbCr
next
MsgBox

Simpan Dengan Format .Vbs
Contoh : Search Wscript.vbs

PESAN : Script Ini Membutuhkan Program Regtool.tob
Jika Belum Punya Silahkan Download Di http://www.filewatcher.com/m/regtool.ocx.22528.0.0.html Atau Download Di http://www.fi.com/

%d blogger menyukai ini: