[VBS] Netwerkschijven koppelen

[Verwijderd]

Mensen,

Ik ben een inlog script aan het maken die automatisch net werk schijven en printers uitdeeld aan de gebruikers aan de hand van rechten, ik ben al op weg:

code:

 for(i=0;i<4;i++) { .. } 

' VBScript logon script program.
'

Option Explicit

Dim objNetwork, objSysInfo, strUserDN
Dim objGroupList, objUser, objFSO
Dim strComputerDN, objComputer

Set objNetwork = CreateObject("Wscript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.userName
strComputerDN = objSysInfo.computerName

' Bind to the user and computer objects with the LDAP provider.
Set objUser = GetObject("LDAP://" & strUserDN)
Set objComputer = GetObject("LDAP://" & strComputerDN)

' Map a network drive if the user is a member of the group.


objNetwork.MapNetworkDrive "F:", \\<servername>\Persoonlijk Neptunus\" ??USER?? ,True


' Clean up.
Set objNetwork = Nothing
Set objFSO = Nothing
Set objSysInfo = Nothing
Set objGroupList = Nothing
Set objUser = Nothing
Set objComputer = Nothing

Function IsMember(objADObject, strGroup)
' Function to test for group membership.
' objGroupList is a dictionary object with global scope.

  If IsEmpty(objGroupList) Then
    Set objGroupList = CreateObject("Scripting.Dictionary")
  End If
  If Not objGroupList.Exists(objADObject.sAMAccountName & "\") Then
    Call LoadGroups(objADObject, objADObject)
    objGroupList(objADObject.sAMAccountName & "\") = True
  End If
  IsMember = objGroupList.Exists(objADObject.sAMAccountName & "\" _
    & strGroup)
End Function

Sub LoadGroups(objPriObject, objADSubObject)
' Recursive subroutine to populate dictionary object objGroupList.

  Dim colstrGroups, objGroup, j

  objGroupList.CompareMode = vbTextCompare
  colstrGroups = objADSubObject.memberOf
  If IsEmpty(colstrGroups) Then
    Exit Sub
  End If
  If TypeName(colstrGroups) = "String" Then
    Set objGroup = GetObject("LDAP://" & colstrGroups)
    If Not objGroupList.Exists(objPriObject.sAMAccountName & "\" _
        & objGroup.sAMAccountName) Then
      objGroupList(objPriObject.sAMAccountName & "\" _
        & objGroup.sAMAccountName) = True
      Call LoadGroups(objPriObject, objGroup)
    End If
    Set objGroup = Nothing
    Exit Sub
  End If
  For j = 0 To UBound(colstrGroups)
    Set objGroup = GetObject("LDAP://" & colstrGroups(j))
    If Not objGroupList.Exists(objPriObject.sAMAccountName & "\" _
        & objGroup.sAMAccountName) Then
      objGroupList(objPriObject.sAMAccountName & "\" _
        & objGroup.sAMAccountName) = True
      Call LoadGroups(objPriObject, objGroup)
    End If
  Next
  Set objGroup = Nothing
End Sub

Nu werkt dit stukje niet:
objNetwork.MapNetworkDrive "F:", \\<servername>\Persoonlijk Neptunus\" ??USER?? ,True

Krijg syntaxis fout.

Het is de bedoeling dat bij ??USER?? de map gekoppeld word van de ingelogde user.
ik heb al verscheidene dingen geprobeerd zoals:
"user"
&user&
wie kan mij helpen?

[NMe]

Dus jij downloadt een scriptje en verwacht vervolgens dat wij het voor je fixen? GoT is geen quickfix. Neem liever contact op met de maker van het script, of leer programmeren en doe het zelf. En "user" is natuurlijk geen variabele die je gedeclareerd hebt, dus die kun je uiteraard niet zo gebruiken. Kijk eens in Windows Operating Systems, daar kun je vast wel vinden hoe je de gebruikersnaam van de ingelogde gebruiker achterhaalt.