Risalire al nome utente collegato ad un PC in dominio

"Null reference exception"? no, grazie, prendo un "unexpected T_VARIABLE"... Questo è il forum per imparare l'arte della programmazione o per chiedere un parere su una sessione di debug particolarmente ostica.
Regole del forum
Ricorda di indicare chiaramente nell'oggetto il linguaggio ([C#] oppure [PHP], [Java], [HTML], ...), se la discussione ne riguarda uno in particolare!
Rispondi
Avatar utente
Al3x
Amministratore
Amministratore
Messaggi: 4842
Iscritto il: mer mag 01, 2013 12:59 pm
Località: http://127.0.0.1
Has thanked: 17 times
Been thanked: 18 times

Risalire al nome utente collegato ad un PC in dominio

Messaggio da Al3x »

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
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 :mrgreen:
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
I :amore Sasha
Avatar utente
crazy.cat
Amministratore
Amministratore
Messaggi: 13363
Iscritto il: mer mag 01, 2013 4:02 pm
Località: Noventa Padovana
Has thanked: 3 times
Been thanked: 30 times
Contatta:

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

Messaggio da crazy.cat »

A livello di script non riesco ad aiutarti, ma avvia msinfo32.exe e poi metti il nome del pc remoto...
La prima legge della dietetica sembra essere: se il sapore è buono, a te fa male.
Avatar utente
Al3x
Amministratore
Amministratore
Messaggi: 4842
Iscritto il: mer mag 01, 2013 12:59 pm
Località: http://127.0.0.1
Has thanked: 17 times
Been thanked: 18 times

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

Messaggio da Al3x »

Ottimo, funziona perfettamente

grazie :approvo
I :amore Sasha
Rispondi
  • Argomenti simili
    Risposte
    Visite
    Ultimo messaggio