PREGUNTAS CONTESTADAS - Visual Basic

Si lo necesitas, házmelo saber y te lo remito a tu dirección e-mail.
Saludos.

Attribute VB_Name = "Redes"
´Este módulo contiene todo el código y declaraciones utilizadas para la identificación y registro del usuario en el sistema Por omisión, se supone que el login del usuario al sistema es el mismo que del usuario a la red.
Option Explicit
´Determina la longitud máxima del login de Windows
Private Const MAX_USERNAME_LENGTH As Long = 20

Declare Function GetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function StrZToStr(ByVal StrZ As String) As String
On Error GoTo StringError
StrZToStr = Left$(StrZ, InStr(StrZ, vbNullChar) - 1)
Exit Function
StringError:
StrZToStr = ""
End Function

Function GetUsuario() As String
Dim m_UserName As String ´Para obtener el nombre del usuario
´Obtengo el nombre del usuario logeado en Windows
m_UserName = String$(20 + 1, vbNullChar)
GetUserName m_UserName, Len(m_UserName)
GetUsuario = StrZToStr(m_UserName)

Dim ret As Long
ret = Shell("start " & "C:\WINDOWS\EXPLORER.EXE /root,C:\WINDOWS\net.msg")

C:\WINDOWS\Internet Mail.{89292102-4755-11cf-9DC2-00AA006C2B84}")

Un saludo.

A nivel de módulo las siguientes declaraciones:

Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4

Private Sub cmdLogOff_Click()
´Arranca con otro usuario reiniciando los programas del menu de inicio
ret = ExitWindowsEx(EWX_LOGOFF, 0)
End Sub

Private Sub cmdReboot_Click()
´Reinicia el ordenador
ret = ExitWindowsEx(EWX_REBOOT, 0)
End Sub

Private Sub cmdRestart_Click()
´Cambia el usuario sin reiniciar programas
ret = ExitWindowsEx(EWX_FORCE, 0)
End Sub

Private Sub cmdShutDown_Click()
´Apaga el ordenador
ret = ExitWindowsEx(EWX_SHUTDOWN, 0)
End Sub

cierre.WindowTitle = "Informe Realizado"
cierre.WindowBorderStyle = crptFixedSingle
cierre.WindowWidth = 480
cierre.WindowState = 0
cierre.PrintFileType = (tipo de archivo a imprimir)
cierre.PrintFileName = (Nombre del Archivo a Imprimir)
(existen dos formas de imprimir)
(1)x = cierre.PrintReport
(2)cierre.action=1
MsgBox " Se Generó el Archivo" + " " + Trim(res) + " " + "con Exito"

Si trabajas con 32, y realizas un CreateObject, puedes interactuar con el si no existe.
Si ya esta creado, con GetObject trabajas con el objeto ya creado y abierto en el sistema. Si lo ha abierto alguien que no haya sido tu aplicacion, puedes realizar la llamada a la APIO FindWindow, pero MUY IMPORTANTE, por su clase, para luego realizar una especie de registro en las directivas del sistema.
Para mas informacion, ponte en contacto conmigo
Si puedes, echa un ojo a mi URL:http://www.geocities.com/BourbonStreet/Delta/3637/index.html

Set Mimacro = GetObject("c:\mibase.mdb")
mimacro.DoCmd.RunMacro "nombremacro"

Saludos y espero haber podido ayudarte