Ottenere il SSID con VBA di Excel 2013

[oregon]

Usa il codice con il nome del pc perché gli altri sono sbagliati. Sei collegato come administrator?

[giannino1995]

Credo di si! Come faccio a capire se sono collegato come amministratore?

Quindi a te questo codice funziona?

Private Function SID_COMPUTER() As Variant
Dim SID As String
Dim objWMIService As Object
Dim objAccount As Object
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objAccount = objWMIService.Get("Win32_UserAccount.Name='Administrator',Domain='PC-GIANNI'")
SID = Left(objAccount.SID, Len(objAccount.SID) - 4)
SID_COMPUTER = SID
End Function

e quindi anche questo?

Private Function SID_COMPUTER() As Variant
Dim SID As String
Dim objWMIService As Object
Dim objAccount As Object
sComputer = Environ("COMPUTERNAME")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objAccount = objWMIService.Get("Win32_UserAccount.Name='Administrator',Domain='"+sComputer+"'")
SID = Left(objAccount.SID, Len(objAccount.SID) - 4)
SID_COMPUTER = SID
End Function

[MItaly]

Modificabile si ma facilmente no!

Ho scritto un tool per rimuovere le password da VBA quando avevo 15 anni... è abbastanza una banalità

[giannino1995]

Ho scritto un tool per rimuovere le password da VBA quando avevo 15 anni... è abbastanza una banalità

Se vuoi lo testiamo, sono molto curioso! Comunque perché il codice sopra non funziona?

[giannino1995]

Ok, funziona, bastava riavviare il software! Non chiedetemi il perché!

Bravissimo Oregon! Posso solo chiederti perché hai eliminato dal sid gli ultimi 4 simboli?

[giannino1995]

Ho scritto un tool per rimuovere le password da VBA quando avevo 15 anni... è abbastanza una banalità

Ma per forza bruta oppure no?

[MItaly]

Ma per forza bruta oppure no?

Nulla di tutto ciò... semplicemente, vado a sostituire il campo in cui è memorizzato l'hash della password con quello di una password nota (se non erro era uno spazio). Non che potessero fare di molto meglio, se vuoi mantenere il fatto che il programma possa eseguire il codice (anche se senza fartelo vedere) comunque non puoi cifrarlo con la password inserita.