elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Como saber la unidad donde esta instalado windows?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Como saber la unidad donde esta instalado windows?  (Leído 11,744 veces)
hunter18

Desconectado Desconectado

Mensajes: 202


Ver Perfil
Como saber la unidad donde esta instalado windows?
« en: 29 Junio 2010, 03:18 am »

En algunas computadoras no siempre utilizan la unidad C:/ para instalar windows que funcion o api de vb6 me puede ayudar a detectar en que unidad se encuetra el sistema operativo.


En línea

Once

Desconectado Desconectado

Mensajes: 120


Ver Perfil WWW
Re: Como saber la unidad donde esta instalado windows?
« Respuesta #1 en: 29 Junio 2010, 03:38 am »

Creo que podes utilizar variables de entorno WinDir y seria algo asi:

Código
  1. Dim SO as string
  2. SO = Environ("Windir")
  3.  

y te devolvera la unidad + \WINDOWS

Saludos.


En línea

hunter18

Desconectado Desconectado

Mensajes: 202


Ver Perfil
Re: Como saber la unidad donde esta instalado windows?
« Respuesta #2 en: 29 Junio 2010, 03:47 am »

Si funciona pero no encuentro info sobre la funcion environt?, que otro uso se le puede a dicha funcion ya que es la 1era vez que escucho sobre la misma
En línea

neptun0

Desconectado Desconectado

Mensajes: 12


Ver Perfil
Re: Como saber la unidad donde esta instalado windows?
« Respuesta #3 en: 29 Junio 2010, 04:08 am »

Si funciona pero no encuentro info sobre la funcion environt?, que otro uso se le puede a dicha funcion ya que es la 1era vez que escucho sobre la misma

:http://msdn.microsoft.com/es-es/library/0fx287h4(VS.80).aspx

Un saludo ;)
En línea

Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: Como saber la unidad donde esta instalado windows?
« Respuesta #4 en: 29 Junio 2010, 11:34 am »

Creo que podes utilizar variables de entorno WinDir y seria algo asi:

Código
  1. Dim SO as string
  2. SO = Environ("Windir")
  3.  

y te devolvera la unidad + \WINDOWS

Saludos.

Ok, pero mejor pon $ despues de Environ que si no queda como Variant... :-\
Código
  1.    Dim SO As String
  2.    SO = Environ$("Windir")
Si quieres saber todas las posibilidades de Environ abres el CMD y escribes:
Código:
set
Te saldra una lista con las variables de rutas que puedes utilizar... :P

Salu2! ;)
« Última modificación: 29 Junio 2010, 11:36 am por *PsYkE1* » En línea

Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: Como saber la unidad donde esta instalado windows?
« Respuesta #5 en: 29 Junio 2010, 12:06 pm »

Código
  1. Private Sub Form_Load()
  2.    MsgBox GetDrive01 & vbNewLine & GetDrive02
  3. End Sub
  4.  
  5. Public Function GetDrive01() As String
  6.    GetDrive01 = Left$(VBA.CurDir$, 2)
  7. End Function
  8.  
  9. Public Function GetDrive02() As String
  10.    GetDrive02 = Environ$("HOMEDRIVE")
  11. End Function

La variable de entorno que necesitas es "HOMEDRIVE"
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Saber si un programa esta instalado
Programación Visual Basic
enterariel 3 6,835 Último mensaje 25 Agosto 2011, 22:40 pm
por ignorantev1.1
CD BOOT WINDOWS XP SP3 INSTALADO, COMO SE CREA?
Windows
Fra839 3 3,502 Último mensaje 24 Noviembre 2012, 13:23 pm
por Fra839
Donde esta el debug? Windows 8 pro
Windows
rdzlcs 1 5,718 Último mensaje 5 Julio 2013, 20:32 pm
por knario
Cómo saber qué app o programa está gastando la batería de tu portátil en Windows
Noticias
wolfbcn 0 1,931 Último mensaje 16 Enero 2019, 21:31 pm
por wolfbcn
como saber a donde manda los datos una backdoor que me esta espiando
Dudas Generales
abderahim007 1 1,857 Último mensaje 24 Julio 2019, 01:00 am
por h1r0sh1
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines