Question [Résolu] Une boxe ?

Plus d'informations
il y a 13 ans 6 mois #7910 par Arnaud Petitjean
Réponse de Arnaud Petitjean sur le sujet Re:Une boxe ?
Ca fonctionne certainement grâce au fait que WinNT soit bien écrit (casse) par rapport au 1er exemple.

Arnaud

MVP PowerShell et créateur de ce magnifique forum :-)
Auteur de 6 livres PowerShell aux éditions ENI
Fondateur de la société Start-Scripting
Besoin d'une formation PowerShell ?

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
il y a 13 ans 6 mois #7914 par rodriguez
Réponse de rodriguez sur le sujet Re:Une boxe ?
Voici le code en version 1.

[code:1]

# Formulaire creation user

[Void][Reflection.Assembly]::LoadWithPartialName('system.windows.forms')

$textbox_motpasse = New-Object system.Windows.Forms.TextBox
$button_valider = New-Object system.Windows.Forms.Button
$textbox_Login_user = New-Object system.Windows.Forms.TextBox
$button_quitter = New-Object system.Windows.Forms.Button
$label1 = New-Object system.Windows.Forms.Label
$label2 = New-Object system.Windows.Forms.Label
$label_principal = New-Object system.Windows.Forms.Label


$label_principal.autosize = $true
$label_principal.location = New-Object system.Drawing.Point(35,22)
$label_principal.name = 'label principal'
$label_principal.size = New-Object system.Drawing.Size(350,20)
$label_principal.text = ' Creation d un compte utilisateur FTP'


#label1

$label1.autosize = $true
$label1.location = New-Object system.Drawing.Point (15,100)
$label1.name = 'label1'
$label1.size = New-Object system.Drawing.Size(130,10)
$label1.tabindex = 4
$label1.text = 'login utilisateur'

#textbox_Login_user

$textbox_Login_user.location = New-Object system.Drawing.Point(110,100)
$textbox_Login_user.name = ' textbox_login'
$textbox_Login_user.size = New-Object system.Drawing.Size(202,31)
$textbox_login_user.tabindex = 6
$textbox_Login_user.text = 'login User'
#$TextBox_Login_User|Select


#label2

$label2.autosize = $true
$label2.location = New-Object system.Drawing.Point (15,150)
$label2.name = 'label1'
$label2.size = New-Object system.Drawing.Size(130,10)
$label2.tabindex = 5
$label2.text = 'mot de passe '



#textbox_motpasse

$textbox_motpasse.Location = New-Object system.Drawing.Point(110, 150)
$textbox_motpasse.Multiline = $true
$textbox_motpasse.Name = 'textbox_resultat'
$textbox_motpasse.Size = New-Object system.Drawing.Size( 202, 31)
$textbox_motpasse.TabIndex = 1
$textbox_motpasse.text = 'mot de passe'



#Button Valider

$button_valider.Location = New-Object system.Drawing.Point(53, 250)
$button_valider.Name = 'button_valider'
$button_valider.Size = New-Object system.Drawing.Size(90,20)
$button_valider.TabIndex = 2
$button_valider.Text = 'Valider'
$button_valider.UseVisualStyleBackColor = $true

#Button quitter

$button_quitter.location = New-Object system.Drawing.Point(300,250)
$button_quitter.name = 'button_quitter'
$button_quitter.size = New-Object system.Drawing.Size(90,20)
$button_quitter.TabIndex = 3
$button_quitter.text = 'quitter'
$button_quitter.usevisualstylebackcolor = $true
$button_quitter.add_click({$form1.close()})




$button_valider.add_click({

$user = $textbox_Login_user.Text
$mdp = $textbox_motpasse.text
$hostname = hostname



#creation utilisateur
function create-account ([string]$accountName = $user)
{
$wmiuser = Get-WmiObject -class \"Win32_UserAccount\" -filter \"name='$accountName'\"
if($wmiuser -eq $null)
{

$comp = [adsi] \"WinNT://$hostname\"
$user = $comp.Create(\"User\", $accountName)
$user.SetPassword($mdp)
$user.SetInfo()

\"Désactiver le changement de mot de passe[User must change password at next logon]\"
$user.PasswordExpired = 0
$user.SetInfo()


#creation du répertoire:
Set-Location d:\ftp\localUser
New-Item -itemType directory -name $accountname

}
else
{
write-warning \"Attention cet utilisateur $accountName existe déja\";
}
}
foreach($ajout in 1..1)
{

create-account($user);


}



$form1.Close()

})





$form1 = New-Object system.Windows.Forms.Form
#form1

$form1.clientsize = New-Object system.Drawing.Size(400,400)
$form1.controls.add($label_principal)
$form1.controls.add($label1)
$form1.controls.add($label2)
$form1.controls.add($textbox_motpasse)
$form1.controls.add($textbox_Login_user)
$form1.controls.add($button_valider)
$form1.controls.add($button_quitter)
$form1.name = 'form1'
$form1.text = 'Creation d un compte utilisateur FTP'
$form1.showdialog()



# Rajout utilisateur dans groupe Local Utilisateurs_FTP


$groupe = \"Utilisateurs_FTP\"


$computer = [ADSI](\"WinNT://\" + $hostname + \",computer\")
$group = $computer.psbase.children.find($groupe)
$group.Add(\"WinNT://\" + $hostname + \"/\" + $user)

# Mise en place du Quota

(C:\WINDOWS\system32\dirquota.exe quota Add /path:d:\ftp\localuser\\"$user\" /limit:\"$taille\" )
Write-Warning \"Création utilisateur terminé\"

#SR.

[/code:1]

Message édité par: noxyde, à: 8/10/10 13:12<br><br>Message édité par: noxyde, à: 8/10/10 16:24

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
il y a 13 ans 6 mois #7915 par rodriguez
Réponse de rodriguez sur le sujet Re:Une boxe ?
Arnaud écrit:

Ca fonctionne certainement grâce au fait que WinNT soit bien écrit (casse) par rapport au 1er exemple.

Arnaud


Effectivement dans la précipitation je n'avais pas fait attention...
Bon pour le moment je touche plus à rien.

Merci !!

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
il y a 13 ans 6 mois #7927 par Alan Pinard
Réponse de Alan Pinard sur le sujet Re:Une boxe ?
Bonjour Noxyde,

Une petit remarque au passage, tu devrais mettre les variable de paramètre au début de ton script afin qu'il soit facile de le personnaliser.

Sinon, ton script fonctionne bien!

Alan Pinard

Alan Pinard
Version A

Connexion ou Créer un compte pour participer à la conversation.

Temps de génération de la page : 0.073 secondes
Propulsé par Kunena