VBS Script ကိုသုံးျပီး CMD သုံးမယ္

ဒါကေတာ့ တစ္ခ်ဳိ ့ အင္တာနက္ဆုိင္ေတြမွာ ဘယ္ေလာက္ဆုိးလဲဆုိေတာ့ cmd (command box) ကိုေတာင္ပိတ္ထားတယ္ဗ်ာ.. ဒီလုိ မ်ဳိးအေျခအေန တစ္ခုေရာက္လာျပီဆုိရင္ေတာ့ အခု ေအာက္က ပာာေလးကို notepad တည္းထည့္လုိက္ျပီးေတာ့ cmd.vbs လုိ ့ save ျပီး run ၾကည့္ပါ အုိေကပါမယ္..
cmd လုိ သုံးနုိင္ပါတယ္..

Dim cmd
cmd = InputBox("www.genius2212.blogspot.com","Run box (vbs script)","cmd")
Dim ws
Set ws = WScript.CreateObject("WScript.Shell")
On Error Resume Next
ws.Run(cmd)
ws.Quit