Login Script

[thockman]

Here is a simple vbs script to use for mapping drives and such in AD.

Code: Select all

ON ERROR RESUME NEXT
' Script: Logon.vbs
' Description: Logon script for all users in domain
' Created by: Troy Hockman
' Created Date: 11/24/03

' Get username
Set objNetwork = WScript.CreateObject("WScript.Network") 
strUserName = objNetwork.UserName 
' Remove network drives
Dim oNetwork
Set oNetwork = WScript.CreateObject("WScript.Network")
oNetwork.RemoveNetworkDrive "H:"
oNetwork.RemoveNetworkDrive "M:"
oNetwork.RemoveNetworkDrive "P:"
'oNetwork.RemoveNetworkDrive "W:"

' Add network drives
oNetwork.MapNetworkDrive "H:", "\\FileServer\" & strUserName & "$"
oNetwork.MapNetworkDrive "M:", "\\FileServer\Share1"
oNetwork.MapNetworkDrive "P:", "\\FileServer\Share2"


' Add network printer
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\PrintServer\HPLJ6P"
WshNetwork.SetDefaultPrinter "\\PrintServer\HPLJ6P"
Set WshNetwork = Nothing
Set oNetwork = nothing