Semi advanceret logon script - drive mapping

Hejsa.
Prøv med noget lignende:

Kald en metode, der returnerer en gruppe som en streng, hvis brugeren er medlem af andre grupper end domain users.

' Map gruppe-specifikt drev
strGroup = GetGroupMemberships()
If strGroup <> "" Then
    MapNetworkDrive "G:", "\\fs1\" & strGroup
End If

Og selve metoden, hcor det sker.

' *************************************************
' Hent grupper for bruger
' *************************************************
Function GetGroupMemberships()
    Dim objNetwork, objUser, objGroup
    Dim strDomain, strUser, strResponse
   
    Set objNetwork = CreateObject("WScript.Network")
    strDomain = objNetwork.UserDomain
    strUser = objNetwork.UserName
   
    Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser)
    For Each objGroup In objUser.Groups
        If objGroup.Name <> "Domain Users" Then
        strResponse = objGroup.Name
        End If
    Next   
    GetGroupMemberships = strResponse
End Function

Nu har jeg lavet det sådan, at der returneres en string med gruppen da jeg kun har brugere der er medlem af én enkelt gruppe, men med en smule ændringer - altså en løkke-struktur kan du lave det anderledes.

Hey Storm !
Hvis du har flere brugere med flere medlemskaber kan du bruge ismember :

Set network = WScript.CreateObject("wscript.network")
WScript.Echo Network.UserDomain
StrMedlem = "Domain Admins" 'Gruppen, de skal  tilhøre
Set StrGruppe = GetObject("WinNT://" & Network.UserDomain & "/" & StrMedlem)
If StrGruppe.isMember("WinNT://" & Network.UserDomain & "/" & network.UserName) Then
'Map dine drev herinde
End If

/Killer

Hej

Tak det ser meget fornuftigt ud.

Kan man eventuelt få den til at læse indholdet af en INI fil? Så sikkerheds grupper og stier står i en INI fil, og bare selve kommandoen ligger i vbs scriptet, det er nemlig sådan det fungerer i dag, og det er nemt at rette i

Hejsa.

Hvad er det du vil rette?
Hvad kan være nemmere end at hente gruppemedlemskaberne direkte der hvor gruppemedlemskaberne hører hjemme, nemlig i AD?

Du misforstår.

Jeg vil naturligvis ikke rette noget, og naturligvis skal gruppemedlemsskaberne hentes fra AD.

Jeg vil blot have at vb scriptet skal læse mapnings dataen fra en ini fil feks

[DKGLOBALMARKETING]
\\dkdata01\marketing$

osv osv

Sådan at den ser efter gruppe navn, og sti i en ini fil. Måske for kompleks?

Anyway, jeg har nu forsøgt lidt frem og tilbage og det spiller ikke helt som jeg vil.

For at simplificere det, vil jeg bare lave et script pr lokation. Det bliver nok det nemmeste.

tanken er noget ala dette:

Set network = WScript.CreateObject("wscript.network")
WScript.Echo Network.UserDomain
StrMedlem = "dkcopenhagenstandard" 'Gruppen, de skal  tilhøre
Set StrGruppe = GetObject("WinNT://" & Network.UserDomain & "/" & StrMedlem)
If StrGruppe.isMember("WinNT://" & Network.UserDomain & "/" & network.UserName) Then
MapNetworkDrive "R:", "\\server1\Department"
'Map=R:;\\server1;\DEPARTMENT
'Map=S:;\\server1;\SHARED
'Map=T:;\\server1;\TEMPORARY
End If

Jeg ved godt de sidste fire linjer er noget kage, men det er fordi jeg har rodet med forskellige drive mapnings kommandoer. Men ingen af dem lader til at spille som tiltænkt.

Nu fik jeg faktisk det her kode til at virke

'»»» Object Declarations «««
'    On Error Resume Next
    Set WshShell=WScript.CreateObject("WScript.Shell")
    set fso=CreateObject("Scripting.FileSystemObject")
    set WshNetwork = CreateObject("WScript.Network")
    Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
    Set NameSpace = wmiLocator.ConnectServer(".", "root\default")
    Set objRegistry = NameSpace.Get ("StdRegProv")
    Const HKEY_CLASSES_ROOT  = &H80000000
    Const HKEY_CURRENT_USER  = &H80000001
    Const HKEY_LOCAL_MACHINE = &H80000002
    Const HKEY_USERS        = &H80000003

'----------------------------------------------------------------------------------------
' Map gruppe-specifikt drev
strGroup = GetGroupMemberships()
If strGroup <blablabla> "" Then
WShNetwork.MapNetworkDrive "R:", "\\server1\department"
WShNetwork.MapNetworkDrive "S:", "\\server1\Shared"
WShNetwork.MapNetworkDrive "T:", "\\server1\Temporary"
End If

strGroup = GetGroupMemberships()
If strGroup <IT Department> "" Then
WShNetwork.MapNetworkDrive "I:", "\\server1\IT"
End If


'Og selve metoden, hcor det sker.

' *************************************************
' Hent grupper for bruger
' *************************************************
Function GetGroupMemberships()
    Dim objNetwork, objUser, objGroup
    Dim strDomain, strUser, strResponse
   
    Set objNetwork = CreateObject("WScript.Network")
    strDomain = objNetwork.UserDomain
    strUser = objNetwork.UserName
   
    Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser)
    For Each objGroup In objUser.Groups
        If objGroup.Name <dkcphappstandard> "Domain Users" Then
        strResponse = objGroup.Name
        End If
    Next   
    GetGroupMemberships = strResponse
End Function

Dog fejler den, efter jeg har indsat "strGroup = GetGroupMemberships()
If strGroup <IT Department> "" Then
WShNetwork.MapNetworkDrive "I:", "\\server1\IT"
End If"

Den siger expected Then.

Jamen kan det ikke hænge sammen med at du har dobbelt anførselstejn efter gruppenavnet?

If strGroup <IT Department> "" Then

Niks, fordi det virkede indtil jeg satte den næste if sætning ind altså efter jeg indsatte If strGroup <IT Department> "" Then
WShNetwork.MapNetworkDrive "I:", "\\server1\IT"
End If"

Hvis jeg fjerner det dobbelt anførsels tegn, så får den øjeblikkeligt kvalme, og fejler på noget helt andet.

Så fjern i det mindste " efter end if :-)

End If"

Den er jeg sikker på ikke virker i praksis.

Haha ja ok, det er problemet ved at belyse problemstillinger på den her måde.

Den " er slet ikke i scriptet. Det var kun i mit indlæg for at markere start og slut på det indsatte.

Scriptet er som i mit indlæg 11:10

Hej igen.
Jeg ved ikke om det har nogen betydning, men hvis jeg selv skulle lave det du har lavet i form af validering af specifikt gruppe-medlemskab, ville jeg ikke benytte <> rundt om gruppenavnet. Jeg ved som sagt ikke hvorfor du bruger det og har ikke testet om det vil virke, men jeg ville lave det på følgende måde:

If strGroup="IT Department" Then
WShNetwork.MapNetworkDrive "I:", "\\server1\IT"
End If

Jeg går med andre ord ud fra, at det du vil lave med denne sætning er at validere på om brugerens gruppemedlemskab inkluderer IT Department.

Gruppen, der returneres fra den metode, der trækker gruppemedlemskabet ud er jo en string, så jeg ville validere det med "" rundt om gruppenavnet.

Håber det hjælper dig på vej.