Informations de session à distance

Version imprimable

22/11/2011, 13h08
Cachlab

Informations de session à distance

Bonjour,

Je voudrais pouvoir exécuter mon script de nettoyage des profils locaux à distance (je suis un peu feignant, je préfère travailler de mon bureau !) :mrgreen:

Pour cela, j'ai besoin de savoir si le poste distant est accessible (ça c'est ok, merci pour le code de test de ping). ;)
Mais surtout j'aurais besoin de savoir s'il y a une session ouverte sur le poste et si oui, avec quel nom d'utilisateur ...

Cela est-il possible ?

Citation:

Envoyé par Cachlab

Bonjour,
Je voudrais pouvoir exécuter mon script de nettoyage des profils locaux à distance (je suis un peu feignant, je préfère travailler de mon bureau !) :mrgreen:
Pour cela, j'ai besoin de savoir si le poste distant est accessible (ça c'est ok, merci pour le code de test de ping). ;)
Mais surtout j'aurais besoin de savoir s'il y a une session ouverte sur le poste et si oui, avec quel nom d'utilisateur ...
Cela est-il possible ?

:salut:
Voila un Bon HTA en Anglais trouvé sur le Net Login_Details.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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
<title>Login Details of a Machine</title>
<HTA:APPLICATION
APPLICATIONNAME="Login Details"
BORDER="thin"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"></head>
 
<script language="VBScript">
 
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 "Please enter a computer name or IP Address",vbOKOnly,"No Computer Name or IP Address"
Exit Sub
End If
 
If Ping(strComputer) = False Then
msgbox strComputer & " did not respond to ping. No action could be taken.",vbOkOnly, "Cannot continue script."
Exit Sub
End If
 
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
 
Set colComputerIP = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration")
 
Set colSystemInfo = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem",,48)
 
For Each objComputer in colComputer
strUserName = "User Name: " & objComputer.UserName
strHostName = "Host Name: " & objComputer.Name
Next
 
For Each IPConfig in colComputerIP
If Not IsNull(IPConfig.IPAddress) Then
For intIPCount = LBound(IPConfig.IPAddress) _
to UBound(IPConfig.IPAddress)
strIPAddress = strIPAddress & "IP Address: " & IPConfig.IPAddress(intIPCount) & "~"
next
end if
Next
 
If Right(strIPAddress, 1) = "~" Then
strIPAddress = Left(strIPAddress, Len(strIPAddress) - 1)
End If
strIPAddress = Replace(strIPAddress, "~", vbCrLf)
 
For Each objItem in colSystemInfo
strOS_Caption = "Caption: " & objItem.Caption
strOS_SPVersion = "SP Version: " & objItem.CSDVersion
strOS_VerNumber = "Version Number: " & objItem.Version
Next
 
MsgBox strUserName & vbcrlf & strHostName & vbcrlf & _
strIPAddress & vbcrlf & strOS_Caption & vbcrlf & _
strOS_SPVersion & vbcrlf & strOS_VerNumber, vbOKOnly, "Login Details"
End Sub
 
Function Ping(strComputer)
Dim objShell, boolCode
Set objShell = CreateObject("WScript.Shell")
boolCode = objShell.Run("Ping -n 1 -w 300 " & strComputer, 0, True)
If boolCode = 0 Then
Ping = True
Else
Ping = False
End If
End Function
</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'>Computer name or IP Address:</td></tr
<tr height='20%'><td align='center'>
<input type="text" value="172.16.2.48" name="txt_computer" maxlength='15' size='16'>
</td></tr><tr height='30%'><td align='center'>
<input type="button" value="Check Machine" name="btn_logindetails"  onClick="Get_Login_Details">
</td></tr><tr height='20%'><td></td></tr></table></body>

Bonne Programmation :pc:

Merci, c'est génial ! C'est exactement ce qu'il me fallait. :D

T'es un chef hackoofr ! :ccool:

Bien, histoire de participer un peu, voici ma version française ...
(J'espère que l'auteur ne m'en voudra pas !)
Si ça peut servir à quelqu'un d'autre ...

Login_Details_VF.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
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
 
<title>Informations sur une machine distante</title>
<HTA:APPLICATION
APPLICATIONNAME="Login Details"
BORDER="thin"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"></head>
 
<script language="VBScript">
 
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 ou adresse IP invalide",vbOKOnly,"Saisie incorrecte"
Exit Sub
End If
 
If Ping(strComputer) = False Then
msgbox "L'ordinateur " & strComputer & " ne répond pas.",vbOkOnly, "Machine introuvable"
Exit Sub
End If
 
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
 
Set colComputerIP = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration")
 
Set colSystemInfo = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem",,48)
 
For Each objComputer in colComputer
UsrNom = "Aucune session en cours"
If Not IsNull(objComputer.UserName) Then UsrNom = objComputer.UserName
strUserName = "Utilisateur : " & UsrNom
strHostName = "Nom machine : " & objComputer.Name
Next
 
For Each IPConfig in colComputerIP
If Not IsNull(IPConfig.IPAddress) Then
For intIPCount = LBound(IPConfig.IPAddress) _
to UBound(IPConfig.IPAddress)
strIPAddress = strIPAddress & "Adresse IP : " & IPConfig.IPAddress(intIPCount) & "~"
next
end if
Next
 
If Right(strIPAddress, 1) = "~" Then
strIPAddress = Left(strIPAddress, Len(strIPAddress) - 1)
End If
strIPAddress = Replace(strIPAddress, "~", vbCrLf)
 
For Each objItem in colSystemInfo
strOS_Caption = "Système : " & objItem.Caption
strOS_SPVersion = "Version SP : " & objItem.CSDVersion
strOS_VerNumber = "N° Version : " & objItem.Version
Next
 
MsgBox strUserName & vbcrlf & strHostName & vbcrlf & _
strIPAddress & vbcrlf & strOS_Caption & vbcrlf & _
strOS_SPVersion & vbcrlf & strOS_VerNumber, vbOKOnly, "Informations"
End Sub
 
Function Ping(strComputer)
Dim objShell, boolCode
Set objShell = CreateObject("WScript.Shell")
boolCode = objShell.Run("Ping -n 1 -w 300 " & strComputer, 0, True)
If boolCode = 0 Then
Ping = True
Else
Ping = False
End If
End Function
</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 ou adresse IP :</td></tr
<tr height='20%'><td align='center'>
<input type="text" value="Saisie" name="txt_computer" maxlength='15' size='16'>
</td></tr><tr height='30%'><td align='center'>
<input type="button" value="Lancer le test" name="btn_logindetails"  onClick="Get_Login_Details">
</td></tr><tr height='20%'><td></td></tr></table></body>

Encore merci !
++