Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien
Toon posts:

[SRV 2008 R2] Share koppeling loopt niet goed.

Pagina: 1
Acties:

Verwijderd

Topicstarter
Goedemorgen,

Situatie:

Er staan bij dit bedrijf 2 servers i.v.m. een vervanging van de Server 2003 naar Server 2008 R2.
Op beide servers staat NETLOGON met een script, deze repliceren aan elkaar, op het moment dat wij ook maar een wijziging in het script maken word dit direct bijgewerkt op de andere server. Het maakt niet uit waar deze wijziging gemaakt word.
Iedere gebruiker heeft een vaste pc waar hij op werkt.

Probleem:

Het netwerk heeft ongeveer 20 gebruikers, deze gebruikers hebben allemaal in hun profiel logon.vbs staan.
Dit script word normaal gesproken gewoon uitgevoerd bij het aanmelden in het netwerk, bij een aantal gebruikers komt het nu standaard voor dat deze de netwerk schijven niet krijgen. Het lijkt alsof het script helemaal niet word uitgevoerd. Dit heeft met beide servers in het netwerk wel altijd goed gedraaid zonder enige problemen.
Soms krijgen willekeurige gebruikers schijven die ze helemaal niet horen te krijgen, zelf op deze schijven staat een DENY ingesteld. Als ze deze schijven krijgen dan hebben ze FULL ACCES en kunnen ze alles doen...
Vervolgens laten wij de gebruiker uitloggen en opnieuw inloggen en dan werkt het script ineens goed.
Als ik dan browse naar de betreffende share waar de DENY op staat dan kom ik er ook niet op.

Uitgevoerd:

Domein naam: bft.local
FQDN naam:
- srv01-w2k3.bft.local = 192.168.2.1
- srv02.bft.local = 192.168.2.2

NSLookup bft.local geeft beide servers weer op 192.168.2.1 & 192.168.2.2.
Pingen naar bft.local geeft om en om de bovenstaande servers.
Check gedaan of alles goed repliceert.
Op een willekeurige PC 1 van de gebruikers laten aanmelden om te testen. Hierop gaat alles goed, zeer vaak opnieuw opgestart zonder problemen.

Vanmiddag word uitgevoerd: Opnieuw aanmelden in het domein

  • arjants
  • Registratie: Mei 2000
  • Niet online
Zou je het script misschien kunnen/willen posten?
Mijn gok is dat daar wat misgaat gezien je deny rechten op een map zet en de users deze toch gekoppeld krijgen..

Je zou eht script ook met de hand in een commandline uit kunnen voeren om te kijken of deze goed uitgevoerd word

[ Voor 26% gewijzigd door arjants op 08-03-2013 10:56 ]

We worden allemaal geconfronteerd met een reeks grootse kansen, op schitterende wijze vermomd als onoplosbare problemen. (John W. Gardner)


Verwijderd

Topicstarter
arjants schreef op vrijdag 08 maart 2013 @ 10:55:
Zou je het script misschien kunnen/willen posten?
Mijn gok is dat daar wat misgaat gezien je deny rechten op een map zet en de users deze toch gekoppeld krijgen..

Je zou eht script ook met de hand in een commandline uit kunnen voeren om te kijken of deze goed uitgevoerd word
Ik krijg er geen errors op, anders stopt het script er gelijk mee.
Het heeft ook jaren goed gewerkt en zonder dat er een aanpassing op het netwerk is werkt het niet meer.


Script:

Dim objUser
Dim objMember
Dim strObjPath
FS01 = "\\srv02\" 'Fileserver
FS02 = "\\srv01-w2k3\" 'Fileserver
PS01 = "\\srv01-w2k3\" 'Printserver
' ---------------------------------------------------------------------------------------------------
'First access via the WinNT: namespace

Set Wshell = WScript.CreateObject("WScript.Shell")
Set WNetWork = WScript.CreateObject("Wscript.NetWork")

'Maak variabelen
computer = WNetWork.Computername
username = WNetWork.UserName
Domain = WnetWork.USerDomain

On error Resume Next

tekst = "Welkom " & username &_
" op het domein van bedrijf." & Chr(13)& Chr(13)&_
"Uw netwerkinstellingen worden gereed gemaakt."

Venstertitel = "Loginscript"
bericht = wshell.popup (tekst ,8 , venstertitel, vbokonly)
set bericht = nothing

strObjPath = "WinNT://bft/"& username

