Toon posts:

password veld

Pagina: 1
Acties:
  • 27 views sinds 30-01-2008

Verwijderd

Topicstarter
Kan iemand mij misschien helpen met het aanpassen van onderstaande code zodat het passwordveld uit ****** characters bestaat.


Dim QDLS
Dim username
Dim password
Set QDLS = WScript.CreateObject("WScript.Network")
set QDLS1 = createobject("scripting.filesystemobject")
username=inputBox("Wat is je AS400 gebruikersnaam?")
password=inputBox("Wat is je AS400 Wachtwoord?")


if QDLS1.folderexists("I:\") then
QDLS.removenetworkdrive "I:", true
end if
QDLS.MapNetworkDrive "I:", "\\10.31.6.50\QDLS", false, username, password

' End code

  • NMe
  • Registratie: Februari 2004
  • Laatst online: 24-05 14:53

NMe

Quia Ego Sic Dico.

Zoek maar op Google naar "visual basic password character". Dan vind je wel wat. Aannemende dat je in VB werkt, want je noemt geen taal. :/

'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.


  • Janoz
  • Registratie: Oktober 2000
  • Laatst online: 12:00

Janoz

Moderator Devschuur®

!litemod

Ga eerst deze( Welkom in P&W: FAQ en Beleid *updated: 28-04* ) maar eens even doorlezen voordat je weer een topic start in Programming & Webscripting.

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'


Dit topic is gesloten.