Multiple Site Login Script

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Multiple Site Login Script

Logged in as: Guest

arrSession:exec spGetSession 2,16,49002

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

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Multiple Site Login Script
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Multiple Site Login Script - 7/3/2007 3:54:09 AM

Wyvern

Posts: 11
Score: 0
Joined: 6/21/2007
Status: offline

'Comments Section
'-------------------------------------------------------------------
'VBS Multiple site scripting with dialog boxes and
'Jim Martin 1:16 PM 6/27/2007 Cleaned up and updated entire script.
'--------------------------------------------------------------------
'End Comments
'---------------------------------------------
' Establish Connections To "Shell" & "Network"
' --------------------------------------------
On Error Resume Next
Set objShell = WScript.CreateObject("Wscript.Shell")
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strComputer = "."
Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
'Message for users while waiting on scripting to complete
' --------------------------------------------
strComputer = "."
Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
Set objExplorer = CreateObject _
("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Left = (intHorizontal - 300) / 2
objExplorer.Top = (intVertical - 100) / 2
objExplorer.Width = 300
objExplorer.Height = 100
objExplorer.Visible = 1
objExplorer.Document.Body.Style.Cursor = "wait"
objExplorer.Document.Title = "Logon script in progress"
objExplorer.Document.Body.InnerHTML = "Your logon script is being processed. "
Wscript.Sleep 1000
' --------------------------------------------
'Set Time
' --------------------------------------------

objShell.exec ("net time %logonserver% /set /yes")

'---------------------------------------------
' Bind to the user and computer objects with the LDAP provider.
' --------------------------------------------
strUserPath = "LDAP://" & objSysInfo.UserName

Set objUser = GetObject(strUserPath)
For Each strGroup in objUser.MemberOf

strGroupPath = "LDAP://" & strGroup

Set objGroup = GetObject(strGroupPath)

strGroupName = objGroup.CN

' Map a network drive based on group Membership
' --------------------------------------------
' Map a common network drive
' --------------------------------------------
Select Case strGroupName
'***********United States Locations***********
'---------------------------------------------
'Columbus, NE drive mappings
'---------------------------------------------

Case "XXX_Users"

objNetwork.MapNetworkDrive "G:", "\\server1\share1"
Case "XXX2_Users"

objNetwork.MapNetworkDrive "T:", "\\server1\share2"

Case "XXX3_Users"

objNetwork.MapNetworkDrive "S:", "\\server1\share3"
Case "XXX4_Users"

objNetwork.MapNetworkDrive "I:", "\\server1\share4"

'---------------------------------------------
'Velva, ND drive & printer mappings
'---------------------------------------------
Case "XXX5_Users"

objNetwork.MapNetworkDrive "L:", "\\Server2\Common$"

objNetwork.AddWindowsPrinterConnection "\\Server2\HPDesignJet"

objNetwork.AddWindowsPrinterConnection "\\Server2\TOSHIBA1"

objNetwork.AddWindowsPrinterConnection "\\Server2\TOSHIBA2"

Case "XXX6_Users"

objNetwork.MapNetworkDrive "M:", "\\Server2\Share5$"
Case "XXX7_Users"

objNetwork.MapNetworkDrive "N:", "\\Server2\Share6$"

Case "XXX8_Users"

objNetwork.MapNetworkDrive "O:", "\\Server2\Share7$"

Case "XXX9_Users"

objNetwork.MapNetworkDrive "P:" , "\\Server2\Share8$"

Case "XXX10_Users"
objNetwork.MapNetworkDrive "Q:", "\\Server2\Share9$"

Case "XXX11_Users"

objNetwork.MapNetworkDrive "R:", "\\Server2\Share10$"

Case "XXX12_Users"

objNetwork.MapNetworkDrive "S:", "\\Server2\Share11$"

End Select
Next
'------------------------------------------------------
'Dialog to let user know that drive mapping is complete
'------------------------------------------------------
objExplorer.Document.Body.InnerHTML = "Your Logon Script is now complete."
objExplorer.Document.Body.Style.Cursor = "default"
Wscript.Sleep 1000
objExplorer.Quit

Any problems or question, post reply!!