Question

需要做一个批处理或者VBS，实现自动获取本机IP，并以该IP映射网络驱动器

要求写一个批处理文件或者VBS具体要求：
1.电脑开机的时候，自动获取本机IP
2.比如获取到的IP是192.168.0.101，那么就自动映射在某服务器上的一个共享文件夹192.168.0.101为本地驱动器E盘

注：电脑是无盘的，在启动winxp以前会自动获得DHCP服务器分配的一个IP并以固定静态IP的形式自动写在网卡配置里，我觉得对此程序而言，这些应该跟普通电脑一样
请看清，要一个批处理同时解决两个问题，
1.自动获取本机IP
2.才是net use x: \\ServerIP\xxx$ ...

赏金提高到200，还没有懂点的吗？

Answer 1

服务器端春嫌设置共享文件夹everyone 完全权仿森粗限

然后备镇用如下命令
net use e: \\192.168.0.101\共享文件夹

追问

呵呵，请看清，要一个批处理同时解决两个问题，
1.自动获取本机IP
2.才是你说的net use .....
这二步要处理做到，直接手工输入我也会，不需要问你了

追答

映射网络驱动器，无需本机IP好丕好？ 那个命令也不需要啊

追问

大哥，我是有特殊需求，我的目的不只是为了映射一个网络驱动器
我是有N多台电脑，需要共享服务器上的共享目录，并且每客户端要求目录不同，所以用IP地址作为目录名

追答

@echo off
setlocal enabledelayedexpansion

set serverip=192.168.1.10

ipconfig|findstr 192|findstr IP > iptemp
for /f "delims=: tokens=2" %%i in (iptemp) do (
echo %%i > iptemp1
)
for /f "tokens=1 delims= " %%i in (iptemp1) do (
echo 本机IP地址为：%%i
echo 执行命令 use e: \\!serverip!\%%i
net use e: \\!serverip!\%%i
)
del iptemp
del iptemp1

这样满足你要求了么？你前面没说清楚，我也没看清楚....
上面的服务器IP地址 改成你们自己的

还有就是我系统是WIN7,不知道ipconfig显示的和XP有多大区别，如果有问题，你运行下ipconfig把运行结果贴过来 我改一点点就好

追问

好的，谢谢，我先试一下，晚些答复你

追答

你直接在你现在的电脑上执行就能看到效果，有ECHO显示的么

追问

在xp上运行的结果见图片
显示获取IP没问题，在映射盘符的时候出错
其中192.168.0.222为Server，并且在Server已经有一个共享目录192.168.0.223，手动运行net use e: \\192.168.0.222\192.168.0.223是可以映射出E盘的

还有，我考虑 了一下，用映射IP地址作为盘符有弊端，能否改为获取电脑名，然后映射电脑名做为共享目录？

追答

计算机名的太简单了

net use e: \\192.168.0.222\%computername%

追问

是啊，这样好象就不需要获取啥了，直接映射行了，太好了，过会试试去

Answer 2

解决方法
新蔽盯迹则握建宏并 .bat的文件：
@echo off
net use Z: \\serverIP\C$ "PASSWORD" /user:"USERNAME"
@echo on
然后把这个文件拖到 开始->程序->启动

追问

你只回答了我二个要解决的问题之一，请问第一步如何写？

追答

这个好说

@echo off
set dns=8.8.8.8
netsh interface ip set address name=”本地连接” source=dhcp
@echo on

追问

老兄啊，我要一套完整的写法，我要实现电脑自动批处理，你要清楚，并没有人去手动输入获取IP，然后得到IP再手动输入映射驱动器，要求是电脑开机时全部自动完成
难道我问题写的不够明白
首先获取本机IP作为一个变量，然后以这个变量为共享名映射网络驱动器，这是在没有人干预的条件下自动完成的，要一套完整的写法，bat或VBS

Answer 3

不太了解无虚宏盘的机器怎么部署启动脚本，
如果需要手动部署到每一滑侍台机器的话，那就太麻烦了；
而且一旦脚本需要修改，就更麻烦。
可以考虑只写一个脚本，在服务器端差让册远程执行。
服务器端获取DHCP出去的IP也很方便。

Answer 4

首先声明，对于批唯顷乱处理，我不太会，但是你会批处理这个应该没问题啦

set ws=CreateObject("wscript.shell")
Set oService = GetObject("winmgmts:\\.\root\cimv2")
Set Items = oService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each Item in Items
For Each oAddress in Item.IPAddress
If oAddress <> "" then IP= oAddress
exit for
Next
Next

ws.run "cmd /c net use e: \\" & IP & "\共享文件夹"

'最后这句 批处理的东东，不太确定是指档不是乎闷这样写的，
'不过你会手动输入，那这个应该没问题，反正前面的代码把IP给出来了

追问

必须做到电脑开始自动执行，不是手工输入的

追答

把上面的保存成 vbs 文件，丢到 开始->程序->启动 不就行了

追问

ws.run "cmd /c net use e: \\" & IP & "\共享文件夹"
后面这个“共享文件夹”应该是自动获取的IP
因为我用IP作为文件夹名，这名字要自动获取

追答

获取到的IP是192.168.0.101，那么就自动映射在某服务器上（192.168.0.10）的一个共享文件夹192.168.0.101为本地驱动器E盘
这个用在dos 怎么写 是不是
net use e: \\192.168.0.10\192.168.0.101
如果是，那么以上vbs代码中最后一句改为

serveip="192.168.0.10" '可以放在代码开头
ws.run "cmd /c net use e: \\" & serveip & "\" & IP