Connexion C$

[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

Code: [Tout sélectionner] [Déplier/Replier]

@echo off
SET /p pc=saisir le numéro d'ordinateur :
net use \\%pc%\c$ /user:%pc%\adminlocal azerty
explorer.exe \\%pc%\c$
exit

GeSHi © Extension Codebox Plus

Mais franchement, une fenêtre DOS, c'est ultra moche, et en 2018 ça fait vraiment amateur (ce que je suis ) ...

Du coup, j'aimerai réaliser la même tache en Autoit ... mais je n'y arrive 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 :

Code: [Tout sélectionner] [Déplier/Replier]

$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
 

GeSHi © Extension Codebox Plus

Encore désolé pour ce problème qui doit vous sembler d'une simplicité...
Mais merci +++ pour votre aide

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.

Code: [Tout sélectionner] [Déplier/Replier]

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

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

GeSHi © Extension Codebox Plus

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à :

Code: [Tout sélectionner] [Déplier/Replier]

#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))
 

GeSHi © Extension Codebox Plus

[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

Pour ceux que ça intéresse :

Code: [Tout sélectionner] [Déplier/Replier]

#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)
 

GeSHi © Extension Codebox Plus

Bonne journée à tous