程序代码:

Private Sub Command1_Click()  '调用CMD并让CMD执行ping命令
Shell "cmd /k ping 192.168.5.1", 1 'k表示执行后保留CMD窗口
Shell "cmd /c ping 192.168.5.1", 1 'c表示执行后不保留CMD窗口
End Sub
'--------------------------------------------
Private Sub Command2_Click()  '保存CMD执行结果
Shell "cmd /c ping 192.168.5.1>c:\结果.txt", vbHide
End Sub
'--------------------------------------------
Private Sub Command3_Click()  '连续执行两条命令
Shell "cmd /k ping 192.168.5.1 & ping 192.168.10.1", vbNormalFocus
End Sub
'--------------------------------------------
Private Sub Command4_Click()  '利用ping来实现延时操作 
Shell "cmd /c ping 127.0.0.1 -n 3 >nul & start c:\QQ2013.exe", vbHide'延时3秒后再进行下一步操作
End Sub

CMD知识:

REG ADD HKLM\SYSTEM\CurrentControlSet\Control\Terminal" "Server /v fDenyTSConnections /t REG_DWORD /d 00000000 /f

------------------------------开启3389----------------------------
net user 用户名 密码 /add
------------------------------创建一个用户------------------------
net user 用户名 密码
------------------------------创建密码----------------------------
net localgroup administrators 用户名 /add
------------------------------将用户加入管理员组------------------
net user Administrator
------------------------------取消管理员密码----------------------