• Domingo 22 de Diciembre de 2024, 13:28

Autor Tema:  Nombre Del Sistema  (Leído 2103 veces)

mopuro

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Nombre Del Sistema
« en: Domingo 23 de Septiembre de 2007, 22:28 »
0
Hola:
Si pudierais alguno ayudarme para poner en una variante el nombre del sistema o el numero de serie del sistema, con codigo desde V.B. Gracias y saludos.

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Nombre Del Sistema
« Respuesta #1 en: Lunes 24 de Septiembre de 2007, 09:53 »
0
No entendi , la pregunta ¿Puedes ( o  si alguien la entiende puede )  explicarla


Saludos
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Nombre Del Sistema
« Respuesta #2 en: Lunes 24 de Septiembre de 2007, 14:46 »
0
Que tal gente...
¿Ya utilizaste un buscador?
Fecha de fabricación
Nombre del PC
Serie del disco

No he probado nada de lo que dice en esos links pero en google hay muchos mas  ;)

Saludos

PD: Es variable, no variante  :P
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

mopuro

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Re: Nombre Del Sistema
« Respuesta #3 en: Lunes 24 de Septiembre de 2007, 16:05 »
0
Hola:
En resumen, se trata de identificar el PC (Numero de serie, nombre del sistema)con el programa VB que se instala para que el programa VB identifique donde se instala el programa.

Saludos.

Nebire

  • Miembro HIPER activo
  • ****
  • Mensajes: 670
    • Ver Perfil
Re: Nombre Del Sistema
« Respuesta #4 en: Miércoles 26 de Septiembre de 2007, 04:42 »
0
Ya te han contestado...

Esto es un foro de programación para programadores, no se hacen tareas, se ayuda a entender o conocer desde el punto es que te quedas estancado, pero aquí no nos dedicamos a hacer programas a nadie... si como te señalan más arriba usas un buscador posiblemente con ligeras variaciones podrás adaptar algún código de ejemplo a tus intenciones, pero desde luego serás tú quien deba realizarlo... no pedirlo.
«Ma non troppo»
----> ModoVacaciones = False<----

mopuro

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Re: Nombre Del Sistema
« Respuesta #5 en: Miércoles 26 de Septiembre de 2007, 20:37 »
0
Hola:
No se puede ser mas claro, pero se puede ser mas amable. No he pedido el programa entero, solo pedia ayuda para algo muy concreto, el programa son muchisimas mas lineas y muchos formularios y algun proyecto. Algun dia seguro que pediste tu la ayuda. De todos modos Gracias Nebire por la ayuda que no ha presatado.

mopuro

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Re: Nombre Del Sistema
« Respuesta #6 en: Miércoles 26 de Septiembre de 2007, 20:55 »
0
Hola de nuevo:
Problema resuelto y dado el interes que creo por el numero de visitas.
Esta es la solucion para quien le interese. A ti tambien Nebire.

Private Sub Command1_Click()
Dim FSO As New FileSystemObject, dDrive As Drive
Set dDrive = FSO.Drives("c:\")
MsgBox dDrive.SerialNumber
'Necesitas incluir en Proyecto la referencia "Microsoft Scripting Runtime"
End Sub

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Nombre Del Sistema
« Respuesta #7 en: Jueves 27 de Septiembre de 2007, 02:38 »
0
Cita de: "mopuro"
Hola:
No se puede ser mas claro, pero se puede ser mas amable. No he pedido el programa entero, solo pedia ayuda para algo muy concreto, el programa son muchisimas mas lineas y muchos formularios y algun proyecto. Algun dia seguro que pediste tu la ayuda. De todos modos Gracias Nebire por la ayuda que no ha presatado.
A lo que se refiere Nebire es a que ya se te había dado una solución:
Citar
Que tal gente...
¿Ya utilizaste un buscador?
Fecha de fabricación
Nombre del PC
Serie del disco
...
y sin embargo vos insistís:
Citar
Hola:
En resumen, se trata de identificar el PC (Numero de serie, nombre del sistema)con el programa VB que se instala para que el programa VB identifique donde se instala el programa.

Saludos.
Esto da la impresión de que tal vez quieras que hagan las cosas por vos.

Ahora nos decís que la solución es esta:
Citar
Esta es la solucion para quien le interese. A ti tambien Nebire.
Código: Text
  1. Private Sub Command1_Click()
  2.     Dim FSO As New FileSystemObject, dDrive As Drive
  3.     Set dDrive = FSO.Drives(&#34;c:&#092;&#34;)
  4.     MsgBox dDrive.SerialNumber
  5.     'Necesitas incluir en Proyecto la referencia &#34;Microsoft Scripting Runtime&#34;
  6. End Sub
  7.  
Me parece a verla visto antes: Serie del disco

PD: No creo que Nebire necesite de ese código, además es un gran colaborador. Espero que entiendas lo que trato de decirte.
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Nombre Del Sistema
« Respuesta #8 en: Jueves 27 de Septiembre de 2007, 11:49 »
0
Las confusiones de siempre de un medio Escrito.... y de la poca tolerancia de las personas :P  :hippi:


Es bueno que se haya resuelto aunque la verdad sigo sin entender la pregunta :P ahhh ya entendi,,,,.... la pregunta es demasiado confusa pero bueno...

que bien que ya esta resuelto...


Saludos
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

mopuro

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Re: Nombre Del Sistema
« Respuesta #9 en: Jueves 27 de Septiembre de 2007, 22:15 »
0
F Tanori Dice:

[No entendi , la pregunta ¿Puedes ( o si alguien la entiende puede ) explicarla
Saludos]

Y yo levolvi a preguntar.

Pero da igual no pasa nada estoy encatado de conoceros.

Pero ahora me pregunto. como pueden creer que estoy pidiendo el programa con la pregunta que realize, precisamente cuando tenia todo el programa acabado y habia pensado en ligarlo bien ligado.

En fin saludos. adeu