Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1420 connectés 

 


 Mot :   Pseudo :  
 
 Page :   1  2
Page Suivante
Auteur Sujet :

Imprimante réseau : installation automatique sur les clients ...

n°1647790
costla
Posté le 19-07-2004 à 14:05:14  profilanswer
 

Reprise du message précédent :
Je viens de faire la même chose que toi, installer les nouvelles imprimantes via le login script,
J'ai créer des groupes NT, et mis les gens dedans, avec l'utilitaire IFMEMBER (ressource kit W2K), le loginscript determine dans quel groupe et le user et en fonction de ca fais appel au VBS avec les commandes que je t'ai donné

mood
Publicité
Posté le 19-07-2004 à 14:05:14  profilanswer
 

n°1648941
bigmelo
Posté le 20-07-2004 à 10:50:56  profilanswer
 

Requin, moi justement je ve agire sur les pc's et non les users, ca ne pose pas de pb?
 
deplus j'ai copier le script d 'El pollo diablo plus haut en changant le nom du serveur et de l'imprimante mais j'ai l'erreur suivante:
 
ligne: 6
caractere: 5
erreur: instruction attendue
code: 800A0400
source: erreur de compilation microsoft VBScript
 
qui peu m'aider pour ce message d'erreur?

n°1649139
Requin
Posté le 20-07-2004 à 13:03:15  profilanswer
 

Sans les 6 première lignes du code source c'est un peu dur... en clair il s'agit d'une erreur de syntaxe.
 
Cela peut poser problème, les scripts de démarrage et d'arrêt s'exécutent je suppose dans le contexte SYSTEM (ce qui devrait quand même te permettre de faire bcp de choses)...
 
Si tu souhaites agir sur la partie machine vérifie que le compte de l'ordainteur se trouve bien dans l'OU sur laquelle tu as appliqué la policy.

n°1649334
bigmelo
Posté le 20-07-2004 à 15:31:58  profilanswer
 

tou va bien sauf qu'il me dit maintenant que l'imprimante n'existe pas, j'ai bien vérifié sur le serveur si elle est bien installée, avec le bon nom, la bonne ip, et le bon driver ainsi que les droits, la je ne comprend pas, tu as une idée
 
pour info: j'ai installé toutes mes imprimantes sur un serveur 2000 sp3, avec le bon partage et les bons droits et elles sont toutes activé dans active directory.

n°1650827
bigmelo
Posté le 21-07-2004 à 13:53:30  profilanswer
 

Voila mon script:
 
 
Dim objPrinter
Dim strUser
Set wshShell = WScript.CreateObject("WScript.shell" )
strUsername = wshShell.ExpandEnvironmentStrings("%USERNAME%" )
Set objPrinter = CreateObject("WScript.Network" )
Select Case strUsername
Case "toto"
objPrinter.SetDefaultPrinter "\\svr\HPinfo"
Case "tata"
objPrinter.SetDefaultPrinter "\\svr\HPinfo"
Case Else
objPrinter.SetDefaultPrinter "\\svr\HPCL"
End Select
 
voila l'erreur que j'ai:
 
\\chemin du .vbs
ligne:10
caract:1
erreur: il n'y a pas d'imprimante appelée "\\svr\HPinfo"
code:80020009
source:WSHNetwork.SetDefaultPrinter
 
pour info:
Toutes les imprimantes sont installées sur mon serveur "svr" (serveur 2000) et partagés avec le bon nom de partage et les bons droits.
 
qui pe m'aider?

n°1651060
bigmelo
Posté le 21-07-2004 à 16:14:37  profilanswer
 

C'est bon j'ai trouvé d'ou venait l'erreur, maintenant j'aimerais  
faire un script qui me permet de vérifier les sauvegardes des users et qui me signale celles qui n'ont pas marchées.
 
c'est possible? si oui comment?

n°1652552
resan2
ainsi va la vie
Posté le 22-07-2004 à 17:29:39  profilanswer
 

C'est bon le code (c'était quoi déjà ton erreur?)
 
Mais il y aurait une possibilité fiable de ne pas l'ajouter  
l'imprimante à chaque ouverture de session? dans le genre
n'Executer que le code lors du prochain logon et pas par la suite?
Encore mieux, verifier si l'imprimante est déja défini
serait la solution idéale.
Quelqu'un a ca ce bout de code???
 
thanks to all
 

bigmelo a écrit :

C'est bon j'ai trouvé d'ou venait l'erreur, maintenant j'aimerais  
faire un script qui me permet de vérifier les sauvegardes des users et qui me signale celles qui n'ont pas marchées.
 
c'est possible? si oui comment?

n°1655259
Requin
Posté le 25-07-2004 à 14:24:31  profilanswer
 

