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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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