vbs script network mapping??

[Verwijderd]

Weet iemand misshien hoe ik een vbs script kan maken dat zorgt voor een netwerk mapping.

Dit script moet een authenticatie pop-up scherm geven zodat username en wachtwoord ingegeven kunnen worden.
Dit is zeeeer belangrijk anders wordt de ingelogde gebruikersnaam en wachtwoord van het windowssysteem gebruikt en aangezien ik naar een AS400 share wil connecten waar andere gebruikersnamen gelden zou ik graag deze gegevens in dit scherm willen opgeven.

Ook wil ik geen script waar de username en password reeds instaan.
Ik wil een popup krijgen.

Wie kan mij helpen!!!!!!!!!!!!!

[TheVMaster]

Waar heb je allemaal al gezocht??

Check deze site http://cwashington.netreach.net daar staan vele soorten scriptjes!

[Verwijderd]

Niets gevonden

Toch bedankt

[TheVMaster]

Verwijderd schreef op 11 juni 2004 @ 10:07:
Niets gevonden

Toch bedankt

Dan heb je ook niet echt goed gezocht

Ik ga wel even zoeken voor je....uit welk gedeelte kom je niet :
* De popupbox maken
* de mapping maken

[ Voor 15% gewijzigd door TheVMaster op 11-06-2004 10:15 ]

[Verwijderd]

Zie onderstaande script.

code:

Dim WSHNetwork
Set WSHNetwork = WScript.CreateObject("WScript.Network")
WSHNetwork.MapNetworkDrive "S:", "\\server\share", false, "username", "password"

Hoe je de username en password kunt opvragen met een prompt moet je zelf maar even uitzoeken

[Verwijderd]

Ik ben niet zo´n script man.
Wat ik nu heb is een script wat zonder popup een mapping maakt


Dim QDLS
Set QDLS = WScript.CreateObject("WScript.Network")

QDLS.MapNetworkDrive "I:", "\\HAGOE60\QDLS"

' End code

[Verwijderd]

Dat is net mijn probleem

[djluc]

Leer eens zoeken en de faq lezen om in het juiste forum te posten a.u.b.

Verder:

VBScript:

username=inputBox("Wat is je gebruikersnaam?")

[ Voor 5% gewijzigd door djluc op 11-06-2004 10:31 ]

[Verwijderd]

Ik heb nu dit:

Dim QDLS
Set QDLS = WScript.CreateObject("WScript.Network")
username=inputBox("Wat is je gebruikersnaam?")
password=inputBox("Wat is je Wachtwoord?")

QDLS.MapNetworkDrive "I:", "\\10.31.6.50\QDLS", false, "username", "password"

' End code

ik krijg wel mooi een popup maar als ik de juiste username en password in type krijg ik toch nog steeds de melding toegang geweigerd.

Dus ik denk dat deze toch nog onderwater de windows username en password pakt.

Sorry ik ben geen vbs man. Dus kan me voorstellen dat ik dom overkom

[djluc]

Kloppen de gegevens die je invoert wel?

[Verwijderd]

Ja 100% zeker

[Verwijderd]

Je moet de quotes "" weghalen bij username en password.

[RSchellhorn]

Verwijderd schreef op 11 juni 2004 @ 10:47:

Ik heb nu dit:

code:

Dim QDLS
Set QDLS = WScript.CreateObject("WScript.Network")
username=inputBox("Wat is je gebruikersnaam?")
password=inputBox("Wat is je Wachtwoord?")

QDLS.MapNetworkDrive "I:", "\\10.31.6.50\QDLS", false, "username", "password"

Ik zou er in ieder geval dit van maken:

code:

Dim QDLS
Set QDLS = WScript.CreateObject("WScript.Network")
username=inputBox("Wat is je gebruikersnaam?")
password=inputBox("Wat is je Wachtwoord?")

QDLS.MapNetworkDrive "I:", "\\10.31.6.50\QDLS", false, username, password

Edit:
Heb um net geprobeerd, hier werkt hij zo....

[ Voor 27% gewijzigd door RSchellhorn op 11-06-2004 10:54 . Reden: typo ]

[Verwijderd]

Bedankt,

het werkt.

Super

[rookie]

Verwijderd schreef op 11 juni 2004 @ 10:47:
Ik heb nu dit:

