A voir également:
- Vérification d'une connexion...
- Vérification de connexion ne marche pas ✓ - Forum - PHP
- Grand question... pour une vérification de connexion ✓ - Forum - Delphi / Pascal
- Code connexion vb.net access pdf - Conseils pratiques - Visual Basic / VB.NET
- Script de connexion php - Conseils pratiques - PHP
- Connexion bdd avec android studio - Conseils pratiques - Java
6 réponses
Pour ceux qui voudrais la solution !
C'est la même chose que pour le kix
C'est la même chose que pour le kix
'*******************************************************
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
La fonction
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)
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)
Autant pour moi j'avais pas vu la dernière section pour le VBS...
Je ne sais pas comment changer la section...
Sinon oui sa serait du VBScript, désolé.
Impossible de trouver cette commande pour vérifier si c'est du rdp...
If "connexion RDP" then
........
Je ne sais pas comment changer la section...
Sinon oui sa serait du VBScript, désolé.
Impossible de trouver cette commande pour vérifier si c'est du rdp...
If "connexion RDP" then
........
Ok, Script. Modifié
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)
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)
Merci je n'avais pas pensé à cette solution.
Enfaites j'ai comparer avec les plages IP vu que les serveurs ont des ip spécifique et fixe.
Merci à toi
Enfaites j'ai comparer avec les plages IP vu que les serveurs ont des ip spécifique et fixe.
Merci à toi
bahrounitarek
- Messages postés
- 3
- Date d'inscription
- samedi 29 mai 2010
- Statut
- Membre
- Dernière intervention
- 26 mars 2012