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: 4543
Iscritto il: mer mag 01, 2013 12:59 pm
Località: http://127.0.0.1

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
System
System
Bot ufficiale TurboLab.it
Bot
Messaggi:
Iscritto il: sab dic 31, 2016 6:19 pm
Contatta: Contatta

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

Messaggio da System » mer apr 09, 2014 11:12 am


Avatar utente
crazy.cat
Amministratore
Amministratore
Messaggi: 12486
Iscritto il: mer mag 01, 2013 4:02 pm
Località: Noventa Padovana
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...
“Se tutti i documenti raccontavano la stessa favola, ecco che la menzogna diventava un fatto storico, quindi vera.”
Avatar utente
Al3x
Amministratore
Amministratore
Messaggi: 4543
Iscritto il: mer mag 01, 2013 12:59 pm
Località: http://127.0.0.1

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

Messaggio da Al3x »

Ottimo, funziona perfettamente

grazie :approvo
I :amore Sasha
System
System
Bot ufficiale TurboLab.it
Bot
Messaggi:
Iscritto il: sab dic 31, 2016 6:19 pm
Contatta: Contatta

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

Messaggio da System » mer apr 09, 2014 12:17 pm


Rispondi
  • Argomenti simili
    Risposte
    Visite
    Ultimo messaggio