Script de vérification d'appartenance de groupe AD

**jejedu30** · 14/04/2014, 07h17

Bonjour,

J'ai besoin de votre aide pour un script qui va permettre de vérifier si une machine est présente dans un groupe d'ordinateurs dans un Active Directory.
Je m'explique :
Le script doit récupérer le contenu de la variable "computername". Il doit aller vérifier si l'ordinateur fait bien partie du groupe AD.
Si c'est OK, je lance un deuxième script sinon le script s'arrête.

Je bloque surtout sur l'accès à l'AD.

Merci pour vos conseils

**Cachlab** · 25/04/2014, 15h59

Salut,

J'ai un script pour cela, mais il est en .hta

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
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
<title>Recherche une machine dans l'AD</title>
<HTA:APPLICATION
APPLICATIONNAME="Login Details"
BORDER="thin"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"></head>
 
<script language="VBScript">
 
Public strComputer
Dim WSHShell
 
Sub Window_onLoad
Me.ResizeTo 400,300
Me.MoveTo ((Screen.Width / 2) - 200),((Screen.Height / 2) - 150)
End Sub
 
Sub Default_Buttons
If Window.Event.KeyCode = 13 Then
btn_logindetails.Click
End If
End Sub
 
Sub Get_Login_Details
strComputer = txt_computer.value
if strComputer = "" Then
msgbox "Nom de machine invalide",vbOKOnly,"Réessayez !"
Exit Sub
End If
 
 
On error resume next
set cmd = createobject("ADODB.Command")
set cn = createobject("ADODB.Connection")
set rs = createobject("ADODB.Recordset")
 
cn.open "Provider=ADsDSOObject;"
cmd.activeconnection = cn
 
set objRoot = getobject("LDAP://RootDSE")
 
cmd.commandtext = "<LDAP://" & objRoot.get("defaultNamingContext") & ">;(objectCategory=Computer);" & "name,distinguishedName;subtree"
cmd.properties("page size")=1000
 
set rs = cmd.execute
 
q = """"
 
while rs.eof <> true and rs.bof <> true
	if strComputer = rs("name") Then msgbox "Machine trouvée : " & vbCrLf & vbCrLf & rs("distinguishedName") : Exit sub
	rs.movenext
wend
 
msgbox "Machine non-trouvée dans l'AD"
 
objCSV.Close
cn.close
 
End Sub
 
</script>
 
<body STYLE="font:14 pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')" onkeypress='vbs:Default_Buttons'>
<table width='80%' height = '100%' align='center' border='0'><tr height='20%'><td></td></tr>
<tr height='10%'><td align='center'>Nom machine :</td></tr
<tr height='20%'><td align='center'>
<input type="text" value="" name="txt_computer" maxlength='15' size='16'>
</td></tr><tr height='30%'><td align='center'>
<input type="button" value="Interroger l'AD" name="btn_logindetails"  onClick="Get_Login_Details">
</td></tr><tr height='20%'><td></td></tr></table></body>

J'espère que tu pourras extraire ce qui t'intéresse.
++

Script de vérification d'appartenance de groupe AD

VBScript

Discussions similaires

Partager

Partager