Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Ständige Verbindung eines Netzlaufwerkes sicherstellen

Frage Entwicklung VB for Applications

Mitglied: 27186

27186 (Level 1)

11.01.2008, aktualisiert 16:01 Uhr, 3733 Aufrufe, 2 Kommentare

Hallo!

Habe ein Problem, und zwar würde ich gerne permanent sicherstellen dass ein bestimmtes Netzlaufwerk ständig verbunden ist, da eine bestimmte Software mit einem einerseits im Explorer existenten aber nicht verbundenem Netzlaufwerk nichts anfangen kann.

Dazu habe ich folgendes VB-Skript angelegt. Um das Problem direkt nach dem Hochfahren des Rechners zu lösen, lösche ich zu Beginn des Skriptes das entsprechende Netzlaufwerk, welches kurz darauf wieder angelegt wird, und somit verbunden ist.

Das Problem ist aber, wenn der Server kurzzeitig ausfällt. Das Netzlaufwerk existiert zwar weiter, aber eben unverbunden… Und das Laufwerk in einer Schleife ständig zu löschen und neu zu mappen kommt auch nicht in Frage... Was wenn dann gerade ein Zugriff stattfindet?!

01.
Set WshNetwork = Wscript.CreateObject("Wscript.Network") 
02.
 
03.
Dim objNetwork, objShell, objApplication 
04.
Dim strDriveName, strDriveLetter, strRemotePath 
05.
Set objNetwork = CreateObject("WScript.Network") 
06.
Set objShell = CreateObject("Shell.Application") 
07.
strDriveLetter = "W:" 
08.
 
09.
On Error resume next 
10.
objNetwork.RemoveNetworkDrive strDriveLetter, True, True 
11.
 
12.
Public Function mapDrives(strDriveName, strDriveLetter, strRemotePath, strUsername, strPassword) 
13.
  objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, FALSE, strUsername, strPassword  
14.
  objShell.NameSpace(strDriveLetter).Self.Name = strDriveName  
15.
  mapDrives = "" 
16.
End Function 
17.
 
18.
Public Function map(DriveLetter, RemotePath) 
19.
  On Error resume next 
20.
  mapDrives "Data", DriveLetter, RemotePath, "admin", "admin" 
21.
  if err.Number <> 0 then 
22.
    if err.Number <> -2147024811 then 'err.Number means: 'Networkdrive is already mapped' 
23.
      msgBox vbcrlf & err.description & vbcrlf & " Check availability -> " & DriveLetter & RemotePath 
24.
    end if 
25.
    err.clear 
26.
  end if 
27.
end Function 
28.
 
29.
do 
30.
31.
  '-------------------- map drive 
32.
33.
  'map "Y:", "\\server\share" 
34.
   
35.
  WScript.sleep 10000 
36.
loop
Mitglied: Majestro
11.01.2008 um 15:56 Uhr
Hallo,
sag uns mal bitte um welche Infrastruktur ( OS usw... ) es sich handelt !

Gruß
Björn
Bitte warten ..
Mitglied: 27186
11.01.2008 um 16:01 Uhr
WIN XP PRO in einer Arbeitsgruppe...
Bitte warten ..
Ähnliche Inhalte
Windows 10
Ständige SSD Aktivität bei bestehender Skype-Verbindung (1)

Frage von Bluffy zum Thema Windows 10 ...

Router & Routing
gelöst Verbindung zu entferntem Netz über VPN über Mikrotik RB2011 - Fritzbox1 - VPN - Fritzbox2 (12)

Frage von PaulchenHardy zum Thema Router & Routing ...

Windows Netzwerk
gelöst Strato Windows Server 2016 - VPN Verbindung einrichten (10)

Frage von brave1978 zum Thema Windows Netzwerk ...

LAN, WAN, Wireless
W-LAN-Verbindung bricht ab, LAN bleibt stabil (8)

Frage von max.webbing zum Thema LAN, WAN, Wireless ...

Neue Wissensbeiträge
Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Windows Server

Exchange 2010 auf Windows Server 2016 und AD

(2)

Tipp von Herbrich19 zum Thema Windows Server ...

KVM

How to: Libvirt Port forwarding

(2)

Anleitung von fundave3 zum Thema KVM ...

Heiß diskutierte Inhalte
Router & Routing
über Vmware auf eine FritzBox mit IPv6 per VPN (16)

Frage von Zockervogel zum Thema Router & Routing ...

Windows Server
gelöst Netzlaufwerk RemoteApp auf Win 2012 R2 Terminalserver funktioniert nicht (12)

Frage von grenzde zum Thema Windows Server ...

Windows 7
Windows Client Anmeldung bei zwei identischen Domänen (11)

Frage von creeko zum Thema Windows 7 ...