Bir tıkla bazı windows bileşenlerine ulaşalım


Windows bileşenlerine ulaşalım vbs

Eğer Bilgisyar teknik servisliği yaptınızssa şunu farketmişsinizdir eğer kullanıcı acemi ise işin en zor kısımlarından biri , karşıdaki kişiye mesela aygıt yöneticisini açtırtmak ve orada bir sarı ünlem

varmı diye kontrol ettirmektir , Aygıt yöneticisini örnek olarak verdim , kullanıcı yüksek olasılıkla verilen talimatların birinde hata yapar ve bende orası açılmıyor der ve aynı işlemleri yeni baştan anlatırsınız mesela kullanıcmızın windows 7 kullandığını varsayarsak :

– Sol köşedeki başlat butonuna tıklayalım
– Açılan ekranda Bilgisayarıma sağ tıklayıp özellikler diyelim (kullnıcı yüksek ihtimalle bilgisyarım nerde diyecektir)
– Sol tarafta bulunan gelişimşi sistem ayarlarına tıklayalım
– Açılan sistem özellikleri penceresinde donanım Tabına tıklayalım
– ve son olarak aygıt yöneticisi butonuna tıklayalım

BU şeklde bir izahat cidden yıpratıcıdır ve kullanıcının hata yapma olasılığını arttırır iş uzar , sizin sinirleriniz gerilir… sıkıntılı bir durum halbuki vbs ile hazırlanmış küçük bir scriptle tıklar tıklamaz Aygıt ymneticisini açtırtsak bukadar külfete gerek kalmayacak bu yazı konumuz Aygıt yöneticisi , Firewall … gibi çokça gerekli windows bileşenlerini bir tıkla açtırtacak vbs scriptleri

Çalıştır komutlarından bazıları

Aygıt yöneticisi : hdwwiz.cpl
Aygıt yöneticisi : devmgmt.msc
Ağ bağlantıları : ncpa.cpl
Ağ bağlantıları : control netconnections
Program ekle kaldır : appwiz.cpl
BlueTooth dosya aktarımı : fsquirt
Disk yönetimi : diskmgmt.msc
Görev yöneticisi : taskmgr
Güvenlik duvarı : firewall.cpl
Gelişmiş güvenlik duvarı : wf.msc

Daha geniş bir listeyi sayfa sonunda yeralan linkten indirebilirsiniz. Bu konmutlardan istediğimizi çalıştırabilmek için iki Vbs scriptinden faydalanacağız

Bir tıkla aygıt yöneticisini açalım
Aşağıdaki scripti not defterine yapıştırıp bir isim verin ve uzantısı vbs olacak şekilde kaydedin

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("mmc devmgmt.msc")
Set objShell = Nothing

Scriptte Run komutundan sonra gelen “mmc devmgmt.msc” yerine sayfa sonundaki listeden seçtiğiniz bir komutu kullanmayı deneyebilirsiniz , eğer çalışmazssa (Ki bazı komutlar bu scriptle çalışmayabilir) aşağıdaki script ile deneyin.

Bir tıkla Disk yönetimini açalım
Scriptte ShellExecute komutundan sonra gelen “diskmgmt.msc” yerine sayfa sonundaki listeden seçtiğiniz bir komutu kullanmayı deneyebilirsiniz

Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "diskmgmt.msc", "", "", "runas", 1

Bu scriplerle hem kullanım kolaylığı sağlanabilir hemde Acemi kullanıcılardan yapmalarını isteyeceğimiz şeyleri uzun uzadıya anlatmak yerine sadece şuna çift tıkla deme kolaylığı sağlanabilir. Komut listesi için bakınız

Download



Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

CAPTCHA