Discussion :

[jjacques68]

Bonjour, petite question :

J'ai 12 postes en win7 pro gérés par un server 2008.
Ces 12 postes se nomment poste1 poste2 ... Poste12.
Les utilisateurs sont poste1, poste2, ... Poste12.
Idem pour le mot de pass mais avec 16 à la fin et une majuscule au début.

Je souhaite avoir une ouverture de session automatique sur ces postes.
Donc je pense à un script de demarrage de l'ordinateur en prenant la variable %computername% pour le utilisateur et %computername%+16 comme mot de passe.

Mais mettre ces paramètres dans une gpo me semble impossible, car j'ai besoin de creer une chaîne de caractères (avec la majuscule et le nom du PC et 16).

C'est pour cela que je pense à un script.

Il existe la commande Netplwiz, mais on ne peut pas l'utiliser en ligne de commande !

Avez vous une idée de comment faire ?

[cerede2000]

Bonjour à toi,

Voici un beau script VBS qui réponds à ta requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

Dim oNetwork, oReg
Dim strDomain, strCompName, strPassword
Dim strKeyPath, strValueName, strValue

Set oNetwork = CreateObject("WScript.Network")

strDomain = oNetwork.UserDomain
strCompName = UCase(oNetwork.ComputerName)
strPassword = UCase(Left(strCompName, 1)) &  LCase(Mid(strCompName, 2)) & "16"

Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strCompName & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"

'''  Setting forceAutoLogon to true
strValueName = "ForceAutoLogon"
strValue = "1"
oReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

''' Setting the default username to be the same as strUserName
strValueName = "DefaultUserName"
strValue = strUsername
oReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

'''  Setting the default password to be same as strPassword
strValueName = "DefaultPassword"
strValue = strPassword
oReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

'''  Setting AutoAdminLogon to True
strValueName = "AutoAdminLogon"
strValue = "1"
oReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

'''  Setting the default login domain to be the local machine
strValueName = "DefaultDomainName"
strValue = strDomain
oReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

Tu n'as plus qu'as faire une GPO avec un script d'ouverture de session pour ces postes