[R] Connexion imprimantes (via groupe reseau si possible)

[gottobe]

Bonjour

Après maintes et maintes recherches et essais, je fais appel à vous !

Je dois constituer un script qui permet de connecter des imprimantes à des postes (et non pas des profils utilisateurs).

Explications :

1 imprimante (I307) sur postes M607; M407, M207, M908
présents dans le groupe réseau IV-I307

J'ai trouvé comment faire remonter le nom des postes du réseau : "@ComputerName"

J'ai essayé de mettre "_WinNet_AddConnection2" pour connecter via le nom des postes (je suis allé au plus simple pour le moment, étant donné aussi le de résultats de recherches assez limités).

J'ai créé un "MsgBox" afin de visualiser un peu où en est le script.

Jusque là j'ai le message pas la connexion.

Ci-dessous, les début de mon script :
(le poste M807 c'est celui sur lequel je suis pour voir si le message s'affiche ; au delà des autres commandes)
(P******D : mot de passe)

Code : Tout sélectionner

 $Name = @ComputerName

If $Name = "M807" Then
    MsgBox (1, "Connexion", "Test script", 10)
EndIf

Func _WinNet_AddConnection2($sLocalName, $sRemoteName, $sPassword, $iType, $sOptions)
    $sLocalName = "LPT1"
    $sRemoteName = "\\SRVPRINT\I307"
    $sPassword = "P********D"
    $iType = 2
    $iOptions = 1
EndFunc

If $Name = "M608" Then
    MsgBox (4096, "Connexion", "Test connexion imprimante I307", 10)
EndIf

Si quelqu'un peut m'aider, merci beaucoup.

A noter que je pars en vacances ce soir pour 2 semaines (jusqu'au 04-01-2009) donc je ne pourrai le tester qu'à mon retour.

cordialement

[Tlem]

Merci de respecter les règles de présentation d'un message dont voici le lien : http://www.autoitscript.fr/forum/viewto ... f=35&t=595.

[gottobe]

Retour de vacance et pleine tête dans le script...

Nouveau code (ou presque), cette fois-ci avant même d'exécuter le msgbox, il me fait part d'une erreur dans une ligne de commande dans un autre fichier ("Security.au3", dans le dossier "Include" -- voir image jointe).

Dois-je modifier les lignes de commandes dans ce fichier afin de le mettre en concordance avec le réseau ?

Code : Tout sélectionner

$Name = @ComputerName
$sLocalName = "LPT1"
$sRemoteName = "PREF-svprinter\I307"

If $Name = "PREF01-W608" Then
    MsgBox (1, "TEST", "essai msgbox - pc = W608", 10)
EndIf

if $name = "PREF-W608" Then
    #Include <WinNet.au3>
    Func _WinNet_AddConnection2($sLocalName, $sRemoteName, $sUserName = "prefadmin", $sPassword = "P*******1" , $iType = 2, $iOptions = 1)
    EndFunc
EndIf

If @error Then
    MsgBox (1, "Erreur", "Erreur lors de la connexion", 10)
EndIf

Qu'en pensez-vous? pouvez vous m'éclaircir sur cette situation?

Cordialement

[Tlem]

Avez-vous mis à jour AutoIt avec la dernière version (v3.3.0.0) ?

[gottobe]

Effectivement ma version n'était pas à jour.

Malheureusement, même après mise à jour, le message d'erreur revient. C'est donc un problème de syntaxe.

Il y a quelque chose dans ces lignes qu'il ne supporte pas :

Code : Tout sélectionner

If $Name = "PREF01-W0608" Then
    #Include <WinNet.au3>
    _WinNet_AddConnection2 ("LPT1", "\\PREF-srvprinter\I307", "prefadmin", "Password", 2, 1)
EndIf

Une idée ?

[ani]

La mise à jour n'etait pas nécessaire

Surement l'include qui se trouvait dans la condition ?
Indiquez là en haut de votre script, n'ayant pas d'imprimante, je ne pourrait aider

L'erreur que vous obtenez plus haut est identique à celle cité, le problème viend de la syntaxe et non de l'include (sécurity), quand on appel une fonction
on indique pas
if machin then
func machin()
endfunc
endif

mais bien
if machin then
machin()
endif
on reprend en rouge sont les erreurs

► Afficher le texte

$Name = @ComputerName
$sLocalName = "LPT1"
$sRemoteName = "PREF-svprinter\I307"

If $Name = "PREF01-W608" Then
MsgBox (1, "TEST", "essai msgbox - pc = W608", 10)
EndIf

if $name = "PREF-W608" Then
#Include <WinNet.au3>
Func _WinNet_AddConnection2($sLocalName, $sRemoteName, $sUserName = "prefadmin", $sPassword = "P*******1" , $iType = 2, $iOptions = 1)
EndFunc
EndIf

If @error Then
MsgBox (1, "Erreur", "Erreur lors de la connexion", 10)
EndIf

e, reprenant le premier exemple et la suite çà doit ressembler à ceux-ci :

► Afficher le texte

Code : Tout sélectionner

#Include <WinNet.au3>
$Name = @ComputerName
$sLocalName = "LPT1"
$sRemoteName = "PREF-svprinter\I307"

If $Name = "PREF01-W608" Then
    MsgBox (1, "TEST", "essai msgbox - pc = W608", 10)
EndIf

if $name = "PREF-W608" Then
    _WinNet_AddConnection2($sLocalName, sRemoteName, "prefadmin", "Password", 2, 1)
EndIf

If @error Then
    MsgBox (1, "Erreur", "Erreur lors de la connexion", 10)
EndIf

[gottobe]

oui l'erreur est toujours la même.

on va dire que j'ai sauvé les meubles puisque j'ai trouvé la solution à mon problème via un script Kixtart.

Merci quand même d'avoir pris le temps de m'aider.

Code : Tout sélectionner

$computer = "@WKSTA"

;;;imprimante I307

$computer2 = "pref-w204"
$computer3 = "pref-w708"
$computer4 = "pref-w404"
$computer5 = "pref-w007"

;;;imprimante I407

$computer6 = "pref-w607"
$computer7 = "pref-w908"
$computer8 = "pref-w607"
$computer9 = "pref-w407"

;;;imprimante I1507 et I1807

$computer10 = "pref-w303"
$computer11 = "pref-w403"
$computer12 = "pref-w003"


If $computer = $computer2 or $computer3 or $computer4 or $computer5
ADDPRINTERCONNECTION ("\\PREF-SRVPRINTER\PREF-I307")
endif

If $computer = $computer6 or $computer7 or $computer8 or $computer9
ADDPRINTERCONNECTION ("\\PREF01-SVIMPHOR\PREF-I407")
endif

If $computer = $computer10 or $computer11 or $computer12
ADDPRINTERCONNECTION ("\\PREF-SRVPRINTER\PREF-I507")
endif

If $computer = $computer10 or $computer11 or $computer12
ADDPRINTERCONNECTION ("\\PREF-SRVPRINTER\PREF-I807")
endif

exit

Voilà si ça peut aider certaines personnes.

A NOTER : ceci est insérer dans un script plus complet comprenant tous les matériels réseaux du site et donc les lignes de commandes drivers au cas où ils ne seraient pas présents sur les postes.

Cordialement