Very first login script :-) Might be usefull for someone

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Very first login script :-) Might be usefull for someone

Logged in as: Guest

arrSession:exec spGetSession 2,16,35200

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Very first login script :-) Might be usefull for someone
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Very first login script :-) Might be usefull for someone - 6/7/2006 4:07:47 AM

torstenj

Posts: 9
Score: 2
Joined: 6/6/2006
Status: offline

I was browsing my machine - and it seems it was a good idea to keep the histroy. This was my very first login script for the ADS.
Very old - very long. But it might be usefull for beginners... Like me!

If you have ADS and need some usefull ideas for mapping printers, groups and users - that might be the right start.

'###
'### Loginscript for ActiveDirectory as Policy
'###
'### Copyright by Torsten Jahnke
'###
'### Modified 22:20 26.05.2002
'###

Option Explicit
On Error Resume Next
Dim oShell, oNet, oFSO, oWshNetwork, oGroupDict
Set oShell = CreateObject("Wscript.Shell")
Set oNet = CreateObject("Wscript.Network")
set oFSO = CreateObject("Scripting.FileSystemObject")
'#########################################
'### User Mapping - the Home Directory ###
'#########################################
Dim objNet, strUserName, strInitial
Set objNet = CreateObject("Wscript.Network")
strUserName =objNet.UserName
strInitial =UCase(Left(strUserName,1))
'##########################################################
'### If the UserName is lower than "M" map first server ###
'### else map second server! Isn't that cool??          ###
'##########################################################
If (strInitial < "M") Then
objNet.MapNetworkDrive "h:", "\\server1\home\" & strUserName
else
objNet.MapNetworkDrive "h:", "\\server2\home\" & strUserName
End If
'#############################################################
'### Home Directory is finished! ...let's give them shares ###
'#############################################################
'-----------------
'#############################################################################
'##### German Public Drive & Share will map to all Users within this Group ###
'#############################################################################
If IsMember("All German Users") Then MapDrive "F:", "\\<IP_ADDRESS>", "\Public$" End If
If IsMember("Muc ITHelpdesk") Then MapDrive "F:", "\\<IP_ADDRESS>", "\Public$" End If
'#############################################
'##### Shared Resource Mappings on Drive G ###
'#############################################
If IsMember("MUC Techserv") Then MapDrive "G:", "\\<IP_ADDRESS>", "\Techserv$" End If
If IsMember("MUC SD Finance") Then MapDrive "G:", "\\<IP_ADDRESS>", "\SD-Finance$" End If
If IsMember("MUC ShowRoom") Then MapDrive "G:", "\\<IP_ADDRESS>", "\Showroom$" End If
If IsMember("MUC HumanResource") Then MapDrive "G:", "\\<IP_ADDRESS>", "\SD-Finance$" End If
'##################################################################################
'##### Edwin Admin Mapping must be the "I" Drive in cause of hardcoded mappings ###
'##################################################################################
If IsMember("MUC Database Applications") Then MapDrive "I:", "\\<IP_ADDRESS>", "\DB$" End If
'#########################################################
'##### Exeptions of standart mappings - Shared Folders ###
'#########################################################
If IsMember("MUC SD Licensing") Then MapDrive "J:", "\\<IP_ADDRESS>", "\SD-Licensing$" End If
If IsMember("MUC SD PSS") Then MapDrive "K:", "\\<IP_ADDRESS>", "\SD-PSS$" End If
If IsMember("MUC SD SalesADM") Then MapDrive "L:", "\\<IP_ADDRESS>", "\SD-SalesADM$" End If
'##################################################################################
'##### Usefull Mappings - i.e. the path to "M" Drive is within the source codes ###
'##################################################################################
If IsMember("MUC Developers") Then MapDrive "M:", "\\<IP_ADDRESS>", "\Developers$" End If
If IsMember("MUC Cisco Secure") Then MapDrive "M:", "\\ciscosecuremun1", "\EuroIntegration$" End If
'#####################################################################
'##### Department mappings - all departments get their own folders ###
'#####################################################################
If IsMember("MUC HumanResource") Then MapDrive "Z:", "\\<IP_ADDRESS>", "\HR$" End If
If IsMember("MUC HumanResource") Then MapDrive "T:", "\\<IP_ADDRESS>", "\Techserv$" End If
If IsMember("MUC ITHelpdesk") Then MapDrive "W:", "\\<IP_ADDRESS>", "\IT$" End If
If IsMember("MUC Finance") Then MapDrive "V:", "\\<IP_ADDRESS>", "\Finance$" End If
If IsMember("MUC Marketing") Then MapDrive "U:", "\\<IP_ADDRESS>", "\Marketing$" End If
If IsMember("MUC Techserv") Then MapDrive "T:", "\\<IP_ADDRESS>", "\Sales$" End If
If IsMember("ESC Purchasing") Then MapDrive "R:", "\\<IP_ADDRESS>", "\ESC-Purchase$" End If
If IsMember("ESC Finance") Then MapDrive "Q:", "\\<IP_ADDRESS>", "\ESC-Finance$" End If
If IsMember("MUC Licensing") Then MapDrive "P:", "\\<IP_ADDRESS>", "\Licensing$" End If
'###########################################
'##### Welcome to the multicash machines ###
'###########################################
If IsMember("MUC Banking") Then MapDrive "G:", "\\<IP_ADDRESS>", "\SD-Finance$" End If
If IsMember("MUC Banking") Then MapDrive "V:", "\\<IP_ADDRESS>", "\Finance$" End If
If IsMember("MUC Banking") Then MapDrive "N:", "\\<IP_ADDRESS>", "\Banking$" End If

