SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: mopuro en Domingo 23 de Septiembre de 2007, 22:28

Título: Nombre Del Sistema
Publicado por: mopuro en Domingo 23 de Septiembre de 2007, 22:28
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.
Título: Re: Nombre Del Sistema
Publicado por: F_Tanori en Lunes 24 de Septiembre de 2007, 09:53
No entendi , la pregunta ¿Puedes ( o  si alguien la entiende puede )  explicarla


Saludos
Título: Re: Nombre Del Sistema
Publicado por: Mollense en Lunes 24 de Septiembre de 2007, 14:46
Que tal gente...
¿Ya utilizaste un buscador?
Fecha de fabricación (http://programatium.com/biblioteca/visual-basic/numerodeserie.htm)
Nombre del PC (http://www.canalvisualbasic.net/forum/forum_posts.asp?TID=31170)
Serie del disco (http://www.lawebdelprogramador.com/news/mostrar_new.php?id=96&texto=Visual+Basic+Avanzado&n1=449272&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0)

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

Saludos

PD: Es variable, no variante  :P
Título: Re: Nombre Del Sistema
Publicado por: mopuro en Lunes 24 de Septiembre de 2007, 16:05
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.
Título: Re: Nombre Del Sistema
Publicado por: Nebire en Miércoles 26 de Septiembre de 2007, 04:42
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.
Título: Re: Nombre Del Sistema
Publicado por: mopuro en Miércoles 26 de Septiembre de 2007, 20:37
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.
Título: Re: Nombre Del Sistema
Publicado por: mopuro en Miércoles 26 de Septiembre de 2007, 20:55
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
Título: Re: Nombre Del Sistema
Publicado por: Mollense en Jueves 27 de Septiembre de 2007, 02:38
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 (http://programatium.com/biblioteca/visual-basic/numerodeserie.htm)
Nombre del PC (http://www.canalvisualbasic.net/forum/forum_posts.asp?TID=31170)
Serie del disco (http://www.lawebdelprogramador.com/news/mostrar_new.php?id=96&texto=Visual+Basic+Avanzado&n1=449272&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0)
...
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("c:\")
  4.     MsgBox dDrive.SerialNumber
  5.     'Necesitas incluir en Proyecto la referencia "Microsoft Scripting Runtime"
  6. End Sub
  7.  
Me parece a verla visto antes: Serie del disco (http://www.lawebdelprogramador.com/news/mostrar_new.php?id=96&texto=Visual+Basic+Avanzado&n1=449272&n2=1&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0)

PD: No creo que Nebire necesite de ese código, además es un gran colaborador. Espero que entiendas lo que trato de decirte.
Título: Re: Nombre Del Sistema
Publicado por: F_Tanori en Jueves 27 de Septiembre de 2007, 11:49
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
Título: Re: Nombre Del Sistema
Publicado por: mopuro en Jueves 27 de Septiembre de 2007, 22:15
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