TurboLab.it

Inviato: **mer apr 09, 2014 11:12 am**

Data la vastita della rete in cui lavoro, a volte ho la necessità di conoscere lo username connesso ad una postazione remota senza usare software di controllo remoto che ritengo invasivi e lesivi della privacy.
Premetto che sulle macchine a cui accedo ho diritti amministrativi quindi il problema si riduce semplicemente a modificare adeguatamente il codice che vi sottopongo

Ho trovato uno script che fa il suo lavoro, tranne per il fatto che devo prima scrivere a mano il nome host nel codice (in rosso)

Set objWMIService = GetObject("winmgmts:\\NOME_COMPUTER\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Model: " & objItem.Model
Wscript.Echo "SystemType: " & objItem.SystemType
Wscript.Echo "TotalPhysicalMemory: " & int(objItem.TotalPhysicalMemory / 1024000) & " MB"
Wscript.Echo "UserName: " & objItem.UserName
Next

Questo contenuto è nascosto, ma senza JavaScript non puoi gestirlo correttamente. Passa con il mouse sopra a questo testo per visualizzarlo!

Set objWMIService = GetObject("winmgmts:\\NOME_COMPUTER\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Model: " & objItem.Model
Wscript.Echo "SystemType: " & objItem.SystemType
Wscript.Echo "TotalPhysicalMemory: " & int(objItem.TotalPhysicalMemory / 1024000) & " MB"
Wscript.Echo "UserName: " & objItem.UserName
Next

Sotto potete ammirare il mio tragico tentativo di manipolare lo script con l’intenzione di passare all’istruzione WMI (in verde) il valore della variabile “nome” (in rosso)
Ho inserito l'istruzione InpuBox ma è evidente che ho gestito male la cosa poiché non funziona una minchia

option explicit
dim nome, Str
nome = InputBox ("Nome Computer:")
Set objWMIService = GetObject("winmgmts:\\nome\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Model: " & objItem.Model
Wscript.Echo "SystemType: " & objItem.SystemType
Wscript.Echo "TotalPhysicalMemory: " & int(objItem.TotalPhysicalMemory / 1024000) & " MB"
Wscript.Echo "UserName: " & objItem.UserName
Next

Questo contenuto è nascosto, ma senza JavaScript non puoi gestirlo correttamente. Passa con il mouse sopra a questo testo per visualizzarlo!

option explicit
dim nome, Str
nome = InputBox ("Nome Computer:")
Set objWMIService = GetObject("winmgmts:\\nome\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Model: " & objItem.Model
Wscript.Echo "SystemType: " & objItem.SystemType
Wscript.Echo "TotalPhysicalMemory: " & int(objItem.TotalPhysicalMemory / 1024000) & " MB"
Wscript.Echo "UserName: " & objItem.UserName
Next

ps: PsLoggedon.exe (pstools di Mark Russinovich) non funziona a causa di blocchi specifici sull'accesso ad HKEY_USERS da remoto

Inviato: **mer apr 09, 2014 12:04 pm**

A livello di script non riesco ad aiutarti, ma avvia msinfo32.exe e poi metti il nome del pc remoto...

Inviato: **mer apr 09, 2014 12:17 pm**

Ottimo, funziona perfettamente

grazie

TurboLab.it

Risalire al nome utente collegato ad un PC in dominio

Risalire al nome utente collegato ad un PC in dominio

Re: Risalire al nome utente collegato ad un PC in dominio

Re: Risalire al nome utente collegato ad un PC in dominio