bigmelo a écrit :

C'est bon j'ai trouvé d'ou venait l'erreur, maintenant j'aimerais  
faire un script qui me permet de vérifier les sauvegardes des users et qui me signale celles qui n'ont pas marchées.
 
c'est possible? si oui comment?


 
Bon une fois que ton script est OK tu peux ajouter sur la première ligne :
 

Code :
  1. on error resume next


 
ce qui permettera à ton script de ne pas soulever les erreurs (imagein par exemple qu'un des serveurs est arrêté, le mappage n'est pas disponible et tu va avoir un message)
 
Tu les fais comment les savuegardes, avec quel utilitaire ? Car si tu as des fichiers tu peux utiliser File System Object (FSO) pour aller vérifier son existance, sa date, etc...

n°1656148
bigmelo
Posté le 26-07-2004 à 13:02:10  profilanswer
 

je t'explique requin,
 
 
chez nous, les clients ont leurs docs en local, puis tous les jours une sauvegarde de leurs docs se fait sur le serveur via un .bat.
Je ne connait pas du tou FSO tu peux m'expliquer comment l'avoir et comment le configurer?
 

n°1656166
Requin
Posté le 26-07-2004 à 13:17:01  profilanswer
 

Tu vas pouvoir remplacer tes batchs avantageusement par des scripts Windows !
 
Va voir ici :
 
http://msdn.microsoft.com/library/ [...] olders.asp
 
Tu as des exemples de codes utilisant FSO pour la copie de fichiers ou répertoires.
 
Si tu souhaites la documentation complète de FSO :
 
http://msdn.microsoft.com/library/ [...] olders.asp
 
Rien ne t'empêche de faire un fichier log ou tenir à jour une base de données avec les entrées pour chaque machine (il suffit de lire la variable d'environnement %COMPUTERNAME% pour par exemple créer ta clef primaire) une fois la copie achevée et donc d'avoir en clin d'oeil la date du dernier backup d'une machine.
 
Pour ce qui est de l'installation FSO fait partie du corps de WSH, donc il est probablement déjà installé et prêt à l'emplois ;)

mood
Publicité
Posté le 26-07-2004 à 13:17:01  profilanswer
 

n°1880614
petoulachi
A fortiori, brigadier chef
Posté le 07-01-2005 à 15:53:39  profilanswer
 

drapal !

n°2016426
skawn
Posté le 02-05-2005 à 10:32:43  profilanswer
 

Je voudrais mettre un script en place pour donner accès au utilisateur du domaine.
Toutes les imprimantes sont accescible depuis un printserveur.
 
Chaque utilisateur à son imprimante à lui et dois être mis par défaut. Une deuxième imprimante serait une toutes grosse Xerox à chaque étage pour toutes les personnes de cette étage.
 
L'administration devrait se faire par l'Active Directory. Donc je crée des groupes (=OU) et dedans je crée des groupes comme GGXXX_IMP234A (nom groupe imprimante). La dedans je mettrais les personnes qui seront membre de ce groupe afin qu'ils aient l'imprimante en question.
 
J'ai déjà un script comme ceci mais il manque des choses.
 
 


Dim $Print
Dim $Group
 
$root = GetObject("LDAP://Ou=IMP Printers,Ou=IMPIM Groups,DC=nomdomaine,DC=UK" )
$PrintServer = "\\imprt04.nomdomaine.uk\"
 
For Each $object In $root
 
$Print = Split($Object.Name,"_" )
$Group = Split($Object.Name,"=" )
 
 ? $Group[1]
 ? $Print[1]
 
If InGroup ($Group[1])
 
 If ADDPRINTERCONNECTION ($PrintServer + $Print[1])=0
     ? "Added printer " + $Print[1]
 Endif
 
Endif
Next

n°2042737
hfrfc
Bob c'est plus simple à dire..
Posté le 25-05-2005 à 22:42:36  profilanswer
 

drap tardif :p


---------------
D3/Hots/Hs Doc#2847
n°2055319
poah42
Posté le 07-06-2005 à 15:15:51  profilanswer
 

drap itou

n°2106213
hfrfc
Bob c'est plus simple à dire..
Posté le 26-07-2005 à 09:03:42  profilanswer
 

Trouvé sur un site :
 
@ECHO OFF
VER | FIND "Windows 2000" >NUL
IF ERRORLEVEL 1 GOTO Syntax
 
SETLOCAL
SET Printer=%1
SET RemotePC=%2
 
:: Check printer specified
IF NOT DEFINED Printer GOTO Syntax
IF NOT "%Printer:~0,2%"=="\\" GOTO Syntax
FOR /F "tokens=1* delims=\" %%A IN ('ECHO.%Printer%') DO (
 SET PrintServer=%%A
 Set PrintShare=%%B
)
IF NOT DEFINED PrintShare GOTO Syntax
PING %PrintServer% -n 1 -w 1000 2>&1 | FIND "TTL=" >NUL
IF ERRORLEVEL 1 GOTO Syntax
NET VIEW \\%PrintServer% 2>&1 | FIND /I "%PrintShare%" >NUL
IF ERRORLEVEL 1 GOTO Syntax
 
:: Check remote PC if specified
IF DEFINED RemotePC SET RemotePC=%RemotePC:\=%
IF DEFINED RemotePC (
 PING %RemotePC% -n 1 -w 1000 2>&1 | FIND "TTL=" >NUL
 IF ERRORLEVEL 1 GOTO Syntax
 SET RemotePC=/C\\%RemotePC%
)
 
:: Install the printer on the specified computer
RUNDLL32.EXE PRINTUI.DLL, PrintUIEntry /ga /n%Printer% %RemotePC%
IF NOT ERRORLEVEL 1 ECHO Printer installed, please reboot %RemotePC%
 
ENDLOCAL
GOTO:EOF
 
:Syntax
ECHO.
ECHO AddPrint.bat,  Version 1.01 for Windows 2000
ECHO Install a network printer on any PC on the network
ECHO.
ECHO Usage:  ADDPRINT  \\print_server\printer_share  [ remote_pc ]
ECHO.
ECHO Where:              "print_server"   is the print server name or IP address
ECHO                     "printer_share"  is the share name for the printer
ECHO                     "remote_pc"      is the PC that will be using the
ECHO                                      network printer -- default is local PC
ECHO.
ECHO Written by Rob van der Woude
ECHO http://www.robvanderwoude.com
 
IF "%OS%"=="Windows_NT" ENDLOCAL
 
 
marche bien !


---------------
D3/Hots/Hs Doc#2847
n°2753485
Drwily
Mad Doctor !
Posté le 29-01-2008 à 09:52:19  profilanswer
 

Bonjour,
 
Juste pour savoir si le script de requin fonctionne aussi avec des imprimantes dont le chemin est en http. Dans ce cas je me demande comment va se faire l'installation du pilote puisque l'imprimante ne l'a pas dans sont firmware.
 
Alors ?
 
merci !  :jap:

n°2797816
serial_xp
Posté le 08-08-2008 à 20:48:22  profilanswer
 

Apres lecture de ce sujet j'en arrive a ce script :  
 

Code :
  1. Dim objPrinter
  2. Dim strComp
  3. Dim wshNetwork, wshShell, nReturnCode
  4. Dim i, j
  5. 'obtient le nom d'utilisateur
  6. Set wshShell = WScript.CreateObject("WScript.Shell" )
  7. strComp = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%" )
  8. 'definit l'imprimante par defaut
  9. Set objPrinter = CreateObject("WScript.Network" )
  10. Select Case strComp
  11. Case "Salle12", "Salle12", "Salleacte1", "Salleacte2", "Accueil1", "Accueil2"
  12. Dim colPrinters, aryPrinters
  13. aryPrinters = Array("\\SRVDUPONT\Oki1", "\\SRVDUPONT\SamsungCPL350" )
  14. Set wshNetwork = WScript.CreateObject("WScript.Network" )
  15. 'Connect printers
  16. Set colPrinters = wshNetwork.EnumPrinterConnections
  17. For i = 0 To colPrinters.Count - 1 Step 2
  18. 'Disconnect already connected printers
  19. For j = LBound(aryPrinters) To UBound(aryPrinters)
  20. If (colPrinters(i) = aryPrinters(j)) Then
  21. wshNetwork.RemovePrinterConnection aryPrinters(j)
  22. End If
  23. Next
  24. Next
  25. For j = LBound(aryPrinters) To UBound(aryPrinters)
  26. wshNetwork.AddWindowsPrinterConnection aryPrinters(j)
  27. objPrinter.SetDefaultPrinter "\\SRVDUPONT\Oki1"
  28. Case "salle21", "Salle22", "Bureau3"
  29. Dim colPrinters, aryPrinters
  30. aryPrinters = Array("\\SRVDUPONT\Oki2", "\\SRVDUPONT\SamsungCPL350" )
  31. Set wshNetwork = WScript.CreateObject("WScript.Network" )
  32. 'Connect printers
  33. Set colPrinters = wshNetwork.EnumPrinterConnections
  34. For i = 0 To colPrinters.Count - 1 Step 2
  35. 'Disconnect already connected printers
  36. For j = LBound(aryPrinters) To UBound(aryPrinters)
  37. If (colPrinters(i) = aryPrinters(j)) Then
  38. wshNetwork.RemovePrinterConnection aryPrinters(j)
  39. End If
  40. Next
  41. Next
  42. For j = LBound(aryPrinters) To UBound(aryPrinters)
  43. wshNetwork.AddWindowsPrinterConnection aryPrinters(j)
  44. objPrinter.SetDefaultPrinter "\\SRVDUPONT\Oki2"
  45. Case Else
  46. wshNetwork.AddWindowsPrinterConnection "\\SRVDUPONT\SamsungCPL350"
  47. End Select


 
