strText = strText & " Are You Sure.... ?" & Chr(13)

strTitle = "The mPlus - www.em4me.my.id"

intType = vbYesNo + vbQuestion + vbDefaultButton2

Set objWshShell = WScript.CreateObject("WScript.Shell")

intResult = objWshShell.Popup(strText, ,strTitle, intType)

Select Case intResult

    Case vbYes

    Dim objFSO

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    objFSO.CopyFile "ToCopy.cmd", "C:\ToCopy.cmd", True

    Set WshShell = CreateObject("WScript.Shell")

    WshShell.Run "C:\ToCopy.cmd"

    Case vbNo

        Set WshShell = Nothing

End Select