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
didier TEST
Sur une page html de mon intranet je voudrais recuperer le log NT de la personne qui se connecte.
Mais comment fait on ??? Est ce qq aurait une idée...
tu serais pas encore plus faignant que moi ? :- ) d ans l'aide vbsricpt5.6 tu tombes pile dessus en tapant "user" !!! bon j'en ai fait des fonctions perso :
Function PcName() Dim oNetwork Set oNetwork = CreateObject("wscript.network") PcName = oNetwork.computername Set oNetwork = Nothing End Function
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
Sur une page html de mon intranet je voudrais recuperer le
log NT de la personne qui se connecte.
Mais comment fait on ??? Est ce qq aurait une idée...
tu serais pas encore plus faignant que moi ? :- ) d
ans l'aide vbsricpt5.6 tu tombes pile dessus en tapant "user" !!!
bon j'en ai fait des fonctions perso :
Function PcName()
Dim oNetwork
Set oNetwork = CreateObject("wscript.network")
PcName = oNetwork.computername
Set oNetwork = Nothing
End Function
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
Sur une page html de mon intranet je voudrais recuperer le log NT de la personne qui se connecte.
Mais comment fait on ??? Est ce qq aurait une idée...
tu serais pas encore plus faignant que moi ? :- ) d ans l'aide vbsricpt5.6 tu tombes pile dessus en tapant "user" !!! bon j'en ai fait des fonctions perso :
Function PcName() Dim oNetwork Set oNetwork = CreateObject("wscript.network") PcName = oNetwork.computername Set oNetwork = Nothing End Function
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