Dim QDLS
Set QDLS = WScript.CreateObject("WScript.Network")
username=inputBox("Wat is je gebruikersnaam?")
password=inputBox("Wat is je Wachtwoord?")

QDLS.MapNetworkDrive "I:", "\\10.31.6.50\QDLS", false, "username", "password"

' End code

username en password zijn variabelen. de quotjes (") moet je dus weglaten...

[rookie]

jezus wat ben ik traag ...

weet je wat. je krijgt van mij een script wat precies doet wat jij wilt (maar dan beter):

code:

' -----------------------------------------------------------------------
'   Program name    : NetUse.vbs
'   Location        : 
'   Author          : rookie
'   Date            : 10-nov-2003
'   Version         : 1.1
'
'   Called by       : 
'   Parameters      : <driveletter> <share> <user> <always-ask-for-user>
'   Purpose         : Create driveletter for specified share
'   Permission      : 
'   Known Bugs      : None
'   Comments        : <always-ask-for-user> can be any text
'                     There just has to be a forth argument
'
' -----------------------------------------------------------------------

Dim Driveletter, Share, User
Dim EverythingOK, Input
Dim wshNetwork, fso, d
Dim AlwaysAskUser, ExitLevel

AlwaysAskUser = False

Driveletter = "V:"
Share = Null
User = ""

On Error Resume Next

If WScript.Arguments.Count > 0 Then
  Driveletter = WScript.Arguments(0)
  If WScript.Arguments.Count > 1 Then
    Share = WScript.Arguments(1)
    If WScript.Arguments.Count > 2 Then
      User = WScript.Arguments(2)
      If WScript.Arguments.Count > 3 Then
        AlwaysAskUser = True
      End If
    End If
  End If
End If

If not (Driveletter = "V:" Or Driveletter = "v:") Then
  Driveletter = InputBox("Which driveletter do you want to use?","Driveletter",Driveletter)
End If

If IsNull(Share) Then
  Share = InputBox("What share do you want to connect to " & Driveletter & "?", "Share")
  If Share = "" Then
    WScript.Quit(1)
  End If
End If

If (User = "" Or AlwaysAskUser) Then
  User = InputBox("Which user do want to connect with to " & Share & "?", "User", User)
  If User = "" Then
    WScript.Quit(1)
  End If
End If

EverythingOK = False

Set WshNetwork = CreateObject ("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(Driveletter)))
If Err.Number = 0 Then
  If d.ShareName = Share Then
    ExitLevel = 0
    EverythingOK = True
  Else
    WshNetwork.RemoveNetworkDrive DriveLetter, TRUE
    If User = "" Then
      User = InputBox("Which user do want to connect with to " & Share & "?", "User", User)
    End If
  End If
Else
  Err.Clear
End If

While not EverythingOK
  Input = InputBox("Enter password for " & User & " on " & Share)
  If not Input = "" Then
    WshNetwork.MapNetworkDrive Driveletter, Share, False, User, Input
    If Err.Number = 0 Then 
      ExitLevel = 0
      EverythingOK = True
    Else
      MsgBox ("Error: " & Err.Description)
      Err.Clear
    End If
  Else
    'User pressed cancel
    ExitLevel = 1
    EverythingOK = True
  End If
Wend

WScript.Quit(ExitLevel)

Zoals je kunt zien wordt er standaard een driveletter V aangemaakt, tenzij je dit anders wilt en het via de command-line meegeeft.

have fun

[curry684]

rookie schreef op 11 juni 2004 @ 11:00:
jezus wat ben ik traag ...

weet je wat. je krijgt van mij een script wat precies doet wat jij wilt (maar dan beter):

Hulde voor de behulpzaamheid, maar da's dus niet de bedoeling eilijk bij dit soort topics

Programming & Webscripting gaat expliciet over zelf programmeren. swillensr kan of wil voor zover ik uit dit topic kan afleiden nauwelijks programmeren, en dan is het niet de bedoeling dat wij zijn code gaan schrijven. Om die reden gaat dit topic ook dicht, als er een gerichte vraag mocht komen zien we wel verder...

Leesvoer:
• P&W FAQ - De "quickstart"
• **** Over topictitels in P&W - Updated 9 mei 04 ****