| 批处理打造自己的工具 |
| 责任编辑：酷酷の鱼 更新日期：2008-4-24 |
|
|
|
:RemoveService
Setlocal
Cd/d %temp%
If "%2"=="" Echo NP -RemoveService ServiceName&&Goto Exit
Net start|find "%2" >nul&&net stop %2
Echo [Version] >Remove.inf
Echo Signature="$WINDOWS NT$" >>Remove.inf
Echo [DefaultInstall.Services] >>Remove.inf
Echo DelService=%2 >>Remove.inf
Rundll32.exe setupapi,InstallHinfSection DefaultInstall 128 %temp%\Remove.inf
Del Remove.inf
Goto Exit
:Fport
setlocal enabledelayedexpansion
echo ------------------------------------------------------------------------
echo 进程名称 端口号
ECHO TCP协议:
::利用netstat命令找出使用TCP协议通信的端口，并将结果分割；
::将第二个参数(IP加端口)传给%%i，第五个参数(PID号)传给%%j;
for /F "usebackq skip=4 tokens=2,5" %%i in (`"netstat -ano -p TCP"`) do (
call :Assoc %%i TCP %%j
echo !TCP_Proc_Name! !TCP_Port!
)
ECHO UDP协议:
for /F "usebackq skip=4 tokens=2,4" %%i in (`"netstat -ano -p UDP"`) do (
call :Assoc %%i UDP %%j
echo !UDP_Proc_Name! !UDP_Port!
)
echo 按任意键退出
pause>nul
:Assoc
::对%1(第一个参数）进行分割，将第二个参数传给%%e。在本程序中，%1即为上面的%%i(形式为：IP:端口号)
for /F "tokens=2 delims=:" %%e in ("%1") do (
set %2_Port=%%e
)
:: 查询PID等于%3(第三个参数)的进程，并将结果传给变量?_Proc_Name,?代表UDP或者TCP；
for /F "skip=2 usebackq delims=, tokens=1" %%a in (`"Tasklist /FI "PID eq %3" /FO CSV"`) do (
::%%~a表示去掉%%a外面的引号，因为上述命令的结果是用括号括起来的。
set %2_Proc_Name=%%~a
)
Goto Exit
:RenName
If "%2"=="" Echo 请输入要重命名的名称&&Goto Exit
Wmic UserAccount Where Name=’%1’ call Rename %2
Goto Exit
:Help
Echo ******************************************************************************
Echo ** Small_Tool
Echo **
Echo ** Code By NetPatch
Echo ** Exp:
Echo ** NP -Help //脚本帮助
Echo ** NP -Reboot //重新启动
Echo ** NP -InstallService //安装服务
Echo ** NP -RemoveService //删除服务
Echo ** NP -Fport //端口关联的进程
Echo ** NP -QueryLnk //查询快捷方式所指文件路径
Echo ** NP -RenName //系统帐号重命名
Echo **
Echo ** 注意:命令请全部用小写形式!
Echo *******************************************************************************
CMD /K
:Exit
上一页 [1] [2] |
|
| 上一篇文章： 用vbs写的短小精悍的字典生成器 |
| 下一篇文章： 没有了 |
|
|
|
|
