OVH Cloud OVH Cloud

Variable de session

1 réponse
Avatar
Polo Fraise
Bonjour à tous =)

Voila je debute plus ou moins en VB.
Je développe une petite application et je cherche à récuperer la valeur des
variable concernant la session de l'utilisateur.
Notament son nom d'utilisateur, mais bon voila je ne trouve pas
Merci de me repondre

1 réponse

Avatar
DJ
Polo Fraise wrote:
Bonjour à tous =)

Voila je debute plus ou moins en VB.
Je développe une petite application et je cherche à récuperer la
valeur des variable concernant la session de l'utilisateur.
Notament son nom d'utilisateur, mais bon voila je ne trouve pas
Merci de me repondre


bonjour,
tu peux regarder dans l'aide du vbscript par exemple on y trouve plein de
trucs !
ce qui m'a permis de faire les quelques fonctions ci dessous. Sinon tu peux
le trouver aussi en lisant
les variable d'environement (Set en fenetre de commande t'en donnera la
liste).
DJ

Function UserName()
Dim oNetwork
Set oNetwork = CreateObject("wscript.network")
UserName = oNetwork.UserName
Set oNetwork = Nothing
End Function

Function RecupDomaine()
Dim oNetwork, UserDom
Set oNetwork = CreateObject("WScript.Network")
Rem ---------------( recup du nom de domaine
If oNetwork.userdomain = "" Then 'recup special win 9x
UserDom LitBaseReg("HKLMSystemCurrentControlSetServicesMSNP32NetWorkProviderAu
thenticatingAgent")
Else 'win nt et +
UserDom = oNetwork.userdomain
End If
RecupDomaine = UCase(UserDom)
End Function

Function PcName()
Dim oNetwork
Set oNetwork = CreateObject("wscript.network")
PcName = oNetwork.computername
Set oNetwork = Nothing
End Function