Cela a-t-il l'air correct?
 
Merci d'avance pour votre réponse


Message édité par serial_xp le 09-08-2008 à 00:28:31
n°3139014
lari80
Posté le 11-09-2014 à 16:25:37  profilanswer
 

slt ! j'excecute le script posté par el pollo diablo sur un poste client mais je ne m'en sors pas .au secours

n°3139021
lari80
Posté le 11-09-2014 à 16:35:16  profilanswer
 

en fait ge sui bleu et j'aimerais savoir exactement quels sont les champs ke ge dois modifier pour pouvoir résoudre mon problème ki est le suivant.j'aimerais que les utilisateurs du réseau puissent se connecter au serveur d'impression pour  se voir connecter une imprimante disponible sur le réseau.

n°3139402
lari80
Posté le 15-09-2014 à 10:26:56  profilanswer
 

j'ai touvé un script sur  un forum mais après avoir modifié les champs à modifier mais on me envoi deux message d'erreur à savoir: (erreur 0x00000003) et (erreur0x00000709). à l'aide svp

n°3139405
lari80
Posté le 15-09-2014 à 10:46:52  profilanswer
 

oh j'avais oublier .voilà le script en question
 @echo off
 
:: Remplacer les 3 champs suivants par vos valeurs
:: ATTENTION: Le nom de l'imprimante doit correspondre au nom de vortre imprimante dans le fichier INF (cf section [DriverName.xxxxx])
:: Le nom de la file d'attente LPR peut etre trouvé en installant l'imprimante manuellement et en verifiant les propriétes du port TCP/IP d'une installation "témoin"
:: Mettre un chemin absolu pour le pilote d'impression
 
set AdresseIP=10.97.3.5
set Imprimante=HP LaserJet P2050 Series PCL 6
set Pilote=C:\windows\systeme32\DriverStore\FileRepository\hppcp6 13.inf_x86_neutral_a3fe7207764817d1\hppcp6 13.inf
set Raw=9100
 
:: --- Ne pas toucher ? la suite du fichier ---
 
 
echo Creation d'un port d'impression TCP/IP a l'adresse %AdresseIP%
 
set CLEPORT="HKLM\System\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports"
REG ADD %CLEPORT%\TCP_%AdresseIP% /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v Protocol /t REG_DWORD /d 0x00000002 /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v Version /t REG_DWORD /d 0x00000001 /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v HostName /t REG_SZ /d "" /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v IPAddress /t REG_SZ /d %AdresseIP% /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v PortMonMibPortIndex /t REG_DWORD /d 0x00000001 /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v HWAddress /t REG_SZ /d "" /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v PortNumber /t REG_DWORD /d 0x00000203 /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v "SNMP Community" /t REG_SZ /d Public /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v "SNMP Enabled" /t REG_DWORD /d 0x00000000 /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v "SNMP Index" /t REG_DWORD /d 0x00000001 /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v Queue /t REG_SZ /d %fileLPR% /f > NUL
REG ADD %CLEPORT%\TCP_%AdresseIP% /v "Double Spool" /t REG_DWORD /d 0x00000000 /f > NUL
 
:: Redemarrage du spooler d'impression
net stop spooler
net start spooler
 
:: Installation de l'imprimante
echo Installation de l'imprimante %Imprimante% sur le port TCP_%AdresseIP%. Veuillez patienter...
rundll32 printui.dll,PrintUIEntry /if /f "%Pilote%" /b "%Imprimante%" /r TCP_%AdresseIP% /m "%Imprimante%"
 
:: Mettre l'imprimante par defaut
rundll32 printui.dll,PrintUIEntry /y /n "%Imprimante%"

mood
Publicité
Posté le   profilanswer
 

 Page :   1  2
Page Suivante

Aller à :
Ajouter une réponse
 

Sujets relatifs
Problème reconnaissance réseauconversation audio sur réseau local
Pb réseau, qualité de l'installation ?demande d'info reseau, pcmcia
Logiciel de gravure automatiquechangement automatique de la page d'accueil
Prob Réseau pour ChampionsRéseau et Outlook express
Pour un réseau stable, un switch surdimensionné est-il préférable ? 
Plus de sujets relatifs à : Imprimante réseau : installation automatique sur les clients ...


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR