Como saber el usuario de windows

[pepecrk]

Estoy haciendo una aplicacion en vb.net la cual accede a una bbdd aces y tengo algunas dudas.

1. La aplicación va a ser instalada en varios pc, y debe hacer una copia de seguridad de la base de datos cada vez que se inicia, pero esta copia solo debe hacerla si el usuario de windows es el del jefe. Como puedo hacer en mi aplicacion para conocer el usuario?

2. Como puedo imprimir las lineas seleccionadas del listview conservando el el color y el tipo de letra?

3. Tengo que pasar datos de una tabla a un listview, pero la cantidad de datos es considerable, y tarda bastante en cargar todo el listview. Os pongo el codigo a ver si sabeis como puedo optimizarlo.
Dim sql As String
Dim tablatem As DataTable = New DataTable
Dim fila As DataRow
LvDatos.Items.Clear()
sql = "select * from llamadas"
con.EjecutaSql(sql, tablatem)
If tablatem.Rows.Count > 0 Then
lvwColumnSorter.Order = SortOrder.None
lvwColumnSorter.SortColumn = 0
For Each fila In tablatem.Rows
LvDatos.Items.Add(IIf(fila(7) = True, "Entra", "Sale"))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(0))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(1))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(2))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(3))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(4))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(fila(5))
LvDatos.Items(LvDatos.Items.Count - 1).SubItems.Add(IIf(fila(6) = True, "Si", "No"))
If fila(8) = True Then
LvDatos.Items(LvDatos.Items.Count - 1).BackColor = Color.Yellow
End If
Next

[seba123neo]

Hola,para saber el usuario actual:

Código:

MsgBox(System.Environment.UserName)

saludos.

[etxebe]

Hola:

Iniciado por seba123neo

Hola,para saber el usuario actual:

Código:

MsgBox(System.Environment.UserName)

saludos.

Me interesa el tema, y cuando lo e probado, me da el error de "Variable no definida" refiriendose a "System". Como debo declararlo?¿?¿

[Avellaneda]

Estás usando VB.Net?

Porque el código que puso Seba es para esa plataforma, en VB6 sería así:

Código:

MsgBox Environ("UserName")

[pepecrk]

Muchas gracias seba123 no sabia que era tan facil, ya estaba peleandome cons las APIs.

Iniciado por etxebe

Hola:



Me interesa el tema, y cuando lo e probado, me da el error de "Variable no definida" refiriendose a "System". Como debo declararlo?¿?¿

No se porque te dice variable no definida, a mi me funciona perfectamente con el visualStudio 2005

[etxebe]

Que despiste, no me habia fijado que estabais hablando sobre .net.
Mi aplicacion es de vb6, y por eso no funcionaba. Muchisimas gracias Avellaneda, muy bueno por tu parte el darte cuenta. Gracias de nuevo a todos, ahora me va perfecto.

Agur.