L'écriture d'un script d'ouverture de session pour différents utilisateurs dans VB doit pouvoir mapper les lecteurs. Besoin d'aide

Question

Ce qui se passe maintenant, c'est que les fichiers .bat sont exécutés à l'ouverture de session, qui exécute le mappage des lecteurs. Nous voulons maintenant les changer en script VB. Un problème de couple, cependant:

Il y a 18 disques à la carte (f par w)

Les utilisateurs ne sont pas correctement groupe (le cas échéant). Je vais probablement les changer en groupes corrects, j'espère qu'ils seront trois différents pour que le script puisse regarder ce groupe et savoir quoi faire.

Il doit démarrer un système appelé LUMINX (pas sûr si quelqu'un ici a déjà travaillé avec lui.Si vous avez cependant, je suis sûr que vous savez qu'il est de la plus sombre et profonde de l'enfer). Qui est défini sur une certaine adresse IP et sous LUMINX_LIVE.

Je suis nouveau pour le codage, et je n'ai jamais vraiment abordé quelque chose comme ça avant. J'ai examiné certains codes qui fonctionnent, mais tout le monde semble être un peu hors et ne pas avoir quelque chose dont j'ai besoin.

Toute aide serait grandement appréciée.

Answer 1

code à la carte avec un lecteur vbscript

Set objNetwork = CreateObject("WScript.Network") 
objNetwork.MapNetworkDrive "F:", "\\Server\Folder\Folder" 
objNetwork.MapNetworkDrive "G:", "\\Server\Folder2\Folder2" 
objNetwork.MapNetworkDrive "H:", "\\Server\Folder3\Folder3" 
....................... 
objNetwork.MapNetworkDrive "V:", "\\192.x.x.x\luminx_live" 

Vous devrez modifier les emplacements de dossier, mais cela devrait fonctionner pour vous. Je ne suis pas sûr du problème de luminx (EDIT: trucs luminx inclus). Est-ce un service ou un ordinateur? Plus de détails seraient utiles

Answer 2

Vous pouvez utiliser le code suivant pour mapper des lecteurs, cependant ceci est modifié du code de bugtussle car il donne à l'utilisateur un message d'erreur si le lecteur ne peut pas être mappé, ceci peut être utile.

Set wshNetwork = CreateObject("WScript.Network") 
On Error Resume Next 

With wshNetwork 
    .MapNetworkDrive "G:", "\\CompanyServer\Dept" 
    If Err Then 
     WScript.Echo "Error " & Err & " mapping drive G:" 
     WScript.Echo "(" & Err.Description & ")" 
    End If 

    .MapNetworkDrive "H:", "\\CompanyServer\" & .UserName 
    If Err Then 
     WScript.Echo "Error " & Err & " mapping drive H:" 
     WScript.Echo "(" & Err.Description & ")" 
    End If 
End With 

On Error Goto 0 
Set wshNetwork = Nothing