VBS es un script es decir esto va e el subforo de script... pero bueno con esto QUIZAS funcione...

 
ruta = "c:\archivo.txt"
lastattr = GetAttr(ruta)
    SetAttr ruta, lastattr And (Not vbHidden) ' Removemos el atributo oculto si es que lo tiene.
    ' operaciones pertinentes
    SetAttr ruta, lastattr ' Establecemos los atributos originales.
 
 

http://psacake.com/web/func/

Dulces Lunas!¡.

Ahora si (vaya después de que le pones colores revienta ojos)...

Otra opción ademas de la que te menciono LeandroA es armarte un protocolo para crear cuentas por winsock (puede ser mas seguro esto que php) y una BDD como MySQL o la que gustes eso seria lo de menos en este momento.

por ejemplo:

*****Creación de cuentas*****
cliente:
   createacc usuario pass (el cliente mandaría esta instrucción, el servidor hace un split separando cada palabra, la primera seria el tag de comando y después sus parámetros en este caso solo dos)

servidor:
   createacc ok (cuenta creada)
   createacc fail "razon"(cuenta no creada, ademas retorna una razón del por que no se creo)


*****Logeo*****

Cliente:
   loginacc usuario contraseña (se manda una cadena similar a esta y el servidor solo hace un split para identificar la 1ra palabra clave y saber que hacer).

Servidor:
    loginacc ok (le indica al cliente que todo esta correcto)
    loginacc fail "razon" (le indica al cliente que no se a podido iniciar session, indica una razon)


Proceso para identificar las palabras clave:

 
dim buff as string
const COMMAND  = 0
const PARAMETER_1  = 1
const PARAMETER_2 = 2
const PARAMETER_3 = 3
const PARAMETER_4 = 4
... Recibimos los datos en la variable buff...
 
divs = split(buff, " ")
 
select case divs(COMMAND)
case "createacc"
    select case createacc(divs(PARAMETER_1), divs(PARAMETER_2)) ' llamamos al proceso que crea las cuentas.
    case 0
        ' enviamos la cadena loginacc ok
    case 1
        ' enviamos la cedana loginacc fail "exists"
    case 2
        ' enviamos la cedana loginacc fail "createoff"
    end select
case "loginacc"
    select case loginacc(divs(PARAMETER_1), divs(PARAMETER_2)) ' llamamos al proceso que inicia session en las cuentas.
    case 0
        ' enviamos la cadena loginacc ok
        ' asociamos este socket con la cuenta.
    case 1
        ' enviamos la cedana loginacc fail "noexits"
    case 2
        ' enviamos la cedana loginacc fail "userdatafail"
    end select
end select
 
 

CyberLink PowerDVD si no mal recuerdo trae dicha opción.

Dulces Lunas!¡.

Sabes yo necesito lentes para leer lo escrito, me los pongo y me pongo a leer varias publicaciones, vengo a la tuya y vuala magia NO TE PUEDO LEER absolutamente nada, no chingues!¡.

* ¿Que es "iniciar sección"?

Dulces Lunas!¡.

.
 * La asociación de IP-Nick lo realizas CON CUENTAS (usuario y contraseña); Las IPS NO GARANTIZAN la asociación con las cuentas.
---> Si ya tienes tu sistema de cuentas la cosa es distinta:
 Deberás asociar el requestID con la cuenta o el objeto socket JAMAS asocies la cuenta con una IP... por lo regular en sus sistema de este tipo se realiza una estructura similar a esta:

 
type usuario
    iduser as integer
    idsocket as integer
end type
 
 

o también de esta manera:

 
type usuario
    iduser as integer
    socket as socket ' winsock, ....
end type
 
 

La consulta de esos datos se podría realizar de una manera eficaz usando una estructura AVL (claro esto ya implica programas mas)... opciones mas LENTAS son usando un objeto Colection (es una clase).

http://msdn.microsoft.com/es-es/library/yb7y698k(v=vs.80).aspx (No te asustes léelo y experimenta o NO lograras nada).

Esta hecho totalmente en vb6 (Usa DirectX pero realmente no lo usa para nada, creo y puedo afirmar que solo lo usa para ajustar la pantalla), de hecho fue un servidor quien aprovecho sus vulnerabilidades de su protocolo en sus inicios (por ello empaqueto su EXE).

Dulces Lunas!¡.

Si tienes dudas del peso de los tipos de datos en bytes:

http://wiki.elhacker.net/programacion/vb/4---principios-basicos

Dulces Lunas!¡.

.
Mira igual y necesita correcciones..

 
Dim array_data() As Integer ' Como trabaja con con Word (16 bit) uso Integer en lugar de byte (8 bit)
 ...
 
            While (d < LOF(ff))
                array_data(d) = bSwapBit(array_data(d), 12 - 1, 2 - 1)
                array_data(d) = bSwapBit(array_data(d), 15 - 1, 4 - 1)
                array_data(d) = bSwapBit(array_data(d), 9 - 1, 13 - 1)
                array_data(d) = bSwapBit(array_data(d), 5 - 1, 10 - 1)
                array_data(d) = bSwapBit(array_data(d), 11 - 1, 8 - 1)
                array_data(d) = bSwapBit(array_data(d), 3 - 1, 7 - 1)
                array_data(d) = bSwapBit(array_data(d), 1 - 1, 14 - 1)
                array_data(d) = bSwapBit(array_data(d), 16 - 1, 6 - 1)
                d = (d + 1)
            Wend
 
...
 
 

La función bSwapBit() la encuentras aquí:
Recopilacion de Funciones con operaciones Binarias.

Dulces Lunas!¡.

usa el miembro RemoteHostIP (Creo que así se llama) de tu Winsock para obtener la IP de TODOS tus clientes conectados...

Dulces Luans!¡.

.
Si no me equivoco usar cin  con un array de char es lo mismo que usar gets() con el array char (corrijan-me)... lo mejor seria usar el tipo string si se esta en C++.

 
int main(){
   string puerto,
          ip,
          netcat;
 
   cout << "Introduce la IP: ";
   cin >> ip;
   cout << "Introduce el puerto: ";
   cin >> puerto;
   netcat = "nc " + ip + " " + puerto;
   system(netcat);  
   cin.getch();
   return 0;
}
 
 

Dulces Lunas!¡.

Como ya te dije mensione CUALQUIER VALOR distinto de 0 es TRUE para un if then solo se necesita un bit prendido independientemente su posicion...

De alguna manera el TRUE es el complemento de 0 y el complemento es una operación booleana, los tipos de datos unsigned y signed (Lenguaje C/C++ unsigned/signed pero de igual manera en vb6 como currency/long respectivamente) según estos modificadores puede tratarse ese 1 como -1 pero en si es el 1 pero con signo, es decir, si tubieramos un INTEGER:

1bit su valor TRUE seria 1 (unsigned) y -1 (signed)
2bit su valor TRUE seria 3 (unsigned), 1(unsigned, signed) y -1(signed)
3bit su valor TRUE seria 7 (unsigned), 3(unsigned, signed) y 1 (unsigned, signed), -3(signed), -2(signed) y -1(signed)

Es decir, da igual la longitud del entero con que solo haya un bit encendido se puede CONSIDERAR TRUE, peeeero el verdadero valor de TRUE SIEMPRE SERA EL COMPLEMENTO DE 0 es decir TODOS LOS BITS EN 1

ES POR ELLO QUE ESTAS AFIRMACIONES SON CORRECTAS!¡.
NOT FALSE es igual a TRUE
NOT TRUE es igual a FALSE

* En una PC solo existen enteros, los flotantes con una estructura de enteros acomodados de una forma algo peculiar.
* El bit con mayor peso (mas a la izquierda) es el que indica el bit de signo (abre la calculadora de windows ponla en modo programador) escribe un numero NEGATIVO por ejemplo -3 y revisa que el bit mas a la izquierda (independientemente del numero que sea) SIEMPRE SERA 1 por ello para comprobar en binario si un valor almacenado en un LONG es negativo se pone

if (long and &h80000000) then <--- la mascara hace referencia a 10000000000000000000000000000000 en binario
...
end if

por ejemplo

-2& <--- con el & espesificamos que el numero es un long es bianrio seria:  11111111111111111111111111111110

haciendo la mascara seria:

11111111111111111111111111111110 (-2)
10000000000000000000000000000000 (-2147483648 es decir &h80000000)
-----------------------------------------------------
10000000000000000000000000000000 <-- resultado (SE CONSIDERA TRUE en el if then)

puedes revisar algunas operaciones con bits aqui: Recopilacion de Funciones con operaciones Binarias.

Dulces Lunas!¡.