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

debugcs

 
‘网络驱动器映射(测试服务器)
sRemoteAdress = “192.168.1.202″ ‘远程驱动器所在IP地址
sUser=”qqqiu”  ‘远程驱动器访问用户名
sPwd=”124!@#”  ‘远程驱动器访问密码
‘自定义被映射盘符
sDrive1=”x:”  
sDrive2=”y:”
sDrive3=”z:”
AppPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName)) ‘获取但其脚本运行目录
Set SF = CreateObject(”Scripting.FileSystemobject”)
Set WS = CreateObject(”Wscript.Shell”)
Set WN = CreateObject(”WScript.Network”)
Set SA = CreateObject(”Shell.Application”)
If SF.DriveExists(sDrive1 & “\”) = True Then WN.RemoveNetworkDrive sDrive1 ’通过FSO函数判断本地是否存在同盘符驱动器，若存在，则通过WMI函数断开该驱动器
WN.MapNetworkDrive sDrive1,”\\” & sRemoteAdress & “\web”,1,sUser,sPwd      ’通过通过WMI函数映射远程驱动器
SA.NameSpace(sDrive1).Self.Name = “测试服务器”
If SF.DriveExists(sDrive2 & “\”) = True Then WN.RemoveNetworkDrive sDrive2
WN.MapNetworkDrive sDrive2, “\\” & sRemoteAdress & “\” & sUser,1,sUser,sPwd
SA.NameSpace(sDrive2).Self.Name = “我的备份盘”
If SF.DriveExists(sDrive3 & “\”) = True Then WN.RemoveNetworkDrive sDrive3
WN.MapNetworkDrive sDrive3,”\\” & sRemoteAdress & “\commonshare”,1
SA.NameSpace(sDrive3).Self.Name = “公用共享盘”
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 编辑 ]

sillydanny

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