Set objUser = GetObject(strObjPath)

' Verwijderen bestaande verbindingen
' Version 1.0 - 22 juni 2005
' ---------------------------------------------------------------'
'WShell.Run "\\srv01-w2k3\netlogon\rm_mappings.vbs", 1, false

Wnetwork.removenetworkdrive "k:"
Wnetwork.removenetworkdrive "l:"
Wnetwork.removenetworkdrive "m:"
Wnetwork.removenetworkdrive "s:"
Wnetwork.removenetworkdrive "t:"
Wnetwork.removenetworkdrive "y:"
Wnetwork.removenetworkdrive "x:"
Wnetwork.removenetworkdrive "n:"
Wnetwork.removenetworkdrive "q:"

' ---------------------------------------------------------------'
'Einde
'----------------------------------------------------------------'
'wscript.sleep 250
'----------------------------------------------------------------'
'Printers Instellen
' set printers = wnetwork.enumPrinterConnections
'
' printer02 = ps01 & "bizhub2"
' printer03 = PS01 & "bizhub353"
' printer04 = PS01 & "oce9400"


' WNetwork.addWindowsPRinterConnection printer01
' WNetwork.addWindowsPRinterConnection printer02
' WNetwork.addWindowsPRinterConnection printer03
' WNetwork.addWindowsPRinterConnection printer04

'Afhankelijk maken van groep t&m en bedrijf
'WNetwork.SetDefaultPrinter printer02

' ---------------------------------------------------------------'
'Een ieder
'WNetwork.MapNetworkDrive "k:", FS01& "scans"
WNetwork.MapNetworkDrive "k:", "\\srv01-w2k3\"& "scans"
WNetwork.MapNetworkDrive "l:", FS01& "share$"
WNetwork.MapNetworkDrive "y:", FS02& username

' ---------------------------------------------------------------'
'Loop ivm aanmaken net use per group
' ---------------------------------------------------------------'

For each objMember in objUser.Groups
'
if objmember.name="fin_administratie" then
WNetwork.MapNetworkDrive "t:", FS01& "administratie$"

elseif objmember.name="Print_TM" then
WNetwork.SetDefaultPrinter printer02

elseif objmember.name="bedrijfsgroep" then
WNetwork.MapNetworkDrive "m:", FS01& "tm$"

elseif objmember.name="Secretariaat" then
WNetwork.MapNetworkDrive "s:", FS01& "secr$"

elseif objmember.name="Print_bedrijf_Fundering" then
WNetwork.SetDefaultPrinter printer03

elseif objmember.name="civieleindustrie" then
WNetwork.MapNetworkDrive "x:", FS01& "bci$"

elseif objmember.name="Studenten" then
WNetwork.MapNetworkDrive "n:", FS01& "Studie"

elseif objmember.name="Personeel" then
WNetwork.MapNetworkDrive "q:", FS01& "personeel$"

end if
next

[ Voor 105% gewijzigd door Verwijderd op 08-03-2013 11:02 ]


  • Question Mark
  • Registratie: Mei 2003
  • Laatst online: 15:27

Question Mark

Moderator SSC/WOS

F7 - Nee - Ja

Waarom gooi je dat script niet gewoon de deur uit en maak je geen gebruik van Group Policy's en Group Policy Preferences om dit te regelen?

MCSE NT4/2K/2K3, MCTS, MCITP, CCA, CCEA, CCEE, CCIA, CCNA, CCDA, CCNP, CCDP, VCP, CEH + zwemdiploma A & B


Verwijderd

Topicstarter
Question Mark schreef op vrijdag 08 maart 2013 @ 11:09:
Waarom gooi je dat script niet gewoon de deur uit en maak je geen gebruik van Group Policy's en Group Policy Preferences om dit te regelen?
Voorstel hiervoor heb ik vanochtend gestuurd. Zodra dit akkoord is ga ik het ook uitvoeren.

Extra vraag:

Indien ik de koppeling via GPO uitvoer en ik zet het er vandaag in en de gebruikers zetten vandaag hun PC uit.
Zullen de gebruikers dan maandag de juiste schijven krijgen of moet ik echt op elke PC gpupdate /force laten uitvoeren als ik zeker daarvan wil zijn?

(Doe niet veel via GPO en als ik iets doe, dan is het vaak voor een enkele PC en gebruik ik een gpupdate /force)

[ Voor 59% gewijzigd door Verwijderd op 08-03-2013 11:48 ]