通过脚本实现AD用户自动连接打印机与共享文件夹

ON ERROR RESUME NEXT

'Set up some variables and constants
Dim Choice
Dim Drive, DriveCollection, DriveObj
Dim EnvLogonServer, EnvOpSystem, EnvWinDir, EnvTempDir, EstNumOfMaps, EventLog, EventLogObj
Dim FileServer,FileSysObj
Dim LocalPort, LogContents, LoginBox
Dim MapCount, MsgString
Dim Proc0, PrintObj, PrintServer
Dim RemotePrinter
Dim Share
Dim UseLogonScreen
Dim WSHShell, WshProcessEnvironment, WSHNetwork
Dim oShell

'Disconnect ALL mapped drives

Call DisconnetDriver()

'This sets constants for the textfile object.

Const ForReading = 1, ForWriting = 2, ForAppending = 8

'This sets the use of the LoginBox Control to Yes.
'To Change it set the value to no

UseLogonScreen = "yes"

'This value is set for the progress bar of the
'LoginBox control. Estimate the average number
'of drives and printers mapped for a typical
'user session. It is important that you
'**ALWAYS OVERESTIMATE THIS VALUE**
'by a couple of drives. So that the user
'cannot close the loginbox dialog before the
'~~Script~~. has completed.

EstNumOfMaps = 9

'Set up some Objects for use later

set FileSysObj = CreateObject("Scripting.FileSystemObject")
Set WSHNetwork = CreateObject("WScript.Network")
Set WSHShell = CreateObject("WScript.Shell")
Set oShell = CreateObject("Shell.Application")
Set WshProcessEnvironment = WshShell.Environment("Process")

'Get some necessary environment variables

EnvWinDir = WshProcessEnvironment("windir")
EnvTempDir = WshProcessEnvironment("Temp")
EnvOpSystem = WshProcessEnvironment("OS")
Const FileServ01 = "fycnsrv03"
Const FileServ02 = "10.86.21.21"
Const PrintServ01 = "fycnsrv03"
Const printer1 = "it 2200" 'location: IT dept
Const printer2 = "fin hp1100" 'location: finance dept
Const printer3 = "Xerox_C3000_U" 'location: Fax room
Const printer4 = "HPLaserJ1320" 'location: planning section of material
Const printer5 = "Xerox_C3000_C" 'printing color, location:Fax room
Const printer6 = " "

User = ""
Do While User = ""
User = WSHNetwork.UserName
Loop

'Now its time to start the Logon Process

Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))

'Now map some group specific drives. You can
'build the Select case to
'better reflect your environment

MapDrive "Y:", FileServ01, "personal/" & User
MapDrive "Z:", FileServ01, "public"

set UserObj = GetObject("WinNT://" & WshNetwork.UserDomain & "/" & WshNetwork.UserName)
For Each Group In UserObj.groups

Select Case Group.Name
Case "DG_IT"

MapDrive "S:", FileServ01, "sap"
MapDrive "I:", FileServ01, "it2"
ConnectPrinter PrintServ01, printer3
'ConnectPrinter PrintServ01, printer2
'ConnectPrinter PrintServ01, printer4
WshNetwork.SetDefaultPrinter "//" & PrintServ01 & "/" & Printer3

Case "DG_HR"

MapDrive "X:", FileServ01, "HR"



ConnectPrinter PrintServ01, printer5

' WshNetwork.SetDefaultPrinter "//" & PrintServ01 & "/" & Printer2

Case "DG_Finance"


MapDrive "h:", FileServ01, "report"
MapDrive "J:", FileServ01, "project"
MapDrive "s:", FileServ01, "sap"
MapDrive "X:", FileServ01, "account"

ConnectPrinter PrintServ01, printer2
WshNetwork.SetDefaultPrinter "//" & PrintServ01 & "/" & Printer2

Case "DG_Material"
MapDrive "h:", FileServ01, "bom"
MapDrive "i:", FileServ01, "report"
MapDrive "k:", FileServ01, "plan"
MapDrive "m:", FileServ01, "pc"
MapDrive "u:", FileServ01, "purchase"
MapDrive "s:", FileServ01, "sap"
MapDrive "t:", FileServ01, "buyer"

