Tem como conseguir esses dados da máquina do cliente?

[miltonbarreto 0]

Olá,

 

para instalar uma impressora no linux que está instalada em uma máquina windows via samba, preciso das seguintes informações da máquina windows:

 

Número do IP

Nome do Computador

Grupo de Trabalho

Usuário do Windows

Senha de Usuário

Nome dos Compartilhamentos das impressoras

 

Tem como criar uma página ASP que o cliente possa acessar e mostrar os resultados que preciso?

 

Desde já agradeço

[xanburzum 169]

você consegue isso com WSH, postei um exemplo no forum

[miltonbarreto 0]

você consegue isso com WSH, postei um exemplo no forum

 

Não encontrei seu exemplo, você tem o link? vlw

[xanburzum 169]

' VB Script Document

set o = CreateObject("WScript.Network")

msgbox(o.ComputerName)

 

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

[miltonbarreto 0]

' VB Script Document
set o = CreateObject("WScript.Network")
msgbox(o.ComputerName)

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

tentei aqui, apareceu isso:

 

Microsoft VBScript runtime error '800a01ad'

 

ActiveX component can't create object: 'WScript.Network'

 

/index487.asp, line 3

[xanburzum 169]

execute este 1 0186

 

' VB Script Document
set o = CreateObject("WScript.Network")
msgbox(o.ComputerName)

depois este

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

salve com extensao vbs