| Pregunta: | 26721 - LOGON SCRIPT EN WIN200 SERVER |
| Autor: | betty rivillas |
| necesito conocer la forma de activar un logon script para establecerle a los usuarios unidades de disco fijas para diferentes rutas en la red y los servidores por ejemplo X: o M: | |
| Respuesta: | ULISES NOEL ORTEGA GARCIA |
| Hola: Espero y esto te sirva de algo, es un archivo que yo uso para asignar unidades al sevidor. Este archivo yo lo proceso con WScript de W98 en adelante. Si tienes alguna duda, puedes escribirme a mi correo. [email protected] Bye. ..........................Archivo de Inicio de Secion.................................... Dim WSHNetwork Dim fso Dim colDrives, SharePoint Dim CRLF Dim NoConect CRLF = Chr(13) & Chr(10) Set WSHNetwork = WScript.CreateObject("WScript.Network") Set fso = CreateObject("Scripting.FileSystemObject") Call Proces Sub Proces Dim h Dim Texto '||||||||||||||||||||||CREATING DRIVE ON SERVER|||||||||||||||||||||||||||| On Error Resume Next WSHNetwork.MapNetworkDrive "F:", "\\SERV\CARPETA" h = Hour(Now) If h < 12 then Texto= "Buenos Dias! " & Chr(9) & WSHNetwork.UserName ElseIf h < 17 then Texto ="Buenas Tardes! " & Chr(9) & WSHNetwork.UserName Else Texto= "Buenas noches! " & Chr(9) & WSHNetwork.UserName End If Set colDrives = WSHNetwork.EnumNetworkDrives Texto = "Encabezado " Texto = Texto & CRLF & " Conexiones actuales: " & CRLF For i = 0 To colDrives.Count - 1 Step 2 Texto = Texto & CRLF & colDrives(i) & Chr(9) & colDrives(i + 1) & " " Next MsgBox Texto & "." & CRLF & CRLF & Date() & " " & Time() & ".",64 End Sub | |