Programación General > Visual Basic 6.0 e inferiores

 Nombre Del Sistema

<< < (2/2)

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.

mopuro:
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:

--- 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.
--- Fin de la cita ---
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
...
--- Fin de la cita ---
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.
--- Fin de la cita ---
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.
--- Fin de la cita ---

--- Código: Text ---Private Sub Command1_Click()    Dim FSO As New FileSystemObject, dDrive As Drive    Set dDrive = FSO.Drives(&#34;c:&#092;&#34;)    MsgBox dDrive.SerialNumber    'Necesitas incluir en Proyecto la referencia &#34;Microsoft Scripting Runtime&#34;End Sub 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.

F_Tanori:
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

mopuro:
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

Navegación

[0] Índice de Mensajes

[*] Página Anterior