Bonjour à tous,
Y'aurais t'il une commande pour faire une vérification d'une connexion RDP.
Genre : Si connexion est RDP alors.......
Nous utilisons 2 scripts, ceux en vb et ceux en kix.
Donc pour kix j'ai bien trouvé :
if left(%SESSIONNAME%,3) <> "RDP"
Mais pour le vb impossible de trouver...
Car enfaites j'ai des scripts qui ce lance quand mes users ce connecte en RDP au serveur... Les scripts qu'ils sont attribués à leurs postes...
Je voudrais éviter que les scripts ce lance alors qu'ils sont sur le serveur...
Ce qui n'est pas très propre... Donc si je pouvais rajouter cette condition au début de mes scripts sa serait pas mal.
'*******************************************************
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshProcEnv = WshShell.Environment("Process")
strSessionName = WshProcEnv("SESSIONNAME")
If Left(strSessionName, 3) = "RDP" then
WScript.Echo "Session RDP = " & strSessionName
Else
WScript.Echo "Session pas RDP"
End If
'*******************************************************
Salut
Tu fais du VB6 ou du VBScript ? c'est important
Si tu veux savoir sur quelle machine tu es, tu peux peut-être t'en sortir avec l'API nommée GetComputerName :
Partie déclaration de ta page
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, nSize As Long) As Long
La fonction
Private Function GetMyMachineName() As String
Dim r As Long
Dim sTemp As String
' Buffer
r = MAX_COMPUTERNAME_LENGTH
sTemp = String(r + 1, " ")
' Nom de la machine
Call GetComputerName (sTemp, r)
' Supprime les espaces en trop et renvoie le résultat
GetMyMachineName = Left$(sTemp, r)
End Function
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
As-tu essayé ma solution ?
Il me semble que, en vbscript, les délcarations ne se font pas exactement de la même manière, mais le fond est correct.
Il te suffira alors de demander au script de comparer le nom de la machine renvoyé par la fonction à celle du serveur (écrit en dur dans le script) pour savoir si le script est exécuté localement ou pas.
Genre :
If GetMyMachineName = "MON_SERVEUR" Then
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)