批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

VBS+WMI驱动器自动映射脚本


  1. ‘网络驱动器映射(测试服务器)
  2. sRemoteAdress = “192.168.1.202″ ‘远程驱动器所在IP地址
  3. sUser=”qqqiu”  ‘远程驱动器访问用户名
  4. sPwd=”124!@#”  ‘远程驱动器访问密码
  5. ‘自定义被映射盘符
  6. sDrive1=”x:”  
  7. sDrive2=”y:”
  8. sDrive3=”z:”
  9. AppPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)) ‘获取但其脚本运行目录
  10. Set SF = CreateObject(”Scripting.FileSystemobject”)
  11. Set WS = CreateObject(”Wscript.Shell”)
  12. Set WN = CreateObject(”WScript.Network”)
  13. Set SA = CreateObject(”Shell.Application”)
  14. If SF.DriveExists(sDrive1 & “\”) = True Then WN.RemoveNetworkDrive sDrive1 ’通过FSO函数判断本地是否存在同盘符驱动器,若存在,则通过WMI函数断开该驱动器
  15. WN.MapNetworkDrive sDrive1,”\\” & sRemoteAdress & “\web”,1,sUser,sPwd      ’通过通过WMI函数映射远程驱动器
  16. SA.NameSpace(sDrive1).Self.Name = “测试服务器”
  17. If SF.DriveExists(sDrive2 & “\”) = True Then WN.RemoveNetworkDrive sDrive2
  18. WN.MapNetworkDrive sDrive2, “\\” & sRemoteAdress & “\” & sUser,1,sUser,sPwd
  19. SA.NameSpace(sDrive2).Self.Name = “我的备份盘”
  20. If SF.DriveExists(sDrive3 & “\”) = True Then WN.RemoveNetworkDrive sDrive3
  21. WN.MapNetworkDrive sDrive3,”\\” & sRemoteAdress & “\commonshare”,1
  22. SA.NameSpace(sDrive3).Self.Name = “公用共享盘”
  23. WS.Regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\MyNetShare”,Wscript.ScriptFullName ‘将VBS脚本自身添加到开机启动项中,方便开机自动映射远程驱动器
复制代码
MapNetworkDrive 方法说明将共享网络驱动器添加到计算机系统中。
object.MapNetworkDrive(strLocalName, strRemoteName,bUpdateProfile, jstrUser, strPassword])参数object WshNetwork 对象。 strLocalName 表示映射驱动器的本地名的字符串值。 strRemoteName 表示共享的 UNC 名称 (\\xxx\yyy) 的字符串值。 bUpdateProfile 可选。表示映射信息是否存储在当前的用户配置文件中的布尔值。如果提供的 bUpdateProfile 的值为 true,则该映射存储在用户的配置文件中(默认值为 false)。 strUser 可选。表示用户名的字符串值。如果使用当前用户以外的其他用户的凭据来映射网络驱动器,则必须提供该参数。 strPassword 可选。表示用户密码的字符串值。如果使用当前用户以外的其他用户的凭据来映射网络驱动器,则必须提供该参数。


来自:80IT人生(www.80ht.cn),转载请注明。

[ 本帖最后由 debugcs 于 2009-12-12 15:39 编辑 ]
www.80ht.cn

樓主不好意思,我是超新手不太懂,
WN.MapNetworkDrive sDrive2, “\\” & sRemoteAdress & “\” & sUser,1,sUser,sPwd是不是變成這樣
WN.MapNetworkDrive sDrive2, “\\” & sRemoteAdress & “\ & sUser”,1,sUser,sPwd

TOP

返回列表