como compartir una carpeta desde línea de comandos.

jeje bueno esto a algunos les parecerá incómodo pero para la gente que tiene o estandariza instalaciones a lo mejor le es útil tener un bat con las carpetas típicas o simplemente quiere hacerlo por cojones desde la línea de comandos (PORQUE NO? yo lo hago :) ) BUENO AQUI VIENE NUESTRO AMIGO NET SHARE.

bueno para empezar probaremos de crear una carpeta que se llame PRUEBA (que original e? )

c:\>md prueba

y a continuación seguiremos con el gran NET SHARE.

c:\>net share prueba=c:\prueba /GRANT:usuario,FULL

AU ya tenemos la carpeta prueba compartida para el usuario "usuario" con acceso total, hay 2 opciones más que son READ, CHANGE imagino que no hace falta que lo traduzca no?

net share prueba /UNLIMITED

con este comando le decimos que pueden acceder infinitos usuarios, falso pero bueno nos lo creemos. YA TENEMOS LA UNIDAD COMPARTIDA PERO ADEMÁS LE VAMOS A PONER UN COMENTARIO AL RECURSO COMPARTIDO.

NET SHARE prueba /REMARK:"JATEMATE"

sI escribimos ahora solo net share nos aparecerán todos los recursos compartidos del equipo, y podemos comprobar que está todo ok.

Bueno hasta aquí hemos llegado hoy, hay mucho trabajo que hacer y poco tiempo para hacerlo todo al final me tendré que comprar una agenda para organizarme un poquito mejor :D

Saludos a todos,

Script en vbs para cambiar la ip (funciona en windows vista y en windows xp)

Bueno como todos sabéis a parte de mi querida línea de comandos también hay otras formas de hacer las cosas, entre otras con vbs.

He recopilado en el siguiente script 2 scripts de technet 1 para cambiar la conf ip y otro para las dns. Espero que os sea de ayuda.

Abrid vuestro editor de texto favorito. copiais el contenido del script y lo guardais con extensión .vbs

------------ INICIO-----------------<strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array("192.168.102.133")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.102.254")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "La IP a sido cambiada correctamente."
Else
WScript.Echo "La IP no se ha podido cambiar."
End If
Next

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
arrDNSServers = Array("192.168.102.2", "194.179.1.100")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
-------------------- FIN --------->>> corta antes de esta línea.

Luego solo falta ejecutarlo con doble click o con cscript nombrefichero.vbs

y eso es todo amigos. Hasta la próxima