小弟本身是一個網管人員,目前使用 Win2008 R2 當 AD 並且有 Win7 的 Client ,但 是不知道為什麼之前常常使用的 Login Script 卻是無法正常的在 Win7 下執行。 原始碼如下: Option Explicit On Error Resume Next Dim net,oDrives,oPrinters,oUser,oTime,i,sysInfo,objUser,strGroup,objGroup,flgMap,flgAccMap,oShell Set net = CreateObject("WScript.Network") Set sysInfo = CreateObject("ADSystemInfo") oUser = net.UserName oTime = Now Do While oUser = "" if DateDiff("s",oTime,Now) > 30 then WScript.Quit WScript.Sleep 1000 oUser = net.UserName Loop Set oDrives = net.EnumNetworkDrives Set oPrinters = net.EnumPrinterConnections For i = 0 to oDrives.Count - 1 Step 2 if oDrives.Item(i) = "X:" then net.RemoveNetworkDrive "X:",True,True end if if oDrives.Item(i) = "Y:" then net.RemoveNetworkDrive "Y:",True,True end if if oDrives.Item(i) = "L:" then net.RemoveNetworkDrive "L:",True,True end if if oDrives.Item(i) = "Q:...


留言
張貼留言