Désactiver un compte utilisateur local

Version imprimable

21/05/2013, 11h42
kha0s

Désactiver un compte utilisateur local

Bonjour,

Je ne connais VBs que de nom et j'aimerai faire une manip sur un ensemble de machines...

Mon besoin;
J'ai créé des user locaux sur des machines de mon réseau, qui vont être utilisés à une date X.
Je voudrais désactiver ces comptes en mettant un script au démarrage des machines aprés cette date X.

J'ai un serveur linux (avec une distrib fait par la maison) dc pas moyen de passer par AD...
J'ai des machines principalement sous XP (et oui ca existe encore)
J'aimerai bien avoir la démarche pour xp mais aussi 7.

Une idée ?

J'ai trouvé un vieil article sur LaboInfo mais ca n'a pas l'aire de fonctionner...

Citation:

Désactive un compte d'utilisateur local avec "True" ou l'active grâce à "False":

strComputer = "NOM DE L'ORDINATEUR"
Set objUser = GetObject("WinNT://" & strComputer & "/TOTO")
objUser.AccountDisabled = True
objUser.SetInfo

Si quelqu'un avait la patience de m'aider :D :D
Merci par avance.

ce script supprimeras le compte renseigné(pas le desactiver si tu veut je peut sauvegarder les donnes et les mettre dans mes docs...) a la date inscrite

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
do
jour= "le jour de fin en nombre et sans les guillemets"
annee ="l'annee de fin en nombre et sans les guillemets"
compte="le nom du compte en question(avec guillemets)"
 
if jour= Day(now) and annee=Year(now) then
'si le jour programme=au jour d'aujourd'hui et l'annee programmée =a cette annee,alors:
 
Set objShell = WScript.CreateObject ("WScript.shell")
commande_finale="net user "&compte&" /delete"
'supprimer le compte
objShell.run commande_finale,0
'ici,on se sers de wshShell pour se servir d'une commande comme un .bat
 
else
'sinon ne rien faire
objShell.run"ping localhost -n 86400",0,true
'je me sers d'une commande de la cmd car sur windows 7 la commande sleep(beaucoup plus pratique mais est desactivée 
'par defaut sur seven...)
end if
loop

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 do jour= "le jour de fin en nombre et sans les guillemets" mois= "le mois en nombre et sans les guillemets" annee ="l'annee de fin en nombre et sans les guillemets" compte="le nom du compte en question(avec guillemets)" if jour>= Day(now) and annee>=Year(now) and mois>= Month(now) then Set objShell = WScript.CreateObject ("WScript.shell") commande_finale="net user "&compte&" /delete" objShell.run commande_finale,0 else objShell.run"ping localhost -n 86400",0,true end if loop
est plus corect:
1)si le jour tombe sur un week end et que le l'ordi n'est pas allumé...le script ne fonctionneras plus
2)j'ai oublie le mois:aie:

si tu veut je peut sauvegarder dans mes documents les fichiers perso(le comtenu du bureau,mes images...)

met ce fichier dans C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup pour les windows7 et vista pour les autres chais pas:mrgreen:

ce dosier est accecible dans demarrer=>touts les programmes=>clic droit sur demmarrage=>ouvrir tous les utilisateur

:salut: J'ai trouvé ce code dans le net (pas testé), pour désactiver tous les comptes utilisateur spécifiés dans un fichier texte. Le fichier texte peut être spécifié dans la première ligne du script. Il devrait être dans le format suivant:

Citation:

username1
username2
etc..
..

Code:

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
'#==============================================================================
'#==============================================================================
'#  SCRIPT.........:	DisableAccounts.vbs
'#  AUTHOR.........:	Stuart Barrett
'#  VERSION........:	1.0
'#  CREATED........:	28/09/2012
'#  LICENSE........:	Freeware
'#  REQUIREMENTS...:  
'#
'#  DESCRIPTION....:	Disables all user accounts as specified in text file,
'#						saves results to log file
'#
'#  NOTES..........:	Text file should be in format:
'#						
'#						username1
'#						username2
'#						etc.
'# 
'#  CUSTOMIZE......:  
'#==============================================================================
'#  REVISED BY.....:	
'#  EMAIL..........:  
'#  REVISION DATE..:	
'#  REVISION NOTES.:	
'#==============================================================================
'#==============================================================================
 
strFile = "c:\users.txt"
strLogFile = "c:\disabledusers.log"
 
Const ForReading = 1
Const ForAppending = 8
Const ADS_UF_ACCOUNTDISABLE = &H02
 
intCount = 0
intDisabledCount = 0
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, ForReading)
Set objLogFile = objFSO.OpenTextFile(strLogFile, ForAppending, True)
 
On Error Resume Next
 
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
 
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
 
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
 
Set objCommand.ActiveConnection = objConnection
strBase = "<LDAP://" & strDNSDomain & ">"
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30
objCommand.Properties("Cache Results") = False
 
booLogging = MsgBox("This script will attempt to Disabled all user accounts as specified in the text file '" & _
	strFile & "'  " & vbCrLf & vbCrLf & "Would you like to append the results to the log file located at '" & _
	strLogFile & "'?  ", vbYesNo+vbQuestion, "Disable Accounts")
 
If booLogging = vbYes Then
	booLogging = True
	strLogMsg = "The log file can be located at: '" & strLogFile & "'"
	Else booLogging = False
End If
 
While not objFile.AtEndOfStream 
	strUser = objFile.Readline 
 
	strFilter = "(sAMAccountName=" & strUser & ")"
	strAttributes = "distinguishedName"
	strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
 
	objCommand.CommandText = strQuery
 
	Set objRecordset = objCommand.Execute
 
	Do Until objRecordset.EOF
		strUserDN = objRecordset.Fields("distinguishedName").Value
		objRecordset.MoveNext
	Loop
 
	objRecordset.Close
 
	Set objUser = GetObject("LDAP://" & strUserDN) 
 
	intUACFlag = objUser.Get("UserAccountControl")
 
	If (intUACFlag AND ADS_UF_ACCOUNTDISABLE) = 0 Then
		objUser.Put "userAccountControl", 514
		objUser.SetInfo
 
		Set objUser = Nothing
 
		If booLogging = True Then objLogFile.WriteLine Now() & vbTab & strUser & vbTab & "Disabled Account"
		intCount = intCount + 1
		Else
			intDisabledCount = intDisabledCount + 1
			strMsg = "  *  " & strUser & vbCrLf & strMsg
			If booLogging = True Then objLogFile.WriteLine Now() & vbTab & strUser & vbTab & "Already Disabled"
	End If
WEnd
 
If intDisabledCount <> 0 Then
	WScript.Echo "Disabled " & intCount & " user accounts. " & strLogMsg & vbCrLf & vbCrLf & _
		"The following accounts were already disabled: " & vbCrLf & strMsg
	Else
		WScript.Echo "Disabled all " & intCount & " user accounts. " & strLogMsg
End If

23/05/2013, 10h27
kha0s

Cool, j'essaie tout ca et je reviens vers vous pour la suite de mon aventure.

MERCI :ccool: