script pour connecter un lecteur réseau

Je veux être en mesure de se connecter à un (wifi) réseau disque dur de mon ordinateur portable, mais seulement de temps en temps. Si j'utilise le "Mapper un lecteur réseau" commande en WinXP explorer, je dois mettre dans le lecteur de l'adresse IP et le nom, puis le nom du routeur et de son mot de passe. Trop de choses à retenir!

Je suis à la recherche d'un moyen de script de cette activité (dans n'importe quelle langue), quelque chose comme:

map Z: \.0.1.1\DRIVENAME "ROUTERNAME\PW"

Je ne fais pas particulièrement attention à ce que la langue le script est écrit en. BTW, je suis conscient du DOS "subst" commandement, mais je ne pense pas que je peux l'utiliser que dans ce cas, en raison de la protection par mot de passe.

InformationsquelleAutor |
  1. 27

    utiliser le net use commande:

    net use Z: \.0.1.1\DRIVENAME

    Edit 1: Aussi, je crois que le mot de passe doit être simplement ajouté:

    net use Z: \.0.1.1\DRIVENAME PASSWORD

    Vous pouvez en savoir plus sur cette commande et ses arguments par:

    net use ?

    Edit 2: Comme Tomalak mentionné dans les commentaires, vous pouvez plus tard, l'onu-carte via

    net use Z: \delete
    • Et pour le démonter, le peu prêter à confusion du nom de l'option de suppression "net use z: /supprimer"
    • Le mot de passe ne peut pas simplement être ajouté, seul le nom d'utilisateur peut.
    • dans le "net use ?", il dit: NET use [nom de périphérique | *] [\\nom_ordinateur\nom_partage[\volume] mot de passe [ | * ]] ... en y Ajoutant le mot de passe avec un espace de travail selon les docs.
    • Oh, vous avez raison. Désolé.
    InformationsquelleAutor Mike
  2. 13

    N'est-ce pas le travail (en supposant que "ROUTERNAME" est le nom de l'utilisateur du routeur s'attend)?

    net use Z: "\.0.1.1\NOM_LECTEUR" /user:"ROUTERNAME" "PW"

    Alternativement, vous pouvez utiliser une petite VBScript:

    Option Explicit
Dim u, p, s, l
Dim Network: Set Network= CreateObject("WScript.Network")

l = "Z:"
s = "\.0.1.1\DRIVENAME"

u = "ROUTERNAME"
p = "PW"

Network.MapNetworkDrive l, s, False, u, p
    • +1 a très bien Fonctionné pour moi!
    InformationsquelleAutor Tomalak
  3. 4

    Tomalak de l' réponse a très bien fonctionné pour moi (+1)

    J'ai seulement besoin de faire de la modifier légèrement pour mes fins, et je n'ai pas besoin d'un mot de passe pour l'entreprise domaine:

    Option Explicit
Dim l: l = "Z:"
Dim s: s = "\.10.10.1\share"
Dim Network: Set Network = CreateObject("WScript.Network")
Dim CheckDrive: Set CheckDrive = Network.EnumNetworkDrives()
Dim DriveExists: DriveExists = False
Dim i

For i = 0 to CheckDrive.Count - 1
  If CheckDrive.Item(i) = l Then
    DriveExists = True
  End If
Next

If DriveExists = False Then
  Network.MapNetworkDrive l, s, False
Else
  MsgBox l + " Drive already mapped"
End If

    Ou si vous souhaitez déconnecter le lecteur:

    For i = 0 to CheckDrive.Count - 1
  If CheckDrive.Item(i) = l Then 
    WshNetwork.RemoveNetworkDrive CheckDrive.Item(i)
  End If
Next
    InformationsquelleAutor
  4. 3

    Pourquoi ne pas mapper le lecteur réseau mais décochez la case "se Reconnecter à l'ouverture de session"? Le lecteur se connecte uniquement lorsque vous essayez d'y accéder. Notez que certaines applications échouent si elles point, mais si vous avez accès directement à des fichiers via l'Explorateur Windows cela fonctionne très bien.

    InformationsquelleAutor C. Ross
  5. 2

    Essayer le net use commande

    InformationsquelleAutor Eric Petroelje
  6. 1

    Ici un JScript variante de JohnB's réponse

    //Below the MSDN page for MapNetworkDrive Method with link and in case if Microsoft breaks it like every now and then the path to the documentation of now.
//https://msdn.microsoft.com/en-us/library/8kst88h6(v=vs.84).aspx
//MSDN Library -> Web Development -> Scripting -> JScript and VBScript -> Windows Scripting -> Windows Script Host -> Reference (Windows Script Host) -> Methods (Windows Script Host) -> MapNetworkDrive Method

var WshNetwork = WScript.CreateObject('WScript.Network');
function localNameInUse(localName) {
    var driveIterator = WshNetwork.EnumNetworkDrives();
    for (var i=0, l=driveIterator.length; i < l; i += 2) {
        if (driveIterator.Item(i) == localName) {
            return true;
        }
    }
    return false;
}

function mount(localName, remoteName) {
    if (localNameInUse(localName)) {
        WScript.Echo('"' + localName + '" drive letter already in use.');
    } else {
        WshNetwork.MapNetworkDrive(localName, remoteName);
    }
}

function unmount(localName) {
    if (localNameInUse(localName)) {
        WshNetwork.RemoveNetworkDrive(localName);
    }
}
    InformationsquelleAutor