Récupérer nom utilisateur avec une adresse ip

Question

Alors voila je travail sur un .hta (qui fonctionne () mais je dois le modifier.

Il permet de récupérer le nom du pc et le nom de l'utilisateur de celui qui l'exécute.

Le but est de le modifier de façon à ce que celui qui l'utilise puisse entrer un adresse Ip et obtenir le nom d'utilisateur correspondant.



'++Récupération du nom de l'ordinateur-----------------
Set wshShell = CreateObject( "Wscript.Shell" )
strOrdi = wshShell.ExpandEnvironmentStrings("%COMPUTER%"))
If InStr(strOrdi,"%") Then
    Ordinateur.value = "vide"
Else
Ordinateur.value = strOrdi
End If







'++Récupération de L'utilisateur--------------------STRUserName.VALUE
stUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")

If InStr(stUserName,"%") Then
user.value = "Vide"
Else
user.value = stUserName
End If
  
Set wshShell = Nothing



J'ai changé la première partie en mettant

strOrdi = wshShell.ExpandEnvironmentStrings(InputBox("etrer l'adresse ip:"))


Voila merci d'avance si vous avez des idées.

PtiPiwi · Answer

j'ai réussi

'++Récupération de L'utilisateur--------------------STRUserName.VALUE
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strOrdi & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
 utilisateur = objComputer.UserName   
next

stUserName = WshShell.ExpandEnvironmentStrings(utilisateur)

Récupérer nom utilisateur avec une adresse ip

1 réponse

Votre réponse

Discussions similaires