Keine Passwortabfrage bei Netzwerkfreigaben

Hallo Zusammen,
ich habe im Forum nach meinem Problem gesucht, doch leider habe ich nur die umgekehrte Lösung gelesen. Mir geht es darum eine Lösung zu finden um beim Zugriff einer Netzwerkfreigabe, nicht nach dem Passwort gefragt zu werden.

Bei mir sieht es folgendermaßen aus:

2 Desktop PCs
2 Laptops

Wie man sich vorstellen kann, greift man gerne auf freigegebene Ordner im Netzwerk von den anderen Computer um Dateien schnell rüber zu kopieren, etc...

Mein Problem ist, ich will nicht jedes mal nach dem Passwort gefragt werden. Wie kann ich das am besten Lösen? Wenn es geht würde ich das natürlich im inneren Netzwerk so haben, d.h. nur wenn jemand von meinenm internen Netzwerk auf die Freigabe zugreift soll kein Passwort abgefragt werde, sonst, falls es einen externen Zugriff ist (z.B. Internet) soll die Passwortabfrage stattfinden.

Für jede hilfreiche Antwort bin ich euch dankbar.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 32843

Url: https://administrator.de/contentid/32843

Ausgedruckt am: 13.11.2024 um 06:11 Uhr

4 Kommentare

Neuester Kommentar

Ich würde einfach Benutzer anlegen.
also das heißt
auf einem Laptop, auf das du von dem anderen zugreifen willst, legst du den Benutzer mit demselben Passwort des Laptops an und schon kannst du die Freigabe auch ohne Passwortabfragen nutzen, wenn der Benutzer darauf zugriff hat.

du kannst aber auch die Freigabe so einstellen, dass die Gruppe "Jeder" darauf zugreifen kann, dann ist die Freigabe aber von wirklich jedem zu sehen in deinem Netz. wenn du eien Router hast, sollte dieser so eingestellt sein, dass die Dateifreigabe nicht nach aussen offen ist.

ich hoffe, man versteht mein Kauderwelsh.

Hallo,
ich hatte hier mal nach einer automatischen Netzwerkverbindung bei wechselnder IP gefragt. In den Antworten die ich bekommen habe ist auch eine automatische Anmeldung vorhanden.

Siehe

~~~~~~~~~~~~~~~~~~~
::-----snipp MarcosLonOn.Bat
@echo off & setlocal
Set "Errtext=Laufwerk konnte nicht verbunden werden!"
Set "Marco=MarcosUsername" & set "pw=MarcosPassword"
for /F "tokens=2 delims=:" %%i in ('ipconfig /all ^|find "DHCP-Server"') do set "IP=%%i"

Net use * /d >nul 2>&1

::-----snapp MarcosLonOn.Bat
~~~~~~~~~~~~~~~~~~~

Danke hierfür nochmals an BIBER.

Mit der Abfrage :

for /F "tokens=2 delims=:" %%i in ('ipconfig /all ^|find "DHCP-Server"') do set "IP=%%i"

Wird in dieser Batch die IP des DHCP ermittelt. Du müsstest dieses evtl. löschen und bei:

die Parameter anpassen.

Als VBS ist mir dies vorgeschlagen worden:

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ##########################
' MarcoLogsOnUsingTheDhcpIP.vbs ####
' aka MarcosNeverendingLogonstory.vbs #
' ##########################
Option Explicit

Const blnForce = TRUE

Dim WshNetwork, WshShell, objWMIService, objAdapter
Dim colDrives, colAdapters
Dim strMsg, strUserName, strCompName, strServerIP
Dim i, strSec2Wait, strUser, strPass

strSec2Wait = "10"
strUser = "MarcosUsername"
strPass = "MarcosPasswort"

Set WshNetwork = Wscript.CreateObject("Wscript.Network")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
strUserName = WSHNetwork.UserName
strCompName = WSHNetwork.ComputerName
Set objWMIService = GetObject("winmgmts:\\"& strCompName & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objAdapter in colAdapters
strServerIP = objAdapter.DHCPServer
Next

Set colDrives = WshNetwork.EnumNetworkDrives
On Error Resume Next
If colDrives.Count > 0 Then
For i = 0 To colDrives.Count - 1 Step 2
WshNetwork.RemoveNetworkDrive colDrives(i), blnForce
Next
End If
On Error GoTo 0

WshNetwork.MapNetworkDrive "I:", "\\" & strServerIP & "\QDLS", , strUser, strPass
WshNetwork.MapNetworkDrive "S:", "\\" & strServerIP & "\SOFTWARE", , strUser, strPass
WshNetwork.MapNetworkDrive "O:", "\\" & strServerIP & "\OFFICE", , strUser, strPass

Set colDrives = WshNetwork.EnumNetworkDrives
strMsg = strMsg & vbCrLf & "Anmelde Ergebnisse" & vbCrLf & vbCrLf & _
"Benutzername" & Chr(9) & "= " & strUserName & vbCrLf & "Computername" & _
Chr(9) & "= " & strCompName & vbCrLf
If colDrives.Count = 0 Then
strMsg = strMsg & vbCrLf & "Kein Netzlaufwerk ist verbunden." & vbCrLf
Else
strMsg = strMsg & vbCrLf & "Verbundene Netzlaufwerk(e):" & vbCrLf
For i = 0 To colDrives.Count - 1 Step 2
strMsg = strMsg & vbCrLf & colDrives(i) & Chr(9) & colDrives(i + 1)
Next
End If

WshShell.PopUp strMsg,strSec2Wait,strUserName & "@" & strCompName,64
' ### eof ###
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Auch hier müsstest Du deine Parameter einpflegen und im Abschnitt:

For Each objAdapter in colAdapters
strServerIP = objAdapter.DHCPServer

statt der vom Skript ermittelten IP des DHCP deine benötigte eintragen.

Hierfür auch nochmals einen herzlichen Dank an GEMINI.

Hoffe Dir damit evtl. geholfen zu haben.

Gruß
Marco