Hello All:
We have two files that are trying to contain drive mappings. I am having a
hard time figuring out how to combine these two into one file that works in
both environments. Group File contains drive mappings by group which works
great in WindowsXP, but not in Windows98. However: Test File works in both
environments, but does not contain any group information. I am not sure
what I am missing, and hoping someone here would be able to help.
----------------------------------------------------------------------------
-----------------------
GROUP
----------------------------------------------------------------------------
-----------------------
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
'Wscript.echo strUser.Username
strUserPath = "LDAP://"; & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
'Wscript.Echo
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://"; & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
'Wscript.echo objSysInfo.UserName
Select Case strGroupName
Case "Prepress Main Group WBO"
objNetwork.MapNetworkDrive "T:", "\\REGWPROD\DATA
<file://\\REGWPROD\DATA> "
'wscript.echo "Dirve S has been mapped to DATA on REGWPROD"
'Case "Human Resource Users"
' objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\hr
<file://\\atl-fs-01\hr> "
'Case "Manufacturing Users"
' objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\manufacturing
<file://\\atl-fs-01\manufacturing> "
'Case "Shipping and Receiving Users"
' objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\shipping
<file://\\atl-fs-01\shipping> "
End Select
Next
----------------------------------------------------------------------------
-----------------------
TEST
----------------------------------------------------------------------------
-----------------------
Option Explicit
Dim oNet, sUser, cInitial, startTime
' Helper object
Set oNet = CreateObject("WScript.Network")
' Get the user name. On Windows 9x, the use may not be logged
' on when the script starts running; keep checking every 1/2 a
' second until they are logged on.
sUser = oNet.UserName
startTime = Now
Do While sUser = ""
If DateDiff("s", startTime, Now) > 30 Then Wscript.Quit
Wscript.Sleep 500
sUser = oNet.UserName
Loop
' Add a share for the "h" drive and the printer, based on the
' first letter of the user's name
'cInitial = UCase(Left(sUser, 1))
'If (cInitial < "L") Then
oNet.MapNetworkDrive "T:", "\\REGWPROD\DATA <file://\\REGWPROD\DATA> "
'oNet.AddWindowsPrinterConnection "\\printer1\hp <file://\\printer1\hp>
", "HP LaserJet 4"
'Else
' oNet.MapNetworkDrive "h:", "\\server2\users\ <file://\\server2\users\> "
& sUser
' oNet.AddWindowsPrinterConnection "\\printer2\hp <file://\\printer2\hp>
", "HP LaserJet 4"
'End If
Thanks
Andy Mills
Programmer
Regency Thermographers
717-765-3572
<mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
http://www.regencythermo.com <http://www.regencythermo.com/>
[Non-text portions of this message have been removed]
---------------------------------------------------------------------
Home : http://groups.yahoo.com/group/active-server-pages
---------------------------------------------------------------------
Post : [email protected]
Subscribe : [EMAIL PROTECTED]
Unsubscribe: [EMAIL PROTECTED]
---------------------------------------------------------------------
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/active-server-pages/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
