Kamis, 27 Mei 2010

mengubah password windows dengan vbs

komputer kantor kamu dikerjain orang terus passwordnya diganti dan singkat cerita kamu enggak bisa login dan mau diremove passwordnya ga ada cd hirent jangan takut ada solusinya untuk mendapatkan lagi account mu semudah mengedipkan mata...

1.pinjem komputer teman yang satu jaringan dengan komputer kamu

2.dikomputer yang kamu pinjam harus di account administrator

3.buka notepad dan copykan script dibawah ini lalu simpan dengan nama yang dinginkan contoh gantipasword.vbs tapi sebelum disave jangan lupa ganti save as type text documents dengan all files

Rabu, 05 Mei 2010

cara mengembalikan registry yang rusak

biar kenyang nih aq kasih lagi script vbs yang bisa benerin registry rusakkarna virus ganas atau yang rusak karna kesalahan anda sendiri,heeee.
so kalau ada cara kenapa mesti install ulang,berikut caranya :

1. buka notepad dan copykan script dibawah ini ;


Set WshShell = WScript.CreateObject("WScript.Shell")
With WScript.CreateObject("WScript.Shell")

On Error Resume Next

.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
.RegDelete "HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD"
.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr"

End With

Mybox = MsgBox(jobfunc & enab & vbCR & "Restorasi Berhasil datang kembali ke http://tokoaslionline.blogspot.com/!", 4096, t)


2. simpan terserah dengan nama yang anda inginkan dengan catatan dibelakang nama yang anda berikan itu ditambahkan ekstensi berikut .vbs

3. dan untuk save as type nya pilih all files

4. lalu save

cara pemakainan tinggak klik aja 2x ok :)

semua tutorial yang dibuat diblog ini sudah dilakukan pengujian dan 100% berhasil,jika ingin mengcopy artikel ini keblog anda sertakan alamat blog ini

tinggal klik menu run, Registry, Cmd, Find dan Hidden folder langsung aktif

ga perlu ribet nih aq kasih script vbsnya tinggal klik maka yang tertutup-tutup jadi terbuka semua dan yang pasti aman dan nyaman, dari pada entar ngelantur ngomongnya berikut caranya :

1. buka notepad lalu copykan dan pastekan kode dibawah ini :

admin



On error resume next
Dim Reg
Set Reg = CreateObject("WScript.Shell")


if msgbox("Kembalikan menu Run ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "0", "REG_DWORD"
end if

if msgbox("Enable Registry Tool ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD"
end if

if msgbox("Perlihatkan file hidden" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden", "1", "REG_DWORD"
end if

if msgbox("Kembalikan menu Find" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "0", "REG_DWORD"
end if

if msgbox("Kembalikan menu Option" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "0", "REG_DWORD"
end if

if msgbox("Enable Taskmanager" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "0", "REG_DWORD"
end if

if msgbox("jangan lupa kunjungi lagi tokoaslionline.blogspot.com" , VbOkCancel)= VbOK then

end if


2. simpan terserah dengan nama yang anda inginkan dengan catatan dibelakang nama yang anda berikan itu ditambahkan ekstensi berikut .vbs

3. dan untuk save as type nya pilih all files

4. lalu save

sudah saya uji loh dan berhasil
semua tutorial yang dibuat diblog ini sudah dilakukan pengujian dan 100% berhasil,jika ingin mengcopy artikel ini keblog anda sertakan alamat blog ini

Mau punya buku tamu seperti ini?
Klik di sini (Info Blog)
 

TOKO ASLI ONLINE. Copyright 2010