Ajouter un lecteur réseau dans le script eleve4bis

Bonjour,
Dans l'exemple cité ci-dessous le nom du serveur semble être TEST-KOXO. Est-il possible d'utiliser une variable faisant référence au nom du serveur à la place dans le script ?
Dans la configuration, onglet 'Serveur' je vois la liste de mes 3 serveurs. Celui qui m'intéresse est en deuxième position.
Je vais en effet prochainement migrer koxo vers un autre serveur qui aura un autre nom. Cela m'évitera alors de modifier mes script.

En vous remerciant
Cordialement
Pascal

ERIC BERRIET écrit: Bonjour,

J'utilise le script eleve4bis.vbs
Je souhaite faire en sorte que l'élève retrouve son lecteur réseau nommé HISTOIRE dans l'explorateur (à la manièere de l'espace partagé.

J'ai créée l'espace partagé à l'aide de Koxo que j'ai attribué aux utilisateurs et donné tous les droits
J'ai modifié le script (voir ci-script plus bas).
Malheureusement à l'ouverture de session le lecteur partagé n'apparaît pas dans l'explorateur....
Comment faire ?
Merci

La ligne concernée est:
<code> ConnectDrive "V:","\\TEST-KOXO\Eleves$\HISTOIRE","HISTOIRE"

'

---

'(c) 2006-2015 KoXo Dev. Script VBS "Elèves 4bis"
'

---

'Unmap existing drives
UnconnDrives
Set UserObj=FindUser
If Not IsEmpty(UserObj) Then
'Map Home Drive
ConnectDrive UserObj.HomeDirDrive,UserObj.HomeDirectory,"Espace personnel de "+UserObj.fullName
End If
'Map Group Drive
ConnectDrive "%GROUP_DRIVE%","\\%SECONDARY_GROUP_SERVER%\%SECONDARY_GROUP%$","Ma classe [%SECONDARY_GROUP%]"
ConnectDrive "V:","\\TEST-KOXO\Eleves$\HISTOIRE","HISTOIRE"
'Remove next quote to display user and computer informations on the wallpaper
Execute GetLogonServer+"\NETLOGON\Wallpaper.vbs /BackGroundColor=#A56E3A"
'End
WScript.Quit
'

---

'///////////
'// Execute
function execute(CommandLine)
On Error Resume Next
Dim oShell
Set oShell=CreateObject("WScript.Shell")
Err.Clear
oShell.Run CommandLine,1,True
If Err.Number<>0 Then
oShell.Popup "Execution : " & CommandLine & VbCrLf & "Description=" & Err.Description & VbCrLf & "Code=" & Err.Number,5,"Erreur",64
End If
end function
'////////////////////////////////
'// Unconnect all network drives
function UnconnDrives()
On Error Resume Next
Dim objNetwork
Dim i,colDrives
Set objNetwork=WScript.CreateObject("WScript.Network")
'Unmap existing drives
Set colDrives=objNetwork.EnumNetworkDrives
If colDrives.Count<>0 Then
For i=0 To colDrives.Count-1 Step 2
objNetwork.RemoveNetworkDrive colDrives(i),"True","True"
Next
End If
End function
'/////////////////////
'// Find a user in AD
function FindUser()
On Error Resume Next
Dim objNetwork,oScriptShell
Dim strUserName,strUserDomain,sUserObj
Dim i,UserObj
Set objNetwork=WScript.CreateObject("WScript.Network")
Set oScriptShell=CreateObject("WScript.Shell")
strUserName=objNetwork.UserName
strUserDomain=objNetwork.UserDomain
sUserObj="WinNT://" & strUserDomain & "/" & strUserName
i=0
Do
i=i+1
Set UserObj=GetObject(sUserObj)
If UserObj Is Nothing Then WScript.Sleep 1000 End If
Loop While (i<20) And IsEmpty(UserObj)
If UserObj Is Nothing Then
oScriptShell.Popup "Impossible de trouver : " & sUserObj,5,"Erreur GetObject",64
End If
Set FindUser=UserObj
End function
'///////////////////
'// Connect a drive
function ConnectDrive(Drive,Path,Description)
On Error Resume Next
Dim objNetwork,oScriptShell
Set objNetwork=WScript.CreateObject("WScript.Network")
Set oScriptShell=CreateObject("WScript.Shell")
Set oShell=CreateObject("Shell.Application")
Err.Clear
objNetwork.MapNetworkDrive Drive,Path
If Err.Number<>0 Then
oScriptShell.Popup "Connexion lecteur " & Drive & " (" & Path & ")" & VbCrLf & "Description=" & Err.Description & VbCrLf & "Code=" & Err.Number,5,"Erreur",64
Else
oShell.NameSpace(Drive).Self.Name=Description
End If
end function
'//////////////////////
'// Get the LogonServer
function GetLogonServer()
Dim objShell
Set objShell=Wscript.CreateObject("Wscript.Shell")
GetLogonServer=objShell.ExpandEnvironmentStrings("%LOGONSERVER%")
End Function </code>

Bonjour,

KoXo Administrator a été créé autour de modèles, de variables et fonctions.

Si vous voulez utiliser le deuxième serveur de la liste de serveur déclarés, vous pouvez utiliser :

%SERVER[2]%

La fin de la documentation détaille tout ça :



Cdt

Le support

Bonsoir,
Merci de l'info, utilisant la version 2.9, lorsque je saisis le code suivant :
ConnectDrive "X:","\\%SERVER[2]%\Photos$","Photos"
j'ai une erreur à l'ouverture de la session. Une faute de syntaxe sans doute mais j'ai fait plusieurs essais sans résultat (%server[1]%, des guillemets, ...)
Dans l'onglet 'serveurs' de la configuration, la 'liste des serveurs' indique :
pedagogie_02 BDC
pedagogie_05 SRV
image SRV

Merci d'avance
Cordialement

Bonjour,

Vous mettez %SERVER[2]% au niveau du groupe primaire, en faisant "propager", est le bon nom qui se retrouve au niveau des scripts de groupes secondaires ?

Au niveau GP vous avez : ConnectDrive "X:","\\%SERVER[2]%\Photos$","Photos"

Au niveau GS vous devriez avoir : ConnectDrive "X:","\\pedagogie_05\Photos$","Photos"

(compte tenu de vos indications).

Vous pouvez aussi mettre carrément le bon nom.

Ensuite, avez vous testé si le chemin UNC complet fonctionne ?

Est ce que les droits sont bons ?

Lors du login quel est le message d'erreur affiché ?

Cdt

Le support

Bonjour,
En fait la variable %SERVER[n]% n'est utilisable que dans le script d'un groupe primaire ! Je faisais mes tests dans un script secondaire, voilà pourquoi cela ne fonctionnait pas.
J'ai donc bien :
Au niveau GP : ConnectDrive "X:","\\%SERVER[2]%\Photos$","Photos"
Au niveau GS : ConnectDrive "X:","\\pedagogie_05\Photos$","Photos"

Merci de votre aide
Cordialement
Pascal

Admin KoXo écrit: Bonjour,

Vous mettez %SERVER[2]% au niveau du groupe primaire, en faisant "propager", est le bon nom qui se retrouve au niveau des scripts de groupes secondaires ?

Au niveau GP vous avez : ConnectDrive "X:","\\%SERVER[2]%\Photos$","Photos"

Au niveau GS vous devriez avoir : ConnectDrive "X:","\\pedagogie_05\Photos$","Photos"

(compte tenu de vos indications).

Vous pouvez aussi mettre carrément le bon nom.

Ensuite, avez vous testé si le chemin UNC complet fonctionne ?

Est ce que les droits sont bons ?

Lors du login quel est le message d'erreur affiché ?

Cdt

Le support

Bonjour,

La variable "%SERVER[n]%" est une variable globale, elle indique le serveur de rang "n" de la liste des serveurs déclarés. (le nom est remplacé automatiquement à la création ou lorsque l'on clique sur le bouton "Propager".

Si on propage le script la variable est interprétée et le nom final apparaît au niveau du groupe secondaire (vous pouvez le vérifier). Le client sous Windows 7 à Windows 10 ne peut pas interpréter directement cette variable "KoXo" bien évidemment !

Le script du groupe primaire est un modèle qui est interprété au niveau de chaque groupe secondaire !

KoXo administrator est très modélisé.....

Le but final étant de limiter les saisies.

Cdt

Le support