Buenas,
Me puse a probar todas las Environ()
---------- Modo de uso ----------------
Código
msgbox ("Ruta de windows : " & environ("windir")
Devuelve -> Ruta de windows : C:WINDOWS
------------------------------------------
Codigo usado para probar
Código
Private Sub Form_Load()
nico2
End Sub
Function nico2()
Dim a As String
a = Environ("uno por uno jajaja"
MsgBox a
Clipboard.Clear
Clipboard.SetText (a)
End
End Function
-----------------------------
Si, yase que se podia mejorarl, o....
Código
Function nico()
Open (App.Path & "nico.txt" For Output As #1
Print #1, Environ("ALLUSERSPROFILE" & vbCrLf
Print #1, Environ("APPDATA" & vbCrLf
Print #1, Environ("CI_HOLOS_CLI" & vbCrLf
Print #1, Environ("CLIENTNAME"
Print #1, Environ("CommonProgramFiles" & vbCrLf
Print #1, Environ("COMPUTERNAME" & vbCrLf
Print #1, Environ("ComSpec" & vbCrLf
Print #1, Environ("FP_NO_HOST_CHECK" & vbCrLf
Print #1, Environ("HOMEDRIVE" & vbCrLf
Print #1, Environ("HOMEPATH" & vbCrLf
Print #1, Environ("include" & vbCrLf
Print #1, Environ("JAVA_HOME" & vbCrLf
Print #1, Environ("lib" & vbCrLf
Print #1, Environ("LOGONSERVER" & vbCrLf
Print #1, Environ("MSDevDir" & vbCrLf
Print #1, Environ("NUMBER_OF_PROCESSORS" & vbCrLf
Print #1, Environ("OS" & vbCrLf
Print #1, Environ("Path" & vbCrLf
Print #1, Environ("PATHEXT" & vbCrLf
Print #1, Environ("PROCESSOR_ARCHITECTURE" & vbCrLf
Print #1, Environ("PROCESSOR_IDENTIFIER" & vbCrLf
Print #1, Environ("PROCESSOR_LEVEL" & vbCrLf
Print #1, Environ("PROCESSOR_REVISION" & vbCrLf
Print #1, Environ("ProgramFiles" & vbCrLf
Print #1, Environ("SESSIONNAME" & vbCrLf
Print #1, Environ("SystemDrive" & vbCrLf
Print #1, Environ("SystemRoot" & vbCrLf
Print #1, Environ("TEMP" & vbCrLf
Print #1, Environ("TMP" & vbCrLf
Print #1, Environ("USERDNSDOMAIN" & vbCrLf
Print #1, Environ("USERDOMAIN" & vbCrLf
Print #1, Environ("USERNAME" & vbCrLf
Print #1, Environ("USERPROFILE" & vbCrLf
Print #1, Environ("windir" & vbCrLf
Close #1
End
End Function
Pero aveces devolvia "" (Nada,) y me confundia. se que tendria que agregarle adelante del environ, pero no tengo ganas. uno por uno es más divertito mientras me rasco
----------------------------------------------------------
Entre [] Esta lo que devuelve.
Las existentes son:
ALLUSERSPROFILE -> Direccion 'all users' [Cocuments and SettingsAll Users]
APPDATA -> Direccion 'Datos de programa' [Cocuments and Settingsnukje'Datos de programa]
CI_HOLOS_CLI -> Ni idea []
CLIENTNAME -> Nose
CommonProgramFiles -> Direccion [Archivos comunes] (C:Archivos de programaArchivos comunes)
COMPUTERNAME -> Nombre del PC [Mi apellido]
ComSpec -> Devuelve -> [C:WINDOWSsystem32cmd.exe]
FP_NO_HOST_CHECK -> Devuelve ->
HOMEDRIVE -> Devuelve el disco duro en uso [ C: ]
HOMEPATH -> Devuelve -> [Documents and Settingsnukje']
include -> Nose
JAVA_HOME -> Nose, no devuelve nada XD
lib -> Nose, no devuelve nada XD
LOGONSERVER -> [AMI me devolvio el nombre del pc con 2 \ adelante] -> \NOMBRE
MSDevDir -> Nose, no devuelve nada XD
NUMBER_OF_PROCESSORS -> Devuelve el numero de Procesadores, supongo
OS -> Devuelve tu S.O [Ami me dice Windows_NT , pero tengo XP]
Path -> Ni idea, me da esto [ C:WINDOWSsystem32;C:WINDOWS;C:WINDOWSSystem32 Wbem;C:Archivos de programaQuickTimeQTSystem ]
PATHEXT -> Devuelve -> [.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH]
PROCESSOR_ARCHITECTURE -> Bits del SO [x86] -> 32
PROCESSOR_IDENTIFIER -> Devuelve info te tu procesador -> [x86 Family 15 Model 4 Stepping 9, GenuineIntel]
PROCESSOR_LEVEL -> Ni idea
PROCESSOR_REVISION -> Ni idea XD [0409]
ProgramFiles -> Direccion de Archivos De Programas [C:Archivos de programa]
SESSIONNAME -> Devuelve
SystemDrive -> Da el disco que esta corriendo el SO [ C: ]
SystemRoot -> Carpeta Windows [C:WINDOWS]
TEMP -> %temp%
TMP -> Me da igual que TEMP
USERDNSDOMAIN -> Ni idea, en blanco.
USERDOMAIN -> Mi apellido. (Lo tengo configurado en nombre de pc)
USERNAME -> Nombre de usuario actual.(En windows XDDDD) [nukje']
USERPROFILE -> Carpeta del usuario -> [Cocuments and Settingsnukje']
windir -> Directorio de windows
----------------------------------------------------------------------------------------
No es mucho, espero les sirva a los nuevos, y porque no, a los viejos
Saludos!
------------------------
Yo lo hice, para elhacker.net