Ejecutar un macros unicamente en un determinado PC
Hola estimado experto.
Mi consulta esta relacionada a que sentencia permitiría a un macros en excel comprobar si el nombre del equipo "CARLOS" en un grupo de trabajo: "USE XP" sea el único en el cual la macros realice los cálculos.
Es decir que codifo debo agregar para que se verifique el nombre y grupo de trabajo en la PC que se esta ejecutando la macros de tal modo que si es la indicada proceda, y en caso contrario no haga nada.
Saludos y gracias
Mi consulta esta relacionada a que sentencia permitiría a un macros en excel comprobar si el nombre del equipo "CARLOS" en un grupo de trabajo: "USE XP" sea el único en el cual la macros realice los cálculos.
Es decir que codifo debo agregar para que se verifique el nombre y grupo de trabajo en la PC que se esta ejecutando la macros de tal modo que si es la indicada proceda, y en caso contrario no haga nada.
Saludos y gracias
1 Respuesta
Respuesta
1
No se si te servirá el siguiente código que revisá el nro de serie del disco (deberías adaptarlo un poco)
Sub NroSerieDisco()
Dim fs, d, s, t, drvpath
drvpath = "C"
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
Select Case d.DriveType
Case 0: t = "Desconocido"
Case 1: t = "Separable"
Case 2: t = "Fijo"
Case 3: t = "Red"
Case 4: t = "CD-ROM"
Case 5: t = "Disco RAM "
End Select
s = "Unidad " & d.DriveLetter & ": - " & t
s = s & vbCrLf & "NS: " & d.SerialNumber
MsgBox s
End Sub
Sub NroSerieDisco()
Dim fs, d, s, t, drvpath
drvpath = "C"
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
Select Case d.DriveType
Case 0: t = "Desconocido"
Case 1: t = "Separable"
Case 2: t = "Fijo"
Case 3: t = "Red"
Case 4: t = "CD-ROM"
Case 5: t = "Disco RAM "
End Select
s = "Unidad " & d.DriveLetter & ": - " & t
s = s & vbCrLf & "NS: " & d.SerialNumber
MsgBox s
End Sub