Laboratoire Microsoft |  Blog |  Webcast |  Students Club |  FaqXP  |  CertifExpress 
 Le Forum de Référence sur les Technologies Microsoft - http://www.forum-microsoft.org

---{[ A quoi ressemblent vos scripts de connexion]}---

Forum sur le système d'exploitation Windows 2000 Server

Modérateur: Modérateurs_Systèmes

Messagepar clickclac sur Lun 16 Jan 2006, 18:17

bonsoir,
voici mon script de connexion:

Code: Tout sélectionner
'Script de demarrage à placer sur le serveur dans le repertoire
'C:\WINNT\SYSVOL\sysvol\NT\scripts
'declarer le script dans le profil utilisateur de AD (ecrir seulement le nom du fichier)
'permet de monter des lecteurs reseaux et des imprimantes connecter à un serveur dimpression



Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "H:", "\\w2ksrv\Commun"

PrinterPath = "\\W2ksrv\LaserJet5"
WshNetwork.AddWindowsPrinterConnection PrinterPath
PrinterPath2 = "\\W2ksrv\HP_Color4500"
WshNetwork.AddWindowsPrinterConnection PrinterPath2


mais le probleme qui peux sembler bizard c'est:

quand je me connect depuis une station loguer en admin le script fonctionne

alors que quand je me connect d'une station en tant que user simple le script me monte bien mon lecteur reseau mais me dit qu il y a un probleme de droit pour les imprimantes

alors que dans les propriete de chaque imprimante j ai donner les droit a tout le monde....

comment puis je resoudre mon probleme???

faut il que dans mon script je donne les droit administrateur a un user
ou alors y a t il un autre moyen???


merci
Avatar de l’utilisateur
clickclac
Full Member
Full Member
 
Messages: 107
Inscrit le: Ven 16 Sep 2005, 12:11

Messagepar orlith sur Mar 24 Jan 2006, 10:43

Voici mes scripts :
Code: Tout sélectionner
REM * Created Date : 21.11.2002
REM * Version      : 1.0
REM * Comment      :
REM ***********************************
REM * Modifed Date : 20040913
REM * Version      : 1.2
REM ***********************************


Echo Logon on script for Users
Echo %logonserver%


IF %COMPUTERNAME:~0,2%==DT GOTO go
IF %COMPUTERNAME:~0,2%==LT GOTO go

goto END

:go


REM ===================================
REM Attribution des Partages
REM -----------------------------------

net use i: /delete >NUL
net use i: \\serveur03\%USERNAME%$
net use j: /delete >NUL
net use J: \\serveur03\modeles
net use k: /delete >NUL
net use K: \\serveur03\execute
net use h: /delete >NUL
net use H: \\serveur03\groupes


REM ===================================
REM Information de log
REM -----------------------------------
REM Computer
echo %USERNAME% >\\serveur03\mngt$\%COMPUTERNAME%.UC1
echo . >>\\serveur03\mngt$\%COMPUTERNAME%.UC1
SET >>\\serveur03\mngt$\%COMPUTERNAME%.UC1
echo . >>\\serveur03\mngt$\%COMPUTERNAME%.UC1
IPCONFIG /all >>\\serveur03\mngt$\%COMPUTERNAME%.UC1
REM User
echo %COMPUTERNAME% >\\serveur03\mngt$\%USERNAME%.ID1
echo . >>\\serveur03\mngt$\%USERNAME%.ID1
SET >>\\serveur03\mngt$\%USERNAME%.ID1
REM -----------------------------------

REM =======================================
REM Installation de l'economiseur d'ecran
REM ---------------------------------------

%windir%\Regedit /S %logonserver%\Netlogon\FR\ScreenSaver.reg

REM ===================================
REM Nettoyage de C:\Temp
REM -----------------------------------

Del c:\temp\cache.ndk /q
Del c:\temp\*.tmp /q


REM ====================================
REM Synchronisation de fichier (modèles)
REM ------------------------------------

%logonserver%\Netlogon\FR\File_Sync.cis


REM ===================================
REM Installation des Imprimantes
REM -----------------------------------

call %LOGONSERVER%\Netlogon\fr\Logonprint.cmd

:END


