Dengan aplikasi notepad, copy source dibawah ini :
simpan dengan "nama_file.vbs", jangan lupa Save as type pilih All files
double klik file tersebut untuk menjalankannya
Recommended Download
Download Insidious Chapter 3 Sub Indo
rem periksa jenis Sound Card Anda
set wmi = GetObject("winmgmts:")
set scs = wmi.InstancesOf("win32_sounddevice")
teks=space(14)+"Jenis Sound Card Anda : "+vbcrlf
for each sc in scs
set status = sc.Properties_("Status")
wscript.Echo(teks+""""+sc.Properties_("Name") + "/" + status+"""")
if status = "OK" then
wscript.Quit 0
end if
next
wscript.Quit 1
simpan dengan "nama_file.vbs", jangan lupa Save as type pilih All files
double klik file tersebut untuk menjalankannya
Mampir juga
Download Insidious Chapter 3 Sub Indo
Tidak ada komentar:
Posting Komentar