Problem: Ldap Vbscript windows logon

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Problem: Ldap Vbscript windows logon

Logged in as: Guest

arrSession:exec spGetSession 2,2,29837

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

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Problem: Ldap Vbscript windows logon
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Problem: Ldap Vbscript windows logon - 1/12/2006 7:03:25 PM

brainstorm

Posts: 1
Score: 0
Joined: 1/12/2006
Status: offline

Hi,

i've just scripted a vbscript for Windows logon.
The Problem is that the Home Drive for Users is mapped with
and I want to add a "$" after "objNetwork.UserName", but I don't know how ?!

Anyone an idea ?

Here is the complete login script again:

Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup
Const IT_2005 = "cn=IT-SE-2005"
Const IT_2004 = "cn=IT-SE-2004"
Const IT_2003 = "IT-SE-2003"
Const Azb_KFB = "cn=Kfb"
Const Admin_Group = "cn=Administratoren"
Set objNetwork = CreateObject("WScript.Network")
' �berspringt Fehler !!!
on error resume next
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
' Entfernt alle noch verbundenen Netzlaufwerke !!!
WshNetwork.RemoveNetworkDrive "m:"
WshNetwork.RemoveNetworkDrive "n:"
WshNetwork.RemoveNetworkDrive "o:"
WshNetwork.RemoveNetworkDrive "p:"
WshNetwork.RemoveNetworkDrive "q:"
WshNetwork.RemoveNetworkDrive "r:"
WshNetwork.RemoveNetworkDrive "s:"
WshNetwork.RemoveNetworkDrive "t:"
WshNetwork.RemoveNetworkDrive "u:"
WshNetwork.RemoveNetworkDrive "v:"
WshNetwork.RemoveNetworkDrive "w:"
WshNetwork.RemoveNetworkDrive "x:"
WshNetwork.RemoveNetworkDrive "y:"
WshNetwork.RemoveNetworkDrive "z:"
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))
' Netzlaufwerke die f�r jeden User gelten !!!
objNetwork.MapNetworkDrive "w:", "\\dv-server\IT-Wissen"
objNetwork.MapNetworkDrive "m:", "\\dv-server\"  & objNetwork.UserName
' Drucker die f�r alle User verbunden werden !!!
Set net = CreateObject("WScript.Network") 
net.AddWindowsPrinterConnection "\\dv-server\lexmark", "Lexmark Drucker"
' Gruppenspezifisch Netzlaufwerke zuweisen !!!
if InStr(strGroup, Azb_KFB) then
  objNetwork.MapNetworkDrive "y:", "\\dv-server\Kfb$"
end if
if InStr(strGroup, IT_2003) then
  objNetwork.MapNetworkDrive "v:", "\\dv-server\IT-SE-2003$"
end if
if instr(strGroup, IT_2004) then
  objNetwork.MapNetworkDrive "t:", "\\dv-server\IT-SE-2004$" 
end if
if instr(strGrooup, IT_2005) then
  objNetwork.MapNetworkDrive "t:", "\\dv-server\IT-SE-2005$"
end if
if InStr(strGroup, Admin_Group) then
objNetwork.MapNetworkDrive "y:", "\\dv-server\CSoftware$"
objNetwork.MapNetworkDrive "z:", "\\dv-server\Terminal$"
end if

Post #: 1

RE: Problem: Ldap Vbscript windows logon - 1/12/2006 11:13:22 PM

crazymatt

Posts: 296
Score: 0
Joined: 3/4/2005
From:
Status: offline

try this

objNetwork.MapNetworkDrive "m:", "\\dv-server\" & objNetwork.UserName & "$"

/Matt

_____________________________

-There is only 10 sorts of people, those who understand binary and those who dont.

(in reply to brainstorm)

Post #: 2

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

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Problem: Ldap Vbscript windows logon

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