au3如何完成该任务？？？

mhgd

比如实现映射驱动器后,在我的电脑中显示共享文件夹的位置,想自定义另外的名称,如何实现.就象手工修改一样.
利用下面的脚本可以的:

Set objNet = CreateObject("Wscript.Network")
strCompName = objnet.ComputerName

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "Y:","\\192.168.1.200\Movie", ,"user","password"

'新的磁盘名称
strNewName = "最新本地电影"   

'映射盘的盘符  
strDriveLetter = "Y:"

'更改映射盘的名称
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName  



以上是VBS脚本，如果转换成AU3脚本呢！！！

高手请指教!!!

[ 本帖最后由 mhgd 于 2008-5-26 15:19 编辑 ]

sanhen

这个与AU3内置的DriveMapAdd ()函数有何区别呢？

Bone

可以使用ObjCreate()来创建COM对象

asdf

使用内置的就可以了……

mhgd

原帖由 sanhen 于 2008-5-18 20:21 发表
这个与AU3内置的DriveMapAdd ()函数有何区别呢？

好像无法完成红色部分功能!!!

asdf

DriveMapAdd("Y:","\\192.168.1.200\Movie", 0 ,"user","password")
DriveSetLabel("Y:","最新本地电影")

asdf

这样就把\\192.168.1.200\Movie映射成Y，并且修改标签为最新本地电影

mhgd

DriveSetLabel("Y:","最新本地电影")

这一句好像不行，对真实盘有效，但在这里没效果！！！

马甲

$objNet = ObjCreate("Wscript.Network")
$strCompName = $objNet.ComputerName
$objNetwork = ObjCreate("WScript.Network") 
$objNetwork.MapNetworkDrive("Y:","\\NICE\SYSFANS")
$strNewName = "最新本地电影"   
$strDriveLetter = "Y:" 
$objShell = ObjCreate("Shell.Application") 
$objShell.NameSpace($strDriveLetter).Self.Name = $strNewName  

mhgd

多谢大家的帮忙，问题已经解决了，楼上的代码还是不完美，
objNetwork.MapNetworkDrive "Y:","\\192.168.1.200\Movie", ,"user","password"
$objNetwork.MapNetworkDrive("Y:","\\NICE\SYSFANS")
没有加用户名，应改为：$objNetwork.MapNetworkDrive("Y:","\\192.168.1.200\dw",0,"user","password")
以下是本人的拼接代码：
$strNewName = "最新本地电影"   
$strDriveLetter = "Y:"
DriveMapAdd("$strDriveLetter","\\192.168.1.200\dw", 0 ,"user","password")
$objShell = ObjCreate("Shell.Application")
$objShell.NameSpace($strDriveLetter).Self.Name = $strNewName

[ 本帖最后由 mhgd 于 2008-5-26 15:37 编辑 ]

木纳

学习...
也正在看磁盘映射的内容,
谢谢LZ及各位了.