feitianxiang 发表于 2007-10-31 13:43:42

自动映射网络驱动器脚本

我最近写的脚本，贴上来给大家参考

@echo off
@echo Scripted by Jimmy Fei, 2007-10-30
@echo Connecting Network Drives ...
@net use * /delete /y
@net use x: \\192。168。0。1\groups /y
@net use y: \\192。168。0。2\groups /y
@net use z: \\192。168。0。3\groups/y
@echo Done
rem
rem Show Drive Mappings ...
@net use
@echo Done
rem Logon script complete
@echo Logon Script successfully completed

jaffas1101 发表于 2007-10-31 14:23:04

很好！！！
多谢分享！！！

chuqiao8250 发表于 2007-12-24 16:38:49

太简单了,我给大家看一个可以根据不同的ou来映射

feitianxiang 发表于 2007-12-25 20:21:16

麻烦楼上把你的分享给大家,谢谢!

chuqiao8250 发表于 2007-12-26 18:19:49

我发到你邮箱

leemars8080 发表于 2007-12-28 12:30:52

楼上的太不厚到了,好东西不给大家看.
请看我这边的脚本,登陆不同的地方添加不同地方的打印机
在其中我把各地方装有打印机的服务器名字改成server1---5,没办法,不能泄露,万一被别人黑了怎么办,哈哈

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\"& strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each observer5apter in colAdapters
   If Not IsNull(observer5apter.IPAddress) Then
      For i = 0 To UBound(observer5apter.IPAddress)
         if left(observer5apter.IPAddress(i),10)="192.168.0." then loc="MC"
         if left(observer5apter.IPAddress(i),10)="192.168.10" then loc="DU"
         if left(observer5apter.IPAddress(i),10)="192.168.40" then loc="BA"
         if left(observer5apter.IPAddress(i),10)="192.168.50" then loc="LD"
         if left(observer5apter.IPAddress(i),10)="192.172.0." then loc="SH"
      Next
   End If
Next
'WScript.Echo "Location is " & loc

On Error Resume Next
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =objWMIService.ExecQuery ("Select * from Win32_Printer where Network = 1")
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
Next

dim wshnetwork
if loc = "MC" Then
set wshnetwork=wscript.createobject("wscript.network")
wshnetwork.addwindowsprinterconnection "\\server1\Xerox DC240 Black"
wshnetwork.setdefaultprinter "\\server1\Xerox DC240 Black"
wshnetwork.addwindowsprinterconnection "\\server1\Xerox DC240 Color"
wshnetwork.addwindowsprinterconnection "\\server1\Canon iR3100 Black"
wshnetwork.addwindowsprinterconnection "\\server1\Canon iR3100 Color"
wshnetwork.addwindowsprinterconnection "\\server1\HPLJ2600B"
wshnetwork.addwindowsprinterconnection "\\server1\HPLJ2600C"
end If
if loc = "DU" Then
set wshnetwork=wscript.createobject("wscript.network")
wshnetwork.addwindowsprinterconnection "\\server2\XeroxPro35"
wshnetwork.setdefaultprinter "\\server2\XeroxPro35"
wshnetwork.addwindowsprinterconnection "\\server2\XeroxPhaser"
end If
if loc = "BA" Then
set wshnetwork=wscript.createobject("wscript.network")
wshnetwork.addwindowsprinterconnection "\\server3\Canon2200B"
wshnetwork.setdefaultprinter "\\server3\Canon2200B"
wshnetwork.addwindowsprinterconnection "\\server3\Canon2200F"
end If
if loc = "LD" Then
set wshnetwork=wscript.createobject("wscript.network")
wshnetwork.addwindowsprinterconnection "\\server4\XeroxPro45"
wshnetwork.setdefaultprinter "\\server4\XeroxPro45"
end If
if loc = "SH" Then
set wshnetwork=wscript.createobject("wscript.network")
wshnetwork.addwindowsprinterconnection "\\server5\xerox"
wshnetwork.setdefaultprinter "\\server5\xerox"
wshnetwork.addwindowsprinterconnection "\\server5\ricoh"
wshnetwork.addwindowsprinterconnection "\\server5\kyocera"
end If

nickren 发表于 2008-1-4 11:51:38

强贴。希望能有更多的脚本出现。
比如说：关机自动从网络上某一台电脑中copy文件到本机的脚本。

pater 发表于 2008-1-4 14:39:41

買一個軟體了了。。。騰龍備份大師，，，，全搞定啊。。。

feitianxiang 发表于 2008-1-4 19:20:12

不错,感谢把好东西和大家分享

langzixin520 发表于 2008-3-5 15:38:17

如果没有那么多的网段该怎么样来分呢????
页: [1]
查看完整版本: 自动映射网络驱动器脚本