'#################################################################################
'##### Lets assign the User to a Printer group and it will be installed remote ###
'#################################################################################
If IsMember("Printer MUC ColorLaser") Then MapPrinter "\\<IP_ADDRESS>", "\ColorLaser" End If
If IsMember("Printer MUC Developers") Then MapPrinter "\\<IP_ADDRESS>", "\ITDevTeam" End If
If IsMember("Printer MUC Finance") Then MapPrinter "\\<IP_ADDRESS>", "\FinHP4050" End If
If IsMember("Printer MUC Helpdesk") Then MapPrinter "\\<IP_ADDRESS>", "\helpdesk" End If
If IsMember("Printer MUC HPLaser5") Then MapPrinter "\\<IP_ADDRESS>", "\HPLaserJ5L" End If
If IsMember("Printer MUC HR Color Laser") Then MapPrinter "\\<IP_ADDRESS>", "\HumanResGer" End If
If IsMember("Printer MUC HR HP2100") Then MapPrinter "\\<IP_ADDRESS>", "\HumResHP2100" End If
If IsMember("Printer MUC Licensing") Then MapPrinter "\\<IP_ADDRESS>", "\License" End If
If IsMember("Printer MUC Marketing") Then MapPrinter "\\<IP_ADDRESS>", "\MKTHP4100" End If
If IsMember("Printer MUC Marketing HP1220") Then MapPrinter "\\<IP_ADDRESS>", "\MKTHP1220C" End If
If IsMember("Printer MUC Marketing Office") Then MapPrinter "\\<IP_ADDRESS>", "\MKTOffice" End If
If IsMember("Printer MUC PRT77") Then MapPrinter "\\<IP_ADDRESS>", "\FinPrt77" End If
If IsMember("Printer MUC Purchase 4050") Then MapPrinter "\\<IP_ADDRESS>", "\PCHS4050N" End If
If IsMember("Printer MUC Rother") Then MapPrinter "\\<IP_ADDRESS>", "\DevOffHP2200" End If
If IsMember("Printer MUC Sales (Blanco)") Then MapPrinter "\\<IP_ADDRESS>", "\CCHP4000N" End If
If IsMember("Printer MUC Sales (Office)") Then MapPrinter "\\<IP_ADDRESS>", "\CCHP4000TN" End If
If IsMember("Printer MUC Sales Office - Holzner") Then MapPrinter "\\<IP_ADDRESS>", "\CCOHP2100" End If
If IsMember("Printer MUC Sales PRT12") Then MapPrinter "\\<IP_ADDRESS>", "\PRT12" End If
If IsMember("Printer MUC Techserv HP1120C") Then MapPrinter "\\<IP_ADDRESS>", "\TSHP1120C" End If
If IsMember("Printer MUC Techserv Laser") Then MapPrinter "\\<IP_ADDRESS>", "\TSHP4050" End If
If IsMember("Printer MUC Warehouse") Then MapPrinter "\\<IP_ADDRESS>", "\WHHP2100" End If
If IsMember("Printer MUC Training Office") Then MapPrinter "\\<IP_ADDRESS>", "\TRNHP2100" End If
If IsMember("Printer MUC WebTeam") Then MapPrinter "\\<IP_ADDRESS>", "\ITWebTeam" End If
'#################################################################################
'##### Rename the shares to a readable name! Always remember - users are users ###
'#################################################################################
set WSHShell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshNetwork = CreateObject("WScript.Network")
On error resume next

WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Public$\_LabelFromReg", "Public"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Finance$\_LabelFromReg", "Finance Intern"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#HR$\_LabelFromReg", "Personal"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#IT$\_LabelFromReg", "IT Service"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Licensing$\_LabelFromReg", "Licensing"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Marketing$\_LabelFromReg", "Marketing"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Sales$\_LabelFromReg", "Sales"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Techserv$\_LabelFromReg", "Techserv"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Showroom$\_LabelFromReg", "Showroom"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Developers$\_LabelFromReg", "Developers"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#ESC-Finance$\_LabelFromReg", "ESC Finance"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#ESC-Purchase$\_LabelFromReg", "ESC Purchase"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Banking$\_LabelFromReg", "Banking"

WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#DB$\_LabelFromReg", "DB Applications"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#SD-SalesADM$\_LabelFromReg", "SalesADM"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#SD-PSS$\_LabelFromReg", "Marketing PSS"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Developers$\_LabelFromReg", "Source Codes"

WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#SD-Licensing$\_LabelFromReg", "Shared License"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#SD-Finance$\_LabelFromReg", "Finance"
WshShell.RegWrite "HKEY_CURRENT_USER\" _
& "Software\Microsoft\Windows" _
& "\CurrentVersion\Explorer\MountPoints2\##<IP_ADDRESS>#Showroom$\_LabelFromReg", "ShowRoom"

'-----------------
Function IsMember(sGroup)
 Dim sAdsPath, oUser, oGroup
 If IsEmpty(oGroupDict) Then
     Set oGroupDict         = CreateObject("Scripting.Dictionary")
     oGroupDict.CompareMode = vbTextCompare
     sAdsPath  = oNet.UserDomain & "/" & oNet.UserName
     Set oUser = GetObject("WinNT://" & sAdsPath & ",user")
     For Each oGroup In oUser.Groups
         oGroupDict.Add oGroup.Name, "-"
     Next
     Set oUser = Nothing
 End If
 IsMember = CBool(oGroupDict.Exists(sGroup))
End Function
'-----------------
Function MapDrive(Drive, FileServer, Share)
 If oFSO.DriveExists(FileServer & Share) = True Then
     oNet.MapNetworkDrive Drive, FileServer & Share
     'Wscript.Echo("Mapping drive " & Drive & " to " & FileServer & Share) '#### only for debugging the script
 Else
     'Wscript.Echo("Cannot Map " & Drive & " to " & FileServer & Share) '#### only for debugging the script
 End If
End Function
'-----------------
Function MapPrinter(PrintServer, Printer)
 Dim oPrinter, PrtServer, PrtName, Prt
 Prt       = PrintServer & Printer  'Strip backslashes from UNC names
 PrtServer = Left(Prt,InStr(3,Prt, "\") - 1)
 PrtServer = Right(Left(Prt,InStr(3,Prt, "\") - 1), Len(PrtServer) - 2)
 PrtName   = Right(Prt, Len(Prt) - Len(PrtServer) - 3)
 On Error Resume Next
 Set oPrinter = GetObject("WinNT://" & oNet.UserDomain & "/" & PrtServer & "/" & PrtName)
 If (oPrinter.Name = "" OR oPrinter.Class <> "PrintQueue") Then
     'Wscript.Echo("Printer " & PrintServer & Printer & " is not a valid network printer") '#### only for debugging the script
 Else
     oNet.AddWindowsPrinterConnection(PrintServer & Printer)
     'Wscript.Echo("Mapping printer to " & PrintServer & Printer) '#### only for debugging the script
 End If
End Function

Enjoy it!

Cleared out Server Names and IP Address'

< Message edited by Country73 -- 6/16/2006 12:47:29 AM >

Revisions: 2 | Post #: 1

RE: Very first login script :-) Might be usefull for so... - 6/15/2006 11:41:25 PM

Weegie

Posts: 6
Score: 0
Joined: 5/9/2006
Status: offline

Hey. I would suggest you delete your IP addresses, paths and servernames from this script. You are selling out your domain!

Also, I would advice against using your script to map logon drives, as best practice is to let AD do what AD can do, and use loginscripts for the rest. A Group Policy should be used before you do the same in a script FYI.

(in reply to torstenj)

Post #: 2

RE: Very first login script :-) Might be usefull for so... - 6/23/2006 1:30:20 AM

torstenj

Posts: 9
Score: 2
Joined: 6/6/2006
Status: offline

Wether the domain nor the subnets are longer existing.
And btw, I'm surprised if someone will hack the 192.168.x.x network - be sure :-)

Regards,

Torsten

(in reply to Weegie)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Very first login script :-) Might be usefull for someone

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts