AD中映射网盘和打印机及快捷方式的脚本

方法一

AD中映射网盘和打印机及快捷方式，写脚本

Dim net
Set net = CreateObject("WScript.Network")

' mapping net work drivers
net.MapNetworkDrive "H:", "//yourserver/everyone","True"
net.MapNetworkDrive "I:", "//yourserver/spring","True"
net.MapNetworkDrive "J:", "//yourserver/sql2000db","True"

' mapping network printers
net.AddWindowsPrinterConnection " //yourserver/yourprinter"
net.SetDefaultPrinter " //yourserver/yourprint"

' Create desktop shortcuts
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "/digicentury.lnk")
link.TargetPath = " http://www.4Shost.cn/"
link.WorkingDirectory = DesktopPath
link.Save

方法二

AD中映射网盘和打印机及快捷方式，写批处理

net use t: //filesrv/upload
net use t: /delete
net use t: //filesrv/upload

把以上代码另存为bat文件放在以下目录中

//Filesrv/SYSVOL/domainname/scripts