ConnectPrinter PrintServ01, printer4
WshNetwork.SetDefaultPrinter "//" & PrintServ01 & "/" & Printer4

Case "DG_GM_Office"
MapDrive "h:", FileServ01, "bom"
MapDrive "i:", FileServ01, "report"
MapDrive "k:", FileServ01, "plan"
MapDrive "l:", FileServ01, "sales-price"
MapDrive "m:", FileServ01, "project"
MapDrive "o:", FileServ01, "meeting"
MapDrive "q:", FileServ01, "customfile"
MapDrive "s:", FileServ01, "sap"
MapDrive "w:", FileServ01, "sale"

' ConnectPrinter PrintServ01, printer5
' WshNetwork.SetDefaultPrinter "//" & PrintServ01 & "/" & Printer5

Case "DG_Sales"
MapDrive "h:", FileServ01, "bom"
MapDrive "i:", FileServ01, "report"
MapDrive "k:", FileServ01, "plan"
MapDrive "l:", FileServ01, "sales-price"
MapDrive "m:", FileServ01, "project"
MapDrive "q:", FileServ01, "customfile"
MapDrive "s:", FileServ01, "sap"
MapDrive "x:", FileServ01, "sale"


ConnectPrinter PrintServ01, printer3
WshNetwork.SetDefaultPrinter "//" & PrintServ01 & "/" & Printer3




End Select
Next

Wscript.quit

Sub MapDrive(Drive, FileServer, Share)

FileServer = "//" & FileServer
Share = "/" & Share

WshNetwork.MapNetworkDrive Drive, FileServer & Share





End Sub

'This subroutine adds printers

Sub ConnectPrinter(PrintServer, Queue)

PrintServer = "//" & PrintServer
Queue = "/" & Queue

On error resume next

'This next line is a workaround to provide
'some error checking when adding a printer
'since WshAdmin.dll does not report an error
'when the printer does not exists.

WsHNetwork.AddPrinterConnection Lpt8, PrintServer & Queue
If err.number <> 0 Then
LogContents = LogContents & "FAILURE!!! UNABLE to connect printer " & PrintServer & Queue & ". The remote file printer is unavailable!" & vbcrlf
msgbox "The Logon Script was unable to connect " & vbcrlf & vbcrlf & PrintServer & Queue & vbcrlf & vbcrlf & "The remote printer is either unavailable or " & Port & " is already in use!" & vbCRLF & "Please contact your network administrator.", vbOk + vbcritical,"Acme Information Services."
Else

'This next line deletes our dummy printer
'connection

'WsHNetwork.RemovePrinterConnection PrintServer & Queue
WshNetwork.AddWindowsPrinterConnection PrintServer & Queue
End If



err.clear

End Sub

'This subroutine enumerates the resultant
'drive mappings and printers for display in
'the logon screen control

Sub DisplayMappings()

Set DriveCollection = WSHNetwork.EnumNetworkDrives
MsgString = "You have access to following network " & vbcrlf & "drive and printer connections: " & vbCRLF & vbCRLF
For i = 0 To DriveCollection.Count - 1 Step 2
MsgString = MsgString & vbCRLF & vbtab & DriveCollection(i) & Chr(9) & DriveCollection(i + 1)
Next

Set PrinterCollection = WshNetwork.EnumPrinterConnections
For i = 0 To PrinterCollection.Count - 1 Step 2
MsgString = MsgString & vbCRLF & vbtab & PrinterCollection(i) & Chr(9) & PrinterCollection(i + 1)
Next

End Sub

Sub DisconnetDriver()

ON ERROR RESUME NEXT

Dim WSHShell, WSHNetwork
Set WSHShell = CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")

'Disconnect ALL mapped drives
Set clDrives = WshNetwork.EnumNetworkDrives
For i = 0 to clDrives.Count -1 Step 2
WSHNetwork.RemoveNetworkDrive clDrives.Item(i), True, True
Next

'Give the PC time to do the disconnect, wait 300 milliseconds
wscript.sleep 3000

End Sub

上文脚本是一个设备配置自动映射所属部门的文件夹及打印机，在AD中用户属性配置成登陆的脚本，可以在计算机启动过程中完成这些动作，大大提高了工作效率。