Script de vérification d'appartenance de groupe AD

Salut,

J'ai un script pour cela, mais il est en .hta
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
<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.
++