PDA

Vollständige Version anzeigen : Netzwerk verbinden


Johnny
11.04.2001, 10:44
Wie kann ich denn unter VB ein Netzwerk verbinden und wieder trennen?
Zum Verbinden des Netzwerks benötige ich noch ein Passwort, kann man das automatisch miteinbeziehen, so dass es nicht extra eingegeben werden muss?

Wer kann mir helfen?

Danke,

Joe

Stefan Kulpa
21.04.2001, 07:18
Hallo Johnny!

Probier mal folgendes:

<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Function</FONT> MapNetworkDrive(sLocalName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, sRemoteName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
Optional bUpdateProfile <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT> = <FONT COLOR=#000080>False</FONT>, _
Optional sUser <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT> = vbNullString, _
Optional sPassword <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT> = vbNullString) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT>
<FONT COLOR=#008000>'// ======================================================================</FONT>
<FONT COLOR=#008000>'// WSH 1.0: Netzlaufwerk verbinden</FONT>
<FONT COLOR=#008000>'// ======================================================================</FONT>
<FONT COLOR=#008000>'// Parameter:</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// sLocalName |lokaler Ressourcenname (Bsp.: "Z:")</FONT>
<FONT COLOR=#008000>'// sRemoteName |remote Ressourcename (Bsp.: "\\Server\Share")</FONT>
<FONT COLOR=#008000>'// bUpdateProfile |optional; wenn True, wird die Zuweisung im</FONT>
<FONT COLOR=#008000>'// |Benutzerprofil gespeichert</FONT>
<FONT COLOR=#008000>'// sUser |optional; hier kann ein anderer als der aktuelle</FONT>
<FONT COLOR=#008000>'// |Benutzer angegeben werden.</FONT>
<FONT COLOR=#008000>'// sPassword |optional; dieses Kennwort bezieht sich auf den in</FONT>
<FONT COLOR=#008000>'// |sUser angegebenen Benutzer.</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Rückgabe: |True, bei Erfolg, sonst False</FONT>
<FONT COLOR=#008000>'// ======================================================================</FONT>
<FONT COLOR=#008000>'// Folgende Plausibilitätsprüfung wird angesetzt:</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Nur wenn bUpdateProfile = True, dann werden die weiteren Parameter</FONT>
<FONT COLOR=#008000>'// sUser und sPassword berücksichtigt.</FONT>
<FONT COLOR=#008000>'// Der Parameter sPassword wird darüberhinaus nur dann verwendet, wenn</FONT>
<FONT COLOR=#008000>'// der Parameter sUser genutzt wird.</FONT>
<FONT COLOR=#008000>'// ======================================================================</FONT>
<FONT COLOR=#000080>On</FONT> <FONT COLOR=#000080>Error</FONT> Resume <FONT COLOR=#000080>Next</FONT>

MapNetworkDrive = <FONT COLOR=#000080>False</FONT>
<FONT COLOR=#000080>Dim</FONT> objWshNetwork <FONT COLOR=#000080>As</FONT> Object
<FONT COLOR=#000080>Set</FONT> objWshNetwork = CreateObject("WScript.Network")

<FONT COLOR=#000080>If</FONT> <FONT COLOR=#000080>Not</FONT> objWshNetwork Is <FONT COLOR=#000080>Nothing</FONT> <FONT COLOR=#000080>Then</FONT>
<FONT COLOR=#000080>If</FONT> bUpdateProfile <FONT COLOR=#000080>Then</FONT>
<FONT COLOR=#000080>If</FONT> Len(sUser) = 0 <FONT COLOR=#000080>Then</FONT> sPassword = 0
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#000080>If</FONT> <FONT COLOR=#000080>Not</FONT> bUpdateProfile <FONT COLOR=#000080>Then</FONT>
objWshNetwork.MapNetworkDrive sLocalName, _
sRemoteName
<FONT COLOR=#000080>Else</FONT>
objWshNetwork.MapNetworkDrive sLocalName, _
sRemoteName, _
bUpdateProfile, _
sUser, _
sPassword
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
MapNetworkDrive = <FONT COLOR=#000080>True</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#000080>Exit</FONT> <FONT COLOR=#000080>Function</FONT>

Err_MapNetworkDrive:
MapNetworkDrive = <FONT COLOR=#000080>False</FONT>

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Function</FONT>
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Function</FONT> RemoveNetworkDrive(sName <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, Optional bForce <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT> = <FONT COLOR=#000080>False</FONT>, _
Optional bUpdateProfile <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT> = <FONT COLOR=#000080>False</FONT>) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT>
<FONT COLOR=#008000>'// ======================================================================</FONT>
<FONT COLOR=#008000>'// WSH 1.0: Entfernt eine Netzlaufwerk-Verbindung.</FONT>
<FONT COLOR=#008000>'// ======================================================================</FONT>
<FONT COLOR=#008000>'// Parameter:</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// sName |lokaler Ressourcenname (Bsp.: "Z:") oder</FONT>
<FONT COLOR=#008000>'// |remote Ressourcename (Bsp.: "\\Server\Share")</FONT>
<FONT COLOR=#008000>'// bForce |optional; wenn True, wird die Zuweisung entfernt,</FONT>
<FONT COLOR=#008000>'// |auch wenn sie in Gebrauch ist.</FONT>
<FONT COLOR=#008000>'// bUpdateProfile |optional; wenn True, wird die Zuweisung im</FONT>
<FONT COLOR=#008000>'// |Benutzerprofil entfernt</FONT>
<FONT COLOR=#008000>'// ----------------------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Rückgabe: |Im Fehlerfall False, sonst True</FONT>
<FONT COLOR=#008000>'// ======================================================================</FONT>
<FONT COLOR=#000080>On</FONT> <FONT COLOR=#000080>Error</FONT> Resume <FONT COLOR=#000080>Next</FONT>

<FONT COLOR=#000080>Dim</FONT> objWshNetwork <FONT COLOR=#000080>As</FONT> Object
<FONT COLOR=#000080>Set</FONT> objWshNetwork = CreateObject("WScript.Network")

<FONT COLOR=#000080>If</FONT> <FONT COLOR=#000080>Not</FONT> objWshNetwork Is <FONT COLOR=#000080>Nothing</FONT> <FONT COLOR=#000080>Then</FONT>
objWshNetwork.RemoveNetworkDrive sName, bForce, bUpdateProfile
RemoveNetworkDrive = <FONT COLOR=#000080>True</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#000080>Exit</FONT> <FONT COLOR=#000080>Function</FONT>

Err_RemoveNetworkDrive:
RemoveNetworkDrive = <FONT COLOR=#000080>False</FONT>

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Function</FONT>
<FONT COLOR=#808080></FONT>
</FONT></PRE>

Gruss