OVH Cloud OVH Cloud

Imprimante et profil ... encore

4 réponses
Avatar
dom
Re salut à tous,

Je ne suis pas une bête en ecriture de script. Je sollicite du coup vos
lumières.
Voilà, je souhaiterai par un script d'ouverture de session détruire toutes
les imprimantes attachées à un profil utilisateur lors de la connection
dudit user.
J'ai ecrit le wsh suivant (pour des postes en w2k):

strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from
Win32_Printer Where DriverName = *")
For Each objPrinter in colInstalledPrinters
objPrinter.Delete
Next

Mais ca marche pas !!!
Quelqu'un pourrait il me montrer là ou ca cloche ?
Merci

Dominique

4 réponses

Avatar
Raclie
Bonsoir,
Sinon, tu utilises con2prt (free) dans un script, et là, tu peux démonter
toutes les impirmantes reseau et en installer d'autres. Moins rapide au
login, mais + simple...
A+
Cecile

"dom" a écrit dans le message de
news:3fb3b6b1$0$251$
Re salut à tous,

Je ne suis pas une bête en ecriture de script. Je sollicite du coup vos
lumières.
Voilà, je souhaiterai par un script d'ouverture de session détruire toutes
les imprimantes attachées à un profil utilisateur lors de la connection
dudit user.
J'ai ecrit le wsh suivant (pour des postes en w2k):

strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}" & strComputer & "rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from
Win32_Printer Where DriverName = *")
For Each objPrinter in colInstalledPrinters
objPrinter.Delete
Next

Mais ca marche pas !!!
Quelqu'un pourrait il me montrer là ou ca cloche ?
Merci

Dominique




Avatar
Roger Ze scripteur ouF
tu peux utiliser ca sinon, c'est dans le scripcenter de
notre poto billou. des fois faut chercher un peu hein :p

Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemovePrinterConnection "PrintServerxerox3006
"

A+

-----Message d'origine-----
Bonsoir,
Sinon, tu utilises con2prt (free) dans un script, et là,
tu peux démonter

toutes les impirmantes reseau et en installer d'autres.
Moins rapide au

login, mais + simple...
A+
Cecile

"dom" a écrit dans le message de
news:3fb3b6b1$0$251$
Re salut à tous,

Je ne suis pas une bête en ecriture de script. Je
sollicite du coup vos


lumières.
Voilà, je souhaiterai par un script d'ouverture de
session détruire toutes


les imprimantes attachées à un profil utilisateur lors
de la connection


dudit user.
J'ai ecrit le wsh suivant (pour des postes en w2k):

strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}" & strComputer
& "rootcimv2")


Set colInstalledPrinters = objWMIService.ExecQuery
("Select * from


Win32_Printer Where DriverName = *")
For Each objPrinter in colInstalledPrinters
objPrinter.Delete
Next

Mais ca marche pas !!!
Quelqu'un pourrait il me montrer là ou ca cloche ?
Merci

Dominique





.




Avatar
dom
Bonjour,

Oui ... mais non.
Ton script sous entend que tu connais ce que tu veux retirer du profil. Moi,
je veux dégager du profil user toutes ses imprimantes sans connaitre, à
priori, leurs noms.
En gros, faire un delete * des imprimantes.
Mon script de départ (tiré de la KB M$) ne fonctionne pas pour une
suppression de toutes les imprimantes, probablement en raison d'un soucis de
syntaxe que je ne vois pas.
Merci

"Roger Ze scripteur ouF" wrote in
message news:018e01c3aa86$bbd4c950$
tu peux utiliser ca sinon, c'est dans le scripcenter de
notre poto billou. des fois faut chercher un peu hein :p

Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemovePrinterConnection "PrintServerxerox3006
"

A+

-----Message d'origine-----
Bonsoir,
Sinon, tu utilises con2prt (free) dans un script, et là,
tu peux démonter

toutes les impirmantes reseau et en installer d'autres.
Moins rapide au

login, mais + simple...
A+
Cecile

"dom" a écrit dans le message de
news:3fb3b6b1$0$251$
Re salut à tous,

Je ne suis pas une bête en ecriture de script. Je
sollicite du coup vos


lumières.
Voilà, je souhaiterai par un script d'ouverture de
session détruire toutes


les imprimantes attachées à un profil utilisateur lors
de la connection


dudit user.
J'ai ecrit le wsh suivant (pour des postes en w2k):

strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}" & strComputer
& "rootcimv2")


Set colInstalledPrinters = objWMIService.ExecQuery
("Select * from


Win32_Printer Where DriverName = *")
For Each objPrinter in colInstalledPrinters
objPrinter.Delete
Next

Mais ca marche pas !!!
Quelqu'un pourrait il me montrer là ou ca cloche ?
Merci

Dominique





.




Avatar
Le J
"dom" a écrit dans le message de news:
3fb49764$0$238$
Bonjour,

Oui ... mais non.
Ton script sous entend que tu connais ce que tu veux retirer du profil.
Moi,

je veux dégager du profil user toutes ses imprimantes sans connaitre, à
priori, leurs noms.
En gros, faire un delete * des imprimantes.
Mon script de départ (tiré de la KB M$) ne fonctionne pas pour une
suppression de toutes les imprimantes, probablement en raison d'un soucis
de

syntaxe que je ne vois pas.
Merci

"Roger Ze scripteur ouF" wrote in
message news:018e01c3aa86$bbd4c950$
tu peux utiliser ca sinon, c'est dans le scripcenter de
notre poto billou. des fois faut chercher un peu hein :p

Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemovePrinterConnection "PrintServerxerox3006
"

A+

-----Message d'origine-----
Bonsoir,
Sinon, tu utilises con2prt (free) dans un script, et là,
tu peux démonter

toutes les impirmantes reseau et en installer d'autres.
Moins rapide au

login, mais + simple...
A+
Cecile

"dom" a écrit dans le message de
news:3fb3b6b1$0$251$
Re salut à tous,

Je ne suis pas une bête en ecriture de script. Je
sollicite du coup vos


lumières.
Voilà, je souhaiterai par un script d'ouverture de
session détruire toutes


les imprimantes attachées à un profil utilisateur lors
de la connection


dudit user.
J'ai ecrit le wsh suivant (pour des postes en w2k):

strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}" & strComputer
& "rootcimv2")


Set colInstalledPrinters = objWMIService.ExecQuery
("Select * from


Win32_Printer Where DriverName = *")
For Each objPrinter in colInstalledPrinters
objPrinter.Delete
Next

Mais ca marche pas !!!
Quelqu'un pourrait il me montrer là ou ca cloche ?
Merci

Dominique





.