logonscript.vb køres ikke ved logon?

Smid script ?

Hvad mener du?

... må vi læse teksten ?

hvor har du lagt scriptet ?

Option Explicit
On Error Resume Next 

Dim FSO
Dim Shell
Dim net 

Set net = CreateObject("WScript.Network")   
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("WScript.Shell") 


' Forbindelse af drev på baggrund af gruppetilhørsforhold

If ErMedlem("GL-FAELLES")         Then net.MapNetworkDrive "I:", "\\vmf\dfs\Fælles","False" End If
If ErMedlem("GL-BILLEDER")         Then net.MapNetworkDrive "J:", "\\vmf\dfs\Billeder","False" End If
If ErMedlem("GL-KONTOR")         Then net.MapNetworkDrive "K:", "\\vmf\dfs\Kontor","False" End If
If ErMedlem("GL-EL")             Then net.MapNetworkDrive "L:", "\\vmf\dfs\El","False" End If
If ErMedlem("GL-TEGNESTUEN")         Then net.MapNetworkDrive "M:", "\\vmf\dfs\Tegnestuen","False" End If
If ErMedlem("GL-REGNSKAB")         Then net.MapNetworkDrive "R:", "\\vmf\dfs\Regnskab","False" End If
If ErMedlem("GL-THERMO_SERVICE")    Then net.MapNetworkDrive "S:", "\\vmf.local\dfs\Thermo_Service","False" End If

' ----------------------------------------------------------------------------------------

Function ErMedlem(Gruppe)
    On Error Resume Next
    ' Funktionen bruger net objektet som er defineret længere oppe
    On Error Resume Next   
    Dim usr
    Dim grp
    ErMedlem=False
    Set usr = GetObject("WinNT://vmf/" & net.username & ",user")
    For Each grp In usr.Groups
        if grp.Name=Gruppe then ErMedlem=True
    Next
End Function

Tanke - det kan være at der skal være lidt delay for at alle forbindelser er på plads FØR kørsel ? Det har jeg set/læst/hørt om før ...

Scriptet afvikles via en logon policy, og som sagt fungere det fint på en XP Pro.

Hvordan laves en delay?

Lukker...

Lukker