Ottenere il SSID con VBA di Excel 2013

[oregon]

Ti riferisci al SID ma non c'è "un comando" di VBA di Excel per leggerlo.

E comunque, il programma in Excel è facilmente modificabile, quindi il metodo è inutile.

[oregon]

Rivedi la parte dell'environ

[giannino1995]

Ottengo 0

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

A me serve ottenere il sid in formato stringa per poterlo gestire in un metodo.

[giannino1995]

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='Environ('COMPUTERNAME')'")
SID = Left(objAccount.SID, Len(objAccount.SID) - 4)
SID_COMPUTER = SID
End Function

Da 0

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

Da 0

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='Environ(""COMPUTERNAME"")'")
SID = Left(objAccount.SID, Len(objAccount.SID) - 4)
SID_COMPUTER = SID
End Function

Da 0

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=Environ('ComputerName')")
SID = Left(objAccount.SID, Len(objAccount.SID) - 4)
SID_COMPUTER = SID
End Function

Da 0

[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