方法一
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