Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Tonblz

saber qual o login de rede pelo vb script

Por , em ASP Clássico

Recommended Posts

Tonblz    0

Tonblz
Postado

Boa tarde galera,

 

preciso criar um código para saber qual o login de rede do usuário

 

ou seja, pelo site que temos aqui na empresa (intranet), identificar o usuário, pelo login dele de rede.

 

alguém pode me ajudar ? tem alguma função pronta ? quero aprender

 

para vb script

 

abraços,

Ton

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tenta rodar esse código whs

 

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colCSItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objCSItem In colCSItems
 WScript.Echo "Nome Usuario: " & objCSItem.UserName
 WScript.Echo "Primary Owner Name: " & objCSItem.PrimaryOwnerName
 WScript.Echo "Primary Owner Contact: " & objCSItem.PrimaryOwnerContact
Next
Set colOSItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objOSItem In colOSItems
 WScript.Echo "Usuarios Registrados: " & objOSItem.RegisteredUser
 WScript.Echo "Numero de Usuarios: " & objOSItem.NumberOfUsers
 WScript.Echo "Numero de Liçensa para usuarios: " & objOSItem.NumberOfLicensedUsers
Next

 

você precisa salvar ele com a extensão .vbs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Tonblz    0

Tonblz
Postado

Bom dia,

 

kra to mto perto, fiz um resumo do q preciso, mas ele abre como uma caixa de mensagem (tipo msgbox), "Windows Script Host"

 

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colCSItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")

For Each objCSItem In colCSItems

WScript.Echo "Nome Usuario: " & objCSItem.UserName

Next

 

mas preciso dele no meu código da pagina .asp, mas qdo coloco ele no código, vem em branco, pode me ajudar ?

 

<html>

<head>

<title>Portal</title>

<style type="text/css">

<!--

.style1 {

color: #FFFFFF;

}

-->

</style>

<script language="vbscript">

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colCSItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")

For Each objCSItem In colCSItems

'WScript.Echo "Nome Usuario: " & objCSItem.UserName '

strUsuario = objCSItem.UserName

Next

</script>

<body>

<% response.write "Usuario: " & strUsuario & "<br>" %>

</body>

</head>

</html>

 

Abraços,

Ton

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

utilize as propriedades do objeto objWMIService , onde é criado a variavel objOSItem, e as propriedades como RegisteredUser , NumberOfUsers

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito