Page 1 sur 1

Connexion C$

Posté : jeu. 23 août 2018 09:36
par Strykas
Bonjour à tous,

Veuillez pardonner ma question plus que minable ... je débute en "programmation" et je découvre, depuis 2/3 jours, Autoit.

Je souhaite réaliser un petit programme me permettant de me connecter aux C$, à la demande, des ordinateurs du "parc" informatique.
J'ai réalisé ce petit script en batch
@echo off
SET /p pc=saisir le numéro d'ordinateur :
net use \\%pc%\c$ /user:%pc%\adminlocal azerty
explorer.exe \\%pc%\c$
exit
Mais franchement, une fenêtre DOS, c'est ultra moche, et en 2018 ça fait vraiment amateur (ce que je suis :lol:) ...

Du coup, j'aimerai réaliser la même tache en Autoit :D ... mais je n'y arrive :oops: J'ai réalisé des 100ènes de modifications et là je bloque ... pourriez vous m'aider s'il vous plait ?

Voilà où j'en suis :

$ordinateur = InputBox ("Numéro de PC", "Saisir le numéro d'ordinateur")
$user = '$ordinateur\adminlocal'
$mdp = 'azerty'
$connexion = '\\$ordinateur\c$'

Func explorateur()
Local $connexion = Run("explorer.exe" & $connexion & " " & "/user:" & $user, $mdp, @SW_HIDE)
EndFunc
 
Encore désolé pour ce problème qui doit vous sembler d'une simplicité... :oops:
Mais merci +++ pour votre aide :bisou:

Bonne journée à tous
Strykas



Edit du 23/08

Je continue de chercher malgré ma demande, et j'ai avancé, par contre, il me demande l'identifiant mot de passe et là, je bloque.
$ordinateur = InputBox ("Numéro de PC", "Saisir le numéro d'ordinateur")
$user = $ordinateur & "\adminlocal"
$mdp = "azerty"
$connexion = $ordinateur & "\c$"

ShellExecute("explorer.exe", "\\" & $connexion)


Edit le 24/08 à 15h13

Je continue toujours de trouver mais là, je ne comprends pas, j'aurais besoin d'un coup de main s'il vous plait :)
J'en suis là :
#include <AutoItConstants.au3>

$ordinateur = InputBox ("Numéro de PC", "Saisir le numéro d'ordinateur")
$user = $ordinateur & "\adminlocal"
$mdp = "azerty"
$connexion = "\\" & $ordinateur & "\c$"

RunAs( $user, $ordinateur, $mdp, $RUN_LOGON_NETWORK, ShellExecute("explorer.exe", $connexion))
 

Re: Connexion C$  

Posté : ven. 31 août 2018 09:46
par Strykas
Bonjour à tous,

Après un gros acharnement, j'ai trouvé une solution. A mon avis, ça peut facilement être amélioré mais pour un non informaticien et qui découvre les scripts, je suis content du résultat :D

Pour ceux que ça intéresse :

#RequireAdmin
#include <WinAPIInternals.au3>
#include <WinNet.au3>

$ordinateur = InputBox ("Numéro de PC", "Saisir le numéro d'ordinateur")
$user = $ordinateur & "\adminlocal"
$mdp = "azerty"
$connexion = "\\" & $ordinateur & "\c$"

$file = FileOpen("C:\Temp\partage.bat", 2)
FileWriteLine($file, "@echo off")
FileWriteLine($file, "net use " & $connexion & " /user:"&$user& " " &$mdp)
FileWriteLine($file, "ping 127.0.0.1 -n 5 >nul")
FileClose($file)
ShellExecute("C:\Temp\partage.bat")
Sleep(2000)
FileDelete("C:\Temp\partage.bat")

ShellExecute("explorer.exe", $connexion)
 
Bonne journée à tous