VBS - Script de connexion domaine

Version imprimable

13/09/2009, 03h34
Leboubou111

VBS - Script de connexion domaine

Bonjour à tous,

Nouveau sur ce forum j'aimerai avoir quelques conseils pour mon projet...

Mon Projet : Changer mon script de connexion actuellement en Batch pour le passer en VBS (plus de possibilités, plus rapide et pas possible de le canceller pour les users)

Etant donné qu'on peut faire plus de choses en VBS qu'en batch (malgré qu'on peut déjà en faire pas mal) je voudrais donc mettre 2 ou 3 fonctions supplémentaires :

En fonction de leur OU dans l'AD :
- Déconnexion de tous les lecteurs réseaux sauf W, X, Y et Z
- Mapp de lecteur réseau
- Rajout d'icones (raccourcis) sur le bureau
- Changement de la page de démarrage d'IE
- Redirection de leurs dossiers Bureau, Mes Documents et Favoris sur leurs dossiers perso du serveur (en R: monté lors du script)

Plus : :oops:
- Vérifier si présence de l'anti-virus
- Vérifier espace disque restant sur C: et R: (lettre perso) avec l'envoi d'un message (e-mail) si moins de 1.5 Gb pour C et moins de 100 Mb pour R

Faire apparaitre un Box en mettant dedans :
- le nom du domaine
- le nom de l'ordinateur
- le système et la version du système d'exploitation (Windows)
- l'adresse IP de l'ordinateur
- le nom de l'utilisateur
- le groupe auquel il appartient
- les lecteurs réseau mappé
- l'espace disque restant sur le C: et R: (lettre perso)
- Bouton OK et le faire disparaitre au bout de 5 secondes

IMPORTANT : Pour la redirection (Bureau, mes docs et favoris), il ne fait pas qu'elle reste en fonction quand la personne se connecte sans le réseau sur son PC Portable (donc il faut faire je pense une synchro lors de la déconnexion que pour les PC Portables)
Je ne veux pas faire de profil itinérant mon serveur SBS 2003 parce que faire une synchro du profil complet à chaque user sera plus important au niveau taille et donc plus lourd pour le réseau...:roll:

Je travaille dessus à l'heure actuelle mais je n'ai encore rien de concret...:?
Si quelqu'un à une petite idée sur un ou deux truc ca m'aiderai beaucoup. :ccool:
15/09/2009, 01h28
Fredledingue

C'est quoi exqctement des "lecteurs réseaux". (Pardon pour mon ignorance)

1/ Fouiller dans la docu de WMI

2/ Chercher si il n'y a pas de petit uilitaire cool pour les manager de réseaux (ligne de commande ou autre) susceptible d'être utilisés avec un vbscript.
Bref chercher des trucs qui existe.

3/ Active Directory
discussion commencée ici

A part l'histoire des réseaux, je ne vois rien de très compliqué a faire.
Une fois que tu as les chemins d'acces des desktops et dossiers utilisateurs, c'est un jeu d'enfant.
15/09/2009, 03h35
Leboubou111

Citation:

Envoyé par Fredledingue

C'est quoi exqctement des "lecteurs réseaux". (Pardon pour mon ignorance)

l'équivalent d'un

Code:

Net Use 'lettre': "\\serveur\partage"

en batch...

Citation:

Envoyé par Fredledingue

1/ Fouiller dans la docu de WMI

WMI :roll:

Citation:

Envoyé par Fredledingue

2/ Chercher si il n'y a pas de petit uilitaire cool pour les manager de réseaux (ligne de commande ou autre) susceptible d'être utilisés avec un vbscript.
Bref chercher des trucs qui existe.

Justement, je ne veux pas d'utilitaire mais un script VBS

Citation:

Envoyé par Fredledingue

3/ Active Directory
discussion commencée ici

Merci pour le lien...
Je connaissais pour le mappage des lecteurs réseaux sauf pour le

Code:

wshNetwork.UserName

:ccool:

Citation:

Envoyé par Fredledingue

A part l'histoire des réseaux, je ne vois rien de très compliqué a faire.
Une fois que tu as les chemins d'acces des desktops et dossiers utilisateurs, c'est un jeu d'enfant.

Disons que je ne maitrise pas la programmation...:(
J'ai fais deux trois truc en VBS mais rien de bien extraordinaire.:?
15/09/2009, 21h27
Fredledingue

Et disons que je ne maitrise pas bien les réseaux (pas du tout même comme tu as pu le constater :lol:) mais je connais bien la programation (en VBS).

Citation:

- Déconnexion de tous les lecteurs réseaux sauf W, X, Y et Z
- Mapp de lecteur réseau

Ceci (ci dessus) ne peut se faire en VBS à proprement parler. Tu dois ou bien avoir un ligne de commande en DOS qu'on intègre au VBS ou bien avoir l'objet et la méthode qui correspond à un module, cad un programme ou une dll installée sur ta machine. VBS tout seule ne fait que des calculs arithmétiques et des message box. Donc tu es bien obligé de te réfèrer à un programme tier ou à des fonction existantes dans Windows.
Mais ça ne change pas grand chose au concept.

Citation:

- Rajout d'icones (raccourcis) sur le bureau

Un classic en VBS, mais faut avoir acces au poste concerné évidement.

Citation:

- Changement de la page de démarrage d'IE

Mainipulation de registre. Facile

Citation:

- Redirection de leurs dossiers Bureau, Mes Documents et Favoris sur leurs dossiers perso du serveur (en R: monté lors du script)

Je suppose que c'est équivalent à une synchronisation. Je ne sais pas si il y a déjà les modules pour faire ça dans ton installation.

Citation:

- Vérifier si présence de l'anti-virus

On peut facilement détecter la présence d'un ficher par example l'exe de l'antivirus. Pour dire si l'antivirus marche vraiment, il faut détecter les process avec WMI. (pourquoi :roll: ?)

Citation:

- Vérifier espace disque restant sur C: et R: (lettre perso)

fastoche

Citation:

...avec l'envoi d'un message (e-mail) si moins de 1.5 Gb pour C et moins de 100 Mb pour R

Fesable si MS Outlook est installé.
J'ignore si Windows Mail le fait mais OE ne le fesait pas. Si non il faudra installé une petite dll que le peux te renseigner. Mais tu ne veux pas de dll, donc on reste avec l'option MS Outlook.

Citation:

Faire apparaitre un Box en mettant dedans :
- le nom du domaine
- le nom de l'ordinateur
- le système et la version du système d'exploitation (Windows)
- l'adresse IP de l'ordinateur
- le nom de l'utilisateur
- le groupe auquel il appartient
- les lecteurs réseau mappé
- l'espace disque restant sur le C: et R: (lettre perso)

Tout ça sauf le dernier, doit être extrait avec WMI du moin d'après mes connaissances.

Citation:

- Bouton OK et le faire disparaitre au bout de 5 secondes

Ici tout dépend: Si c'est juste pour dire que le script fait qqchose (ce qui n'a pas beaucoups d'intérêt) on peut faire de VBS pure. Si on veut avoir l'otion de copier coller, mieux vaut utiliser l'HTA.
Note qu'en VBS pure on peut toujours écrire un fichier log et l'ouvrir en cas de besoin.

Citation:

IMPORTANT : Pour la redirection (Bureau, mes docs et favoris), il ne fait pas qu'elle reste en fonction quand la personne se connecte sans le réseau sur son PC Portable (donc il faut faire je pense une synchro lors de la déconnexion que pour les PC Portables)

Là je n'ai rien compris. Mais j'espère avoir été utile...

Salut!

Procure-toi la doc vbs, elle va beaucoup t'aider pour tout ça!

Quelques fonctions / méthodes qui vont t'aider (à voir pour l'utilisation dans la doc VBS, le forum et la FAQ de developpez, sur le site de microsoft, etc) :

- Mappage / Démappage de disque réseau :
MapNetworkDrive, EnumNetworkDrives, RemoveNetworkDrive : méthode de l'objet WshNetwork.

- Création de raccourcis : Méthode CreateShortcut de l'objet WshShell

- Ecrire dans le registre (pour IE) : Méthode RegWrite de l'objet WshShell

- Lire dans le registre (pour l'AV) : Méthode RegRead de l'objet WshShell
ou Checker la présence d'un fichier (pour l'AV) : Méthode FileExists de l'objet FileSystemObject

- Espace disque restant : Propriété AvailableSpace de l'objet Drive

- Pour l'envoi de mail : objet CDO.Message, utilisation : From, To, Subject, Textbody, AddAtachment, Send

- le nom du domaine, de l'ordinateur, de l'utilisateur : propriétés UserDomain, ComputerName et UserName de l'objet WshNetwork

- le système et la version du système d'exploitation : utilisation de l'objet WMI Win32_OperatingSystem

Ptite aide sur l'uttilisation :
Code:

1 2 3 4 5 Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems strOSVersion = objOperatingSystem.Version Next
- l'adresse IP de l'ordinateur : propriété IPAdress de l'objet WMI Win32_NetworkAdapterConfiguration

- les groupes auquel il appartient : Propriété MemberOf de l'objet User AD.

En espérant que ça t'aidera à attaquer. Y pas mal de boulot :\
Bon courage!!

16/09/2009, 14h17
pitchalov

Ah et puis j'oubliais, tu peux afficher tes informations dans une MsgBox avec OK qui dure un certain nombre de secondes.

pour ça il faut utiliser la méthode Popup de l'objet WshShell
16/09/2009, 21h50
Fredledingue

J'admet que je n'ai pas eu la patience de Pitchalov pour énumérer même en vitesse, quelques unes des fonctions utiles.
Cette aport peut être très utile à d'autre. Je l'ai même sauvée sur mon ordinateur dans mes vbs helps. :ccool:

Je pense que dans un premier temps, tu devrais intégrer les commandes DOS que tu utilises déjà dans le vbscript avec la fonction run du WshShell, puis d'y aller créchendo pour remplacer ces commandes par des commandes vbs utilisant les objets (Active Directory; WMI etc).

En attendant tu peux aussi bien générer par vbs ces lignes de commandes de manière plus intelligente.

example:

Code:

WshShell.Run "%comspec% /c DIR",1,True