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, 3721 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows 10
Ständige SSD Aktivität bei bestehender Skype-Verbindung (1)

Frage von Bluffy zum Thema Windows 10 ...

Webbrowser
gelöst Firefox 50 downloads stocken ohne Internet Verbindung (2)

Frage von LordXearo zum Thema Webbrowser ...

Windows Tools
Zwischenspeicher TS RDP-Verbindung (3)

Frage von Yannosch zum Thema Windows Tools ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (23)

Frage von patz223 zum Thema Windows Userverwaltung ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (19)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...