DOOS删除命令

net use \\ip\ipc$ " " /user:" " 建立IPC空链接

net use \\ip\ipc$ "密码" /user:"用户名" 建立IPC非空链接

net use h: \\ip\c$ "密码" /user:"用户名" 直接登陆后映射对方C：到本地为H:

net use h: \\ip\c$ 登陆后映射对方C：到本地为H:

net use \\ip\ipc$ /del 删除IPC链接

net use h: /del 删除映射对方到本地的为H:的映射

net user 用户名　密码　/add 建立用户

net user guest /active:yes 激活guest用户

net user 查看有哪些用户

net user 帐户名 查看帐户的属性

net localgroup administrators 用户名 /add 把“用户”添加到管理员中使其具有管理员权限,注意：administrator后加s用复数

net start 查看开启了哪些服务

net start 服务名　 开启服务；(如:net start telnet， net start schedule)

net stop 服务名 停止某服务

net time \\目标ip 查看对方时间

net time \\目标ip /set 设置本地计算机时间与“目标IP”主机的时间同步,加上参数/yes可取消确认信息

net view 查看本地局域网内开启了哪些共享

net view \\ip 查看对方局域网内开启了哪些共享

net config 显示系统网络设置

net logoff 断开连接的共享

net pause 服务名 暂停某服务

net send ip "文本信息" 向对方发信息

net ver 局域网内正在使用的网络连接类型和信息

net share 查看本地开启的共享

net share ipc$ 开启ipc$共享

net share ipc$ /del 删除ipc$共享

net share c$ /del 删除C：共享

net user guest 12345 用guest用户登陆后用将密码改为12345

net password 密码 更改系统登陆密码

netstat -a 查看开启了哪些端口,常用netstat -an

netstat -n 查看端口的网络连接情况，常用netstat -an

netstat -v 查看正在进行的工作

netstat -p 协议名 例：netstat -p tcq/ip 查看某协议使用情况（查看tcp/ip协议使用情况）

netstat -s 查看正在使用的所有协议使用情况

nbtstat -A ip 对方136到139其中一个端口开了的话，就可查看对方最近登陆的用户名（03前的为用户名）-注意：参数-A要大写

tracert -参数 ip(或计算机名) 跟踪路由（数据包），参数：“-w数字”用于设置超时间隔。

ping ip(或域名) 向对方主机发送默认大小为32字节的数据，参数：“-l[空格]数据包大小”；“-n发送数据次数”；“-t”指一直ping。

单位5个机房如下（DNS：61.134.1.4，掩码为：255.255.255.0）：编号ip起始 ip中止 网关 机器名 工作组 1号192.168.1.1100 254No_100～No_160S012号192.168.1.101200254No_200～No_260S023号192.168.3.180254No_300～No_360S034号192.168.3.81160254No_400～No_460S045号192.168.3.161240254 No_500～No_560S05 '/////主程序

dim msginf,machname'定义变量:对话框，机器名

msginf=msgbox("该程序只能执行1次，请在XP系统硬件安装完毕后执行！" &chr(13) &"是否继续?",65,"修改机器网络配置") '信息提示

if msginf=1 then ' 如果按确定，则machname=inputon() ' 用函数inputon()分析if machname<>"quit" then ' 如果返回值不等于"quit"，则

wmitoip(machname) ' 运行函数wmitoip()设置机器信息

mreboot()'重启机器

end if

end if'///重启机器

sub mreboot()

dim fso,f1,f2

Set fso = CreateObject("Scripting.FileSystemObject")'删除启动组

if fso.fileexists("C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\fxp.lnk") then

set f1=fso.getfile("C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\fxp.lnk")

f1.delete

end if'删除vbs文件

if fso.fileexists("e:\fxp.vbs") then

set f2=fso.getfile("e:\fxp.vbs")

f2.delete

end ifSet WshShell = Wscript.CreateObject("Wscript.Shell")

'WshShell.Run ("shutdown.exe -r -t 5") ' 重启end sub'///生成计算机名

function inputon() ' 函数inputon()

dim t ' 变量

while true ' 循环直到退出函数

t=inputbox("按一下规则输入：" &chr(13) &chr(13) &"第1位代表机房号" &chr(13) &"第2、3位代表机器号" &chr(13) &"教师机用00代表" &chr(13) &"如：123代表1号机房23号机" &chr(13) &"请确保输入正确！！","请输入3位机器标识！","") ' 输入机算机名，默认值为空

if t="" then ' 如果t等于空（按了取消键），则

inputon="quit" ' 返回值为"quit"

exit function ' 退出程序

end if

if len(t)=3 then ' 计算机号的长度为3位

if Cint(t)>=100 and Cint(t)<580 then ' 验证

inputon=t ' 返回需要的计算机名

exit function

end if

end if

wend

end function

'///修改机器ip、掩码、网关、工作组、机器名

sub wmitoip(t)

strComputer="."

strmask="255.255.255.0"

Dim lt,rt' 变量

dim ipv,gateway,lan 'ip，网关，工作组

lt=cint(left(t,1))'机号左1位数字值

rt=cint(right(t,2)) ' 机号右两位数字值if lt=1 or lt=2 then'判断网关

gateway="192.168.1.254"

else

gateway="192.168.3.254"

end ifif lt=1 then '1号机房

lan="S01"

ipv="192.168.1."

if rt=0 then '教师机

ipv=ipv+"100"

else'学生机

ipv=ipv+Cstr(rt)

end if

end ifif lt=2 then '2号机房

lan="S02"

ipv="192.168.1."

if rt=0 then '教师机

ipv=ipv+"200"

else'学生机

rt=rt+100

ipv=ipv+Cstr(rt)

end if

end ifif lt=3 then '3号机房

lan="S03"

ipv="192.168.3."

if rt=0 then '教师机

ipv=ipv+"80"

else'学生机

ipv=ipv+Cstr(rt)

end if

end ifif lt=4 then '4号机房

lan="S04"

ipv="192.168.3."

if rt=0 then '教师机

ipv=ipv+"160"

else'学生机

rt=rt+80

ipv=ipv+Cstr(rt)

end if

end ifif lt=5 then '5号机房

lan="S05"

ipv="192.168.3."

if rt=0 then '教师机

ipv=ipv+"240"

else'学生机

rt=rt+160

ipv=ipv+Cstr(rt)

end if

end ifSet objWMIService=GetObject("winmgmts:\\" &strComputer &"\root\cimv2")

Set colNetAdapters=objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress=Array(ipv)

strSubnetMask=Array(strmask)

strGateway = Array(gateway) '修改网关

'strGatewayMetric = Array(1) '跃点数

strDNS=Array("61.134.1.4")For Each objNetAdapter in colNetAdapters

errEnable=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)'ip，掩码

errGateways = objNetAdapter.SetGateways(strGateway) '网关

errDns=objNetAdapter.SetDNSServerSearchOrder(strDNS)'dns

NextSet objWMIService = GetObject("winmgmts:" _

&"{impersonationLevel=impersonate}!\\" &strComputer &"\root\cimv2")

Set colComputers = objWMIService.ExecQuery _

("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers

err = ObjComputer.Rename("No_" &t)'机器名

ReturnValue = objComputer.JoinDomainOrWorkGroup("S0" &left(t,1))'工作组

Nextend sub

---