[2003/XP] Hosts file aanpassen mbv script*

[Verwijderd]

Goedenmiddag,

Ik zou graag een script willen hebben die ik ga uitrollen via een GPO.
Dit script moet een aangepaste HOSTS file kopieeren van de server (SBS2003) naar de XP client.
(C:\windows\system32\drivers\etc)

Nu had ik al een script maar die werkt niet: (VBS script)

Option Explicit

'===========================================
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")


Dim objFso

Set objFso = CreateObject("Scripting.FileSystemObject")


objFso.CopyFile "\\NAAMSERVER\Scripts$\restrictedinternet\hosts", "C:\WINDOWS\system32\drivers\etc"

'===========================================

Andere instellingen in dezelfde policy worden wel doorgevoerd, maar het hosts bestand wordt niet vervangen. En de gebruiker krijgt ook geen foutmelding.

Om even onnodige discussies te verkomen. Ik moet echt de hostsfile kunnen vervangen. En ik weet dat wat ik wil ook op andere manieren kan, maar dit is wat ik graag wil.

Maar wat ik weet is dat logon scripts uitgevoerd worden met Systeem rechten.
En aangezien het read only is, moet ik het volgende doen?

1. HOSTS file readonly verwijderen
2. HOSTS file kopieeren
3. HOSTS file op read only zetten.

Hoe kan ik stap 1 en 3 doen? Kan dat met een VBS script(regel)?

Even voor de duidelijkheid, het script kan ik niet uitvoeren op de server zelf. Omdat ik \\NAAMSERVER\Scripts$\restrictedinternet\hosts gebruik.

[remmelt]

Zoals al in het andere topic werd beschreven: waarom niet in je DNS aanpassen? Is centraal en makkelijker en veiliger.

[Equator]

Soms kan je dat niet met DNS..

Maaruhh.

Equator schreef op donderdag 11 september 2008 @ 15:03:
Overigens werkt dit gewoon

Visual Basic:

Dim oFso
Set oFso = CreateObject("Scripting.FileSystemObject")
oFso.DeleteFile "C:\temp\test.txt",1                     ' Dit omdat het een readonly file is
oFso.CopyFile "c:\test.txt","C:\temp\"

Let ook op de trailing slash in het destination path..

[Krypt]

Hebben de systemaccounts van je machines wel rechten om op die share te komen. Geef "Authenticated Users" eens leesrechten op die share. Computers zitten wel in "Authenticated Users" maar niet in "Domain Users"

[Verwijderd]

De hostfile is niet readonly (tenminste default niet), maar system account naar een share laten verwijderen is niet al te slim. (staat de share rechten wel op change voor system bijv.)
Het script draait lokaal dus waarom niet "windir\system32\drivers\etc" (Set windir = fso.GetSpecialFolder(0))

Edit: system account kan uberhaupt geen share benaderen op een andere server...

Persoonlijk zou ik je script ombouwen zodat hij gewoon de regels die jij erbij wilt hebben er bijzet. Zo verlies je ook geen persoonlijk edits van gebruikers.

code:

option explicit
on error goto 0

Const FORWRITING          = 2
Const FORAPPENDING    = 8

writetofile "yourstring", "c:\temp\test.txt", FORAPPENDING

function writetofile (strTextToWrite, strFileName, strMethod)
    '=================================================================
    'Function to write 1 string to a text file.
    ' input: - string.
    '        - method opening file (Valid values: FORWRITING, FORAPPENDING)
    '        - file to write string to.
    '=================================================================   

    Dim objFSO
    Dim objFile
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(strFileName, strMethod, True)
    objFile.writeline strTextToWrite
    objFile.Close

end function

[ Voor 64% gewijzigd door Verwijderd op 11-09-2008 18:35 ]

[sanfranjake]

Waarom los je dit niet op met de standaard op je SBS geinstalleerde WINS-server? Wat heb je zelf al gevonden hierover, en geprobeerd? Lijkt me piece of cake namelijk...

[ Voor 35% gewijzigd door sanfranjake op 11-09-2008 19:52 ]