LogonPrint :
Code: Tout sélectionner
@Echo off
REM * Created Date : 03.03.2003
REM * Version      : 1.0
REM * Comment      : Attribution des Imp en fonction du groupe.
REM ***********************************
REM * Modifed By   :
REM * Modifed Date :
REM * Version      :
REM * Comment      :
REM ***********************************

Echo Logon on script for Users
Echo %logonserver%

SET RIEN="Rien"
SET DefPRN=%RIEN
SET DefPRN=%DefPRN:"=%

@If exist c:\Temp\%USERNAME%.PRT5 GOTO END
echo %COMPUTERNAME% >C:\Temp\%USERNAME%.PRT5

REM Efface Toutes les imprimantes Réseaux.
regedit.exe /s %LOGONSERVER%\Netlogon\fr\DeleteAllPrinters.reg

REM Teste la présence d'une imprimante branchée sur LPT1
REM LPT1 est OK on ne touche pas à l'imprimante par defaut.

:: Read default printer from registry and store in temporary file

REGEDIT /E %TEMP%.\DefPRN.dat "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices"

:: Read default printer from temporary file

FOR /F "tokens=2 delims=,=" %%A IN ('TYPE %TEMP%.\DefPRN.dat ^| FIND "LPT1"') DO SET DefPRN=%%A

:: Remove temporary file

DEL %TEMP%.\DefPRN.dat

:: Remove quotes from variable and display its value

SET DefPRN=%DefPRN:"=%
Set DefPRN



REM Verification du groupe du user
REM et ajout des imprimantes du groupe
REM si absence de LPT1 l'imprimante N&B rajoutée est mise par defaut



%LOGONSERVER%\Netlogon\fr\ifmember.exe INFO
if errorlevel 1 goto INF

%LOGONSERVER%\Netlogon\fr\ifmember.exe RH GOTO RH
if errorlevel 1 goto RH

%LOGONSERVER%\Netlogon\fr\ifmember.exe MKT GOTO MKT
if errorlevel 1 goto MKT

%LOGONSERVER%\Netlogon\fr\ifmember.exe CCL GOTO CCL
if errorlevel 1 goto CCL

%LOGONSERVER%\Netlogon\fr\ifmember.exe LOG GOTO LOG
if errorlevel 1 goto LOG

%LOGONSERVER%\Netlogon\fr\ifmember.exe CLI GOTO CLI
if errorlevel 1 goto CLI

GOTO END
:INF
wscript.exe //nologo %LOGONSERVER%\Netlogon\fr\INF.vbs
If "%DefPRN%"=="RIEN" wscript.exe //nologo //B %LOGONSERVER%\Netlogon\fr\INFdefaut.vbs
GOTO END

:RH
wscript.exe //nologo %LOGONSERVER%\Netlogon\fr\RH.vbs
If "%DefPRN%"=="RIEN" wscript.exe //nologo //B %LOGONSERVER%\Netlogon\fr\RHdefaut.vbs
GOTO END

:MKT
wscript.exe //nologo %LOGONSERVER%\Netlogon\fr\MKT.vbs
If "%DefPRN%"=="RIEN" wscript.exe //nologo //B %LOGONSERVER%\Netlogon\fr\MKTdefaut.vbs
GOTO END


:CCL
wscript.exe //nologo %LOGONSERVER%\Netlogon\fr\CCL.vbs
If "%DefPRN%"=="RIEN" wscript.exe //nologo //B %LOGONSERVER%\Netlogon\fr\CCLdefaut.vbs
GOTO END

:LOG
wscript.exe //nologo %LOGONSERVER%\Netlogon\fr\LOG.vbs
If "%DefPRN%"=="RIEN" wscript.exe //nologo //B %LOGONSERVER%\Netlogon\fr\LOGdefaut.vbs
GOTO END

:CLI
wscript.exe //nologo %LOGONSERVER%\Netlogon\fr\CLI.vbs
If "%DefPRN%"=="RIEN" wscript.exe //nologo //B %LOGONSERVER%\Netlogon\fr\CLIdefaut.vbs
GOTO END

GOTO END
:END


Exemple vbs attribution imprimante :
Code: Tout sélectionner
  VBScript.
Dim net
Set net = CreateObject("WScript.Network")   
' net.AddWindowsPrinterConnection "\\SERVEUR\PrFrParRoInfC01 Color PS"
net.AddWindowsPrinterConnection "\\SERVEUR\PrFrParRoInfN01 N&B"
net.AddWindowsPrinterConnection "\\SERVEUR\PrFrParRoInfC01 Color"
net.AddWindowsPrinterConnection "\\SERVEUR\PrFrParRoCLiEtiq01""


Imprimante par default
Code: Tout sélectionner
' VBScript.
Dim net
Set net = CreateObject("WScript.Network")   
net.SetDefaultPrinter "\\SERVEUR\PrFrParRoINFN01 N&B"
orlith
Junior
Junior
 
Messages: 43
Inscrit le: Mer 10 Avr 2002, 21:17

Messagepar squart sur Ven 14 Avr 2006, 10:32

moi kixtart et le scripting pour la connexion, j'ai arrêté lol

dans ma boite, on utilise dynamic desktop

1) ça me donne pas des scripts de 200 pages
2) ça passe une interface graphique (vive le click'n go lol)
3) je peux prendre mes RTT tranquillement (le gars qui me remplace peut enfin faire des modifs sans trop se planter)
4) mes temps de connexion sont inférieurs à la minute

je crois qu'il y a une version gratos qui traine sur http://www.mgi.fr/02-outil-desktop.html
Dernière édition par squart le Mar 11 Juil 2006, 9:12, édité 2 fois au total.
squart
Junior
Junior
 
Messages: 46
Inscrit le: Lun 10 Avr 2006, 11:28

Messagepar kazer sur Ven 14 Avr 2006, 10:40

squart a écrit: je viens de relire le post, ça sonne comme le vieux commercial qui essaye de refourguer le produit, mais bon c juste que je suis trop un fan de ce truc lol)


Oui tout à fait, c'est qui? (vu que je bosse chez Mgi justement...)
Guillaume DESFARGES - Supinfo Promo 2001
MCPTS Windows Server 2008
MVP Directory Services (2004)/Security (2005-07)/Setup&Dep: Architecture (2008)
Profil MVP - Articles - Transcript (ID: 661703 Pass: Gdesfarges) - Bibliographie
Avatar de l’utilisateur
kazer
Lord of the Third
Lord of the Third
 
Messages: 32381
Inscrit le: Ven 26 Oct 2001, 21:39
Localisation: Dans la grisaille du boulot

Messagepar squart sur Mar 02 Mai 2006, 17:49

lol, je suis pas à mgi ^^, mais je me suis tapé la formation sur leur truc y a pas super longtemps
squart
Junior
Junior
 
Messages: 46
Inscrit le: Lun 10 Avr 2006, 11:28

Messagepar clickclac sur Ven 29 Déc 2006, 16:08

voici mon nouveau script si ca peut aider qqun....
avec commentaires
Code: Tout sélectionner
'******************************************************************************************
'* Created Date    : 01/12/2005                                                      *
'* Created by      : Mattia Vicari                                                   *
'* Version       : 2.1                                                             *
'* Comment      : Permet de monter un lecteur reseau en faisant un controle s'il  *
'*           existe deja, de connecter des imprimantes partages sur un       *
'*           serveur d'impression et de renommer les lecteurs reseaux.       *
'******************************************************************************************
'* Modifed By      : Mattia Vicari                                                   *
'* Modifed Date      : 28/12/06                                                        *
'* Comment      : Pour la societe                                            *
'*           Pour le groupe Informatique                                     *
'******************************************************************************************
'
'
'Script de demarrage à placer sur le serveur dans le repertoire
'C:\WINNT\SYSVOL\sysvol\NT\scripts
'declarer le script dans le profil utilisateur de AD
'(ecrire seulement le nom du fichier) ou le placer dans une GPO.
'
'
Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
on error resume next
'
'*******************************************************************
'TEST SI LE LECTEUR RESEAU Y: EXISTE, SI IL N'EXISTE PAS IL LE CREE.
'*******************************************************************
'
   If fso.folderexists("Y:\")=False Then
WshNetwork.MapNetworkDrive "Y:",  "\\MYFILE\Commun\Informatique"
   Else
'
'***********************************************************
'SI LE LECTEUR RESEAU Y: EXISTE IL LE SUPPRIME ET LE RECREE.
'***********************************************************
'
WshNetwork.RemoveNetworkDrive "Y:"
WshNetwork.MapNetworkDrive "Y:", "\\MyFILE\Commun\Informatique"
   End If
'
'*******************************************************************
'FIN DU TEST IL FAIT LA MEME CHOSE POUR LES AUTRES LECTEURS RESEAUX.
'*******************************************************************
'
   If fso.folderexists("X:\")=False Then
WshNetwork.MapNetworkDrive "X:", "\\MYFILE\Commun\Global"
   Else
WshNetwork.RemoveNetworkDrive "X:"
WshNetwork.MapNetworkDrive "X:", "\\MyFILE\Commun\Global"
   End If
'
   If fso.folderexists("W:\")=False Then
WshNetwork.MapNetworkDrive "W:", "\\MYFILE\Install$"
   Else
WshNetwork.RemoveNetworkDrive "W:"
WshNetwork.MapNetworkDrive "W:", "\\MyFILE\Install$"
   End If
'
'**********************************
'CONNEXION D'UNE IMPRIMANTE RESEAU.
'**********************************
'   
PrinterPath = "\\MyFILE\NRGC3000"
WshNetwork.AddWindowsPrinterConnection PrinterPath
'
'********************************
'IMPOSTE L'IMPRIMANTE PAR DEFAUT.
'********************************
'
WshNetwork.SetDefaultPrinter "\\MyFILE\NRGC3000"
'
'******************************
'RENOMAGE DES LECTEURS RESEAUX.
'******************************
'
Dim strDrive, objShell, objUNC
Dim strDriveLetter, strNewName
'
'**************************
'DECLARATION DES VARIABLES.
'**************************
'
strDriveLetter0 = "X:" 
strNewName0 = "Commun Global pour Transfert"
'
strDriveLetter = "W:" 
strNewName = "Install$"
'
strDriveLetter1 = "Y:" 
strNewName1 = "Commun Informatique"
'
strDriveLetter2 = "Z:" 
strNewName2 = "Mes Documents"
'
'***************************************
'CHANGEMENT DU NOM DES LECTEURS RESEAUX.
'***************************************
'
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
objShell.NameSpace(strDriveLetter0).Self.Name = strNewName0
objShell.NameSpace(strDriveLetter1).Self.Name = strNewName1
objShell.NameSpace(strDriveLetter2).Self.Name = strNewName2
'
WScript.Quit
Avatar de l’utilisateur
clickclac
Full Member
Full Member
 
Messages: 107
Inscrit le: Ven 16 Sep 2005, 12:11

Messagepar g_barthe sur Mer 10 Jan 2007, 18:06

Bonsoir,
Je me suis inspiré des scripts décrits ici. Vraiment très pédagogique.

Par contre je cherche à déconnecter les lecteurs réseaux montés manuellement par les utilisateurs. Et le script décrit ici ne le fait pas .

J'ai bien essayé celui ci :

Code: Tout sélectionner
Dim WshNetwork, objDisk, objWMIService

Set WshNetwork = WScript.CreateObject("WScript.Network")

On error resume next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from Win32_NetworkConnection")
For each objDisk in colDisks
   Wscript.Echo objDisk.localName & objDisk.DisplayType
    if objDisk.DisplayType="Share" then
       WshNetwork.RemoveNetWorkDrive objDisk.localName, bForce, bUpdateProfile
      Wscript.Echo "cest demonté" & objDisk.localName
         
    end if
Next


Il me donne bien les lecteurs montés manuellement mais ne supprime pas pour autant.

Quelqu'un aurait-il une piste ?

Merci à vous.
g_barthe
N00b
N00b
 
Messages: 2
Inscrit le: Mer 10 Jan 2007, 18:00

Messagepar clickclac sur Mer 24 Jan 2007, 12:18

tu connais la letttre de tes lecteur monter manuellement???
Avatar de l’utilisateur
clickclac
Full Member
Full Member
 
Messages: 107
Inscrit le: Ven 16 Sep 2005, 12:11

Messagepar g_barthe sur Mer 24 Jan 2007, 18:27

Bah non justement c'est que les utilisateurs montent un peu a leur guise. Mais la ca va changer. Sauf que je cherchais à les déconnecter sans passer par un bat net use delete....

C'est dommage qu'en vbs il ne veuille pas les déconnecter.
g_barthe
N00b
N00b
 
Messages: 2
Inscrit le: Mer 10 Jan 2007, 18:00

Messagepar The Transporter sur Ven 09 Fév 2007, 11:25

Bonjour à tous et à toutes,

Voici mon premier message sur ces forums !

Afin de contribuer, voici mon script de connexion:
Code: Tout sélectionner
@echo off

\\WINSERVEUR\Clients\Setup\SBSCLNT.exe /s WINSERVEUR

\\WINSERVEUR\prg\192.168.69.4.exe /NP /DEBUG /S /DEPLOY:4030 /INSTALL /URL:http://192.168.69.4/download/ /folder:c:\ocs-ng

SET SRC1=C:\Documents and Settings
SET SRC2=Local Settings\Temporary Internet Files\Content.IE5
SET SRC3=Local Settings\History
SET SRC4=Local Settings\Temp
SET SRC5=Recent
SET SRC6=Cookies

echo About to delete files from Internet Explorer "Temporary Internet files"

FOR /D %%X IN ("%SRC1%\*") DO FOR /D %%Y IN ("%%X\%SRC2%\*.*") DO RMDIR /S /Q "%%Y"

echo About to delete files from Internet Explorer "History"

FOR /D %%X IN ("%SRC1%\*") DO FOR /D %%Y IN ("%%X\%SRC3%\*.*") DO RMDIR /S /Q "%%Y"

FOR /D %%X IN ("%SRC1%\*") DO FOR  %%Y IN ("%%X\%SRC3%\*.*") DO DEL /F /S /Q "%%Y"

echo About to delete files from "Local settings\temp"

FOR /D %%X IN ("%SRC1%\*") DO FOR /D %%Y IN ("%%X\%SRC4%\*.*") DO RMDIR  /S /Q "%%Y"

FOR /D %%X IN ("%SRC1%\*") DO FOR  %%Y IN ("%%X\%SRC4%\*.*") DO DEL /F /S /Q "%%Y"

echo About to delete files from "Recent" i.e. what appears in Start/Documents/My Documents

FOR /D %%X IN ("%SRC1%\*") DO FOR  %%Y IN ("%%X\%SRC5%\*.lnk") DO DEL /F /S /Q "%%Y"

echo About to delete Cookies

FOR /D %%X IN ("%SRC1%\*") DO FOR  %%Y IN ("%%X\%SRC6%\*.*") DO DEL /F /S /Q "%%Y"

echo About to delete files from "Windows\Temp"

cd /d %SystemRoot%\temp

del /F /Q *.*

@echo Y|RD /S ""
The Transporter
N00b
N00b
 
Messages: 1
Inscrit le: Ven 09 Fév 2007, 11:22

Messagepar ekivok44 sur Mar 13 Fév 2007, 16:15

perso mes scripts sont beaucoup plus simple que chez vous...

c'est juste des mappages sur des lecteurs réseaux sur le serveur et une ligne pour faire l'inventaire du parc avec OCS inventory.
Code: Tout sélectionner
@Echo off
rem ***fichier script d'ouverture de session***
rem ***Service Comptabilite+Informatique***
rem ***Modification le 27/10/2005***


rem ***Connexion des lecteurs réseau***

net use H: \\fougueuse\cga
net use i: \\fougueuse\base_micro
net use j: \\fougueuse\Fournitures
net use M: \\fougueuse\mars
net use N: \\fougueuse\applications
net use O: \\fougueuse\Oracle
net use P: \\fougueuse\public
net use Q: \\fougueuse\disques
net use R: \\fougueuse\affaires
net use Y: \\fougueuse\utilisateurs


net time \\FOUGUEUSE /set /yes

rem \\fougueuse\netlogon\IpXfer -s boudeuse -p 8080 -m 1 -c 12345
rem echo inventaire de votre PC en cours, patientez s'il vous plait.....

\\gardouneh\public\inventaire\172.16.200.200.exe /np /debug

echo terminé.merci.


après c'est une histoire d'accès...
ekivok44
Grand Master
Grand Master
 
Messages: 1499
Inscrit le: Sam 11 Déc 2004, 17:58
Localisation: Niort

Messagepar granddom sur Ven 25 Mai 2007, 20:12

bonjour à tous,
trés pédagogique cette section, je me sent minable avec les miens.
une question si je peut me permettre,
est il possible avec un script de faire une recherche dans la bdr pour modifier
une cle si elle n'est pas conforme à ce que l'on veut
granddom
Full Member
Full Member
 
Messages: 137
Inscrit le: Mer 04 Avr 2007, 12:45
Localisation: Oise

Messagepar Littlebouda sur Jeu 19 Juil 2007, 11:01

Bonjour,


Le script qui suit est particulier, car il ne s'agit pas d'un script de connexion présent sur un serveur.

En effet, le philosophie et la méthode sont inversées. Il s'agit d'un script de connexion de client vers un serveur.

Ca ressemble donc au système de connexion/déconnexion de lecteur réseau de Windows [Outils > (Dé)Connecter un lecteur réseau]

Cependant, le système précédent à l'inconvénient qu'il garde en mémoire les connexions réseau tant qu'on ne ferme pas la session ou que l'on ne redémarre pas.

En effet, cela est du à une variables "SaveConnection?" dans la base de registre du client...

Seule l'utilisation de net use permet alors une connexion ou une déconnexion propre d'un serveur.

Le problème de la mémorisation est le suivant :

Si un utilisateur veut se connecter sur un partage différent avec une identité différente, sur un même serveur, après s'être déconnecté, il ne peut pas; A moins d'avoir fermé sa session ou après avoir redémarré.


Voici donc mon script qui se lance par un petit script bat.


CoDeco.cmd
Code: Tout sélectionner
cscript lightconnect.vbs



L'utilisation du fichier précédent et de cscript me permet d'avoir un mot de passe qui n'est pas en clair dans une inputbox ou dans une textbox dans un formulaire hta/htm/html...



lightconnect.vbs
Code: Tout sélectionner
'Petit script de connexion, sur choix de l'utilisateur.


'Declaration des variables
Dim WshShell
Dim CoDeco
Dim objPassword
Dim oFSO1


'Initialisations des variables
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objPassword = CreateObject("ScriptPW.Password")



CoDeco = inputbox("Que voulez vous faire : "&vbCRLF &vbCRLF &_
" C - Vous connecter" &vbCRLF &vbCRLF &_
" ou"  &vbCRLF &vbCRLF &_
" D - vous Déconnecter ?" &vbCRLF &vbCRLF &_
" ! Attention ! Vous ne pouvez pas vous connecter simultanément sur un même serveur" &vbCRLF &_
" avec deux identités différentes", "Se connecter ou se Déconnecter[C]/[D]")






'Choix de l'utilisateur



Select Case UCase(CoDeco)



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''' CONNEXION ''''''''''''''''''''''''''''''''''

Case "C"

Lecteur = inputbox("Choisissez une lettre inutilisée pour votre lecteur réseau :" , "Lettre")

  If objFSO.DriveExists(Lecteur) = TRUE Then
    MsgBox("Cette lettre est déjà  utilisée" &vbCRLF &_
    "Veuillez recommencer !")
    wscript.quit
  End If


    Serveur = inputbox("Entrez un nom de serveur ou son adresse IP :"  &vbCRLF &_
    " Sinon, tapez" &vbCRLF &vbCRLF &_
    " '1' - pour Serveur1" &vbCRLF &vbCRLF &_
    " ou" &vbCRLF &vbCRLF &_
    " '2' - pour Serveur2", "Serveur")

    If Serveur = "1" Then Serveur = "IP_du_serveur1" End If
    If Serveur = "2" Then Serveur = "IP_du_serveur2" End If




    Partage = inputbox("Entrez le nom du partage -tapez X pour lister les partages de ce serveur:" , "Partage")

     If UCase(Partage) = "X" And Serveur <> "" Then

        WshShell.Run("cmd /c net view \\" & Serveur & " > C:\netview.txt")
        Set oFSO1 = objFSO.GetFile("C:\netview.txt")
        ' On attend que le fichier soit écrit/écrasé
        wscript.sleep(500)
        ' wscript.echo oFSO1.size
        If oFSO1.size = 0 Then
          MsgBox("Votre serveur n'existe pas ou ne peut pas être contacté !!"  & vbCRLF &_
          "- (Serveur1 et Serveur2 ne peuvent pas être visualisés de cette sorte)")
        Else
          MsgBox (" Les éléments partagés de ce serveur sont listés dans 'C:\netview.txt'. " & vbCRLF &_
          " Vous pouvez désormais relancer le script et rentrer le partage que vous souhaitez" & vbCRLF &_
          " à partir des informations de ce fichier.")
        End If

     Else If Serveur = "" Then
     MsgBox ("Vous devez obligatoirement rentrer un nom de serveur " & vbCRLF &_
     "ou une adresse IP !!!")





     Else

      User = inputbox("Entrez votre nom d'utilisateur :" , "Utilisateur")


      '''' Commenté car en clair
      'Pass = inputbox("Entrez votre mot de passe :" , "Mot de passe")


      'Par cscript
      WScript.StdOut.Write "Entrez votre mot de passe :"
      Pass = objPassword.GetPassword()
      ''''Vérifions que le mot de passe a été récupéré
      ''''Wscript.Echo vbCRLF & "mot de passe : " & Pass & vbCRLF


      'On se connecte
      WshShell.Run "cmd /c net use " & Lecteur &": \\" & Serveur & "\" & Partage &" /USER:"& User &" "& Pass

   
   
     End If



End If


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''' Déconnexion '''''''''''''''''''''''''''''

Case "D"

  Lecteur=inputbox("Choisissez le lecteur à déconnecter", "Lettre")
  WshShell.Run "cmd /c net use /d " & Lecteur &":"

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Case Else
  MsgBox("Mauvais choix, veuillez recommencer ! 'C' pour vous connecter et 'D' pour vous déconnecter")

End Select

WScript.echo vbCRLF & vbCRLF & "Fin de traitement"


Vous noterez la présence d'un "net view" pour le fun.

Il se peut que je me trompe sur le mécanisme de gestion des connexions réseau Microsoft, dans ce cas, merci par avance de m'éclaircir. De toute manière la réalisation de ce script ne m'aura pas servi à rien, puisque ça m'a rafraichit la mémoire pour la prog en vbscript.
Littlebouda
Junior
Junior
 
Messages: 20
Inscrit le: Jeu 26 Mai 2005, 11:24

Re: ---{[ A quoi ressemblent vos scripts de connexion]}---

Messagepar PingMaster sur Ven 04 Juil 2008, 15:42

Personne n'utilise KickStart?
J'ai utilise pendant longtemps ce petit programme, tres puissant et bien plus rapide que les commandes batch.

Aussi je m'etonne de voir autant de mappage de lecteurs reseaux. Cela fait quelques annees deja que je ne vois plus ca. Les gens hebergent leurs fichiers sur des CMS etc..
MCSE: Security
MCTS: Forefront Client and Server, Configuration
MCT
PingMaster
Full Member
Full Member
 
Messages: 209
Inscrit le: Mer 07 Fév 2007, 20:15
Localisation: Dublin, Ireland

Re: ---{[ A quoi ressemblent vos scripts de connexion]}---

Messagepar lancevo7 sur Ven 01 Aoû 2008, 11:50

salut, quand je vois tout ces script de fou,

que pourrait on trouver de indispensable sur un script user ?

mappage lecteur/imprimante ?

quoi d'autre ?



sinon est ce grave de faire un script simple avec net use etc.., je veux dire, c'est deconseille a l'heure actuelle ? car je vois que du vbs ici


PS : je cherche un script pour utiliser la commande "outlook /cleanfreebusy"
merci
edit : "start outlook /cleanfreebusy" irait bien ?
lancevo7
Full Member
Full Member
 
Messages: 125
Inscrit le: Mar 27 Nov 2007, 10:21

Précédent

Retourner vers 2000 Server

Qui est en ligne ?

Utilisateurs parcourant actuellement ce forum : Aucun utilisateur inscrit et 0 invités



Accueil | News | Articles | Tips | Outils | FAQ XP | Certification | Easters Eggs
Essentiels | Top Sites | Glossaire | Vidéos | Whitepapers | Essentiels | Boîte à Scripts
Conditions d'utilisation é Copyright | Respect de la vie privée