"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!
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
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
Inserendo un messaggio, dichiari di aver letto e accettato il regolamento di partecipazione.
Nello specifico, sei consapevole che ti stai assumendo personalmente la totale responsabilità delle tue affermazioni, anche in sede civile e/o penale,
manlevando i gestori di questo sito da ogni coinvolgimento e/o pretesa di rivalsa.
Dichiari inoltre di essere consapevole che il messaggio sarà visibile pubblicamente, accetti di diffonderlo con licenza
CC BY-NC-SA 3.0 (con attribuzione a "TurboLab.it") e rinunci ad ogni forma di compensazione (economica o altro).
Rinunci inoltre esplicitamente a qualsiasi pretesa di cancellazione del messaggio.