Windows SUS server

Status
Niet open voor verdere reacties.
Het bestand heeft extensie msc. Als ik het goed heb heet het bestand wsus.msc en het staat in de system32 map.
Op mijn werk hebben we het geïnstalleerd; ik kan deze week gaan kijken hoe het precies heet en hoe jij in de beheer-omgeving kan komen.
Je kunt ook proberen: Start | run... ; invullen: wsus.msc en dan op ok klikken. Of ik moet me vergissen in de naamgeving, maar dan kom ik er op terug als ik het op mijn werk nagekeken heb.
Over het toevoegen van de cliënts: werken jullie met policies? Als dat zo is, is het niet erg moeilijk om de clients toe te voegen.

Ik kom er nog wel op terug als ik het op mijn werk nagekeken heb, want ik moet nu alles vanuit mijn geheugen doen en vaak werkt het veel beter als ik het even weer voor me zie.
 
ik heb die snap in gevonden ik moet nu alleen nog even uit yoeken hoe dat precies werktö= maar bedankt:D en als je voor mij nog even wil zien hoe dat werkt met die clients you ik je voor eeuwig dankbaar zij:)
 
Hoi KingShift,

Voordat ik je vraag beantwoord hoe je de cliënts toevoegt, wil ik graag dat je eerst een paar vragen beantwoort, zodat ik weet waar ik moet beginnen met uitleggen.

1 - Hebben jullie de clients in 'Active Directory Users and Computers' in 'Organizational Units' geplaatst?

2 - Maken jullie gebruik van Group Policies en ben je bekend met wat Group Policies zijn?
(Of de cliënt group policies meekrijgt, kun je controleren door op een client op de cmd-prompt te typen: gpresult)

3 - Om cliënts toe te voegen door middel van 'Group Policies', is het handig om 'Group Policy Management Console with Service Pack 1' geïnstalleerd te hebben. Haal deze gratis download hier:

http://www.microsoft.com/downloads/...24-8CBD-4B35-9272-DD3CBFC81887&displaylang=en

Installeer dit op de Windows2003 server (Ik neem even aan dat je de engelstalige versie gebruikt) Het is geen grote download en als het al geïnstalleerd staat, zal het installatieprogramma dit melden.

-

Als studiemateriaal heb ik hier nog twee linkjes naar engelstalige documentatie over WSUS. (Deze documenten lijken wat ingewikkelder dan het eigenlijk is, hoor...)

Step by step guide:

http://www.microsoft.com/downloads/...D1-72F6-4F19-A1B0-F689DAE14BE6&displaylang=en

Operations guide:

http://www.microsoft.com/downloads/...FA-670F-4A49-95EC-2FFDA7691F55&displaylang=en
 
Hallo Nadir,

het staat nu in een test omgeving dus het gaat niet via active directory nou (natuurlijk gaat het wel via die server) maar daar wordt monenteel niet egt iets mee gedaan en das ook gelijk het antw op de andere vragen van jou. alles hebben we draaien op een andere server mar het is nu de bedoeling om het zonder al die dingen te doen als we het zonder kunnen kunnen we het ook heel gemakelijk doen met AD en Group Policies. We willen niet het gelijk op de echte server doen maar dat begrijp jij natuurlijk ook

maar je om je vragen als nog te beantw.

Vraag 1. We hebben de clients in 'Active Directory Users and Computers' in 'Organizational Units' geplaatst.

Vraag 2. We maken gebruik van Group Policies, en ik weet wat het is(weet toch nog iets;))

Vraag 3. We hebben alle groepen al gemaakt dus ik denk niet dat dit nodig is

Groeten KingShift
 
Laatst bewerkt:
Inderdaad, als je WSUS wilt proberen zonder Active Directory en group-policies, zul je de werkwijze van de link van M@rio moeten gaan volgen.
Wij hebben zelf ook een test-server en ons streven is altijd om het zoveel mogelijk op de productie-omgeving te laten lijken, dus met Active Directory en al. Is je uiteindelijke doel om WSUS op de 'echte' server in te zetten, of wil je alleen WSUS verkennen?

Persoonlijk vind ik het wel leuk om een test-server compleet met AD en al te laten draaien. Maar als dat je doel niet is, dan heb je veel meer aan de tip van M@rio.

Zeg jij het maar: wil je verder met group-policies of ga je aan de slag met de link van M@rio?
 
Testen is leuk maar doe boots het dan wel na als zijnde een echte omgeving. Je gaat nu aan de slag en als je het straks via AD gaat doen is het toch net weer anders.

Oftewel als je het daadwerkelijk gaat implementeren kun je het beter gelijk goed doen
 
ik zou het graag ook doen via de AD maar helaas is mijn systeem beheerder daar niet voor dus ik ben voor nu genootzaakt het zonder de AD te doen, volgens hem als ik het zonder kan moet het ook geen punt zijn om met AD te doen. Dus hij heeft me opgedragen om het zonder te doen. Ik ben hier persoonlijk niet echt mee eens maar de kant moet tevreden zijn wat je ook doet;)(ik noem het maar een klant omdat ik het voor hem moet maken maar ik doe dit voor mijn stage) het is nu in een procedure van uitzoeken hoe het werkt enz. straks wordt het in het echt op de grote server gedaan dus ik moet goed weten wat ik doe
 
ik ben nu zo ver dat ik weet dat de fout bij de Client ligt en niet meer bij de server.
Weet iemand hoe ik de Client kan laten conecten met de WSUS Server?
 
Wat heb je in het register van die client staan onder HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\windows\WindowsUpdate
typ op de client anders eens bij start/uitvoeren gpedit.msc in dan kom je in het lokale groepsbeleid ga dan bij computerconfiguratie naar beheerssjablonen/windows components/windows update en voer daar het adres van de server in bij specify microsoft update service location. dat moet werken, laat dat aan de systeembeheerder zien en vertel dat het bij allemaal tegelijk kan via de AD en als het een beetje automatiseerder is doet ie het via de AD, waarom alle pc's bij langs als het automatisch kan?
 
Wat heb je in het register van die client staan onder HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\windows\WindowsUpdate
typ op de client anders eens bij start/uitvoeren gpedit.msc in dan kom je in het lokale groepsbeleid ga dan bij computerconfiguratie naar beheerssjablonen/windows components/windows update en voer daar het adres van de server in bij specify microsoft update service location. dat moet werken, laat dat aan de systeembeheerder zien en vertel dat het bij allemaal tegelijk kan via de AD en als het een beetje automatiseerder is doet ie het via de AD, waarom alle pc's bij langs als het automatisch kan?

Het gaat er niet om dat 1 keer alle pc's werkt we zitten in een test fase of dit wel de ideaale oplossing is en hij wil weten hoe je het doet zonder je AD te gebruiken maar je hebt gelijk ik zou het ook graag via de AD doen daarom ben ik dit weekend mee bezig om uit te vogelen hoe je het via de AD doet en dan zeg ik tegen de systeembeheerde van nou zo via de AD is gwn makkelijker(als dit makkelijker is) ik ga ook proberen uit te vogelen hoe je het zonder doet maar Met AD is nu even belangrijker

Over je vraag hoe mijn Register er uit ziet geef ik je even een link van een site omdat die zelfde is
http://www.rybski.be/index.php?optio...d=36&Itemid=26

maar het werkte helaas nog niet
 
Sla onderstaande tekst eens op in notepad en sla die op als .vbs bestand en dubbelklikn er dan op die kijtk dan hoe de client is ingesteld voor wsus, als dat via het register of gpedit is ingesteld zou dat goed moeten zijn en moet je hem op de server zien verschijnen

On Error Resume Next

Set objWshNet = CreateObject("Wscript.Network")

const HKCU = &H80000001
const HKLM = &H80000002

strComputer = lcase(objWshNet.ComputerName)
if left(strComputer,2)="\\" then
strComputer=right(strComputer,(len(strComputer)-2))
end if

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

If Err.Number <> 0 Then
msgbox "Connection Error to computer:" & VBCRLF & VBCRLF & " " & strComputer & VBCRLF, vbCritical, "Connection Error"
WScript.Quit
End If

strMsg = "No Auto Update: "
strKeyPath = "Software\Policies\Microsoft\Windows\WindowsUpdate\AU"
strValueName = "NoAutoUpdate"
If RegValueExists(strKeyPath, strValueName) Then
oReg.GetDWORDValue HKLM,strKeyPath,strValueName,dwValue
Resultmsg = Resultmsg & GetNoAutoUpdate(dwValue) & VBCRLF & VBCRLF
Else
Resultmsg = Resultmsg & strMsg & "Setting Not Configured in Policy" & VBCRLF & VBCRLF
End If

strMsg = "Use WSUS Server: "
strKeyPath = "Software\Policies\Microsoft\Windows\WindowsUpdate\AU"
strValueName = "UseWUServer"
If RegValueExists(strKeyPath, strValueName) Then
oReg.GetDWORDValue HKLM,strKeyPath,strValueName,dwValue
Resultmsg = Resultmsg & GetUseWUServer(dwValue) & VBCRLF

If dwValue = "1" Then
strMsg = "The WSUS Server is: "
strKeyPath = "Software\Policies\Microsoft\Windows\WindowsUpdate"
strValueName = "WUServer"
If RegValueExists(strKeyPath, strValueName) Then
oReg.GetStringValue HKLM,strKeyPath,strValueName,strValue
Resultmsg = Resultmsg & strMsg & strValue & VBCRLF
Else
Resultmsg = Resultmsg & strMsg & "Missing." & VBCRLF & "You should reconfigure SUS." &VBCRLF
End If
End If
End If

strMsg = VBCRLF & "Automatic Update Options: "
strKeyPath = "Software\Policies\Microsoft\Windows\WindowsUpdate\AU"
strValueName = "AUOptions"
If RegValueExists(strKeyPath, strValueName) Then
oReg.GetDWORDValue HKLM,strKeyPath,strValueName,dwValue
GetAUOptions(dwValue)
Resultmsg = Resultmsg & strMsg & VBCRLF

If dwValue = "4" Then
strMsg = " - Scheduled Install Day: "
strKeyPath = "Software\Policies\Microsoft\Windows\WindowsUpdate\AU"
strValueName = "ScheduledInstallDay"
If RegValueExists(strKeyPath, strValueName) Then
oReg.GetDWORDValue HKLM,strKeyPath,strValueName,dwValue
Resultmsg = Resultmsg & strMsg & getday(dwValue) & VBCRLF
Else
Resultmsg = Resultmsg & strMsg & "Setting Not Configured in Policy" & VBCRLF
End If

strMsg = " - Scheduled Install Time: "
strKeyPath = "Software\Policies\Microsoft\Windows\WindowsUpdate\AU"
strValueName = "ScheduledInstallTime"
If RegValueExists(strKeyPath, strValueName) Then
oReg.GetDWORDValue HKLM,strKeyPath,strValueName,dwValue
Resultmsg = Resultmsg & strMsg & dwValue &":00" & VBCRLF & VBCRLF
Else
Resultmsg = Resultmsg & strMsg & "Setting Not Configured in Policy" & VBCRLF
End If
Else
Resultmsg = Resultmsg & VBCRLF
End If

Else
Resultmsg = Resultmsg & strMsg & "Setting Not Configured in Policy" & VBCRLF
strMsg = " - User controlled setting: "
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update"
strValueName = "AUOptions"
If RegValueExists(strKeyPath, strValueName) Then
oReg.GetDWORDValue HKLM,strKeyPath,strValueName,dwValue
Resultmsg = Resultmsg & strMsg & GetAUOptions(dwValue) & VBCRLF

If dwValue = "4" Then
strMsg = " - Scheduled Install Day: "
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update"
strValueName = "ScheduledInstallDay"
If RegValueExists(strKeyPath, strValueName) Then
oReg.GetDWORDValue HKLM,strKeyPath,strValueName,dwValue
Resultmsg = Resultmsg & strMsg & getday(dwValue) & VBCRLF
Else
Resultmsg = Resultmsg & strMsg & "Setting Not Configured" & VBCRLF
End If

strMsg = " - Scheduled Install Time: "
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update"
strValueName = "ScheduledInstallTime"
If RegValueExists(strKeyPath, strValueName) Then
oReg.GetDWORDValue HKLM,strKeyPath,strValueName,dwValue
Resultmsg = Resultmsg & strMsg & dwValue &":00" & VBCRLF
Else
Resultmsg = Resultmsg & strMsg & "Setting Not Configured" & VBCRLF
End If
Else
Resultmsg = Resultmsg & VBCRLF
End If

Else
Resultmsg = Resultmsg & strMsg & "Setting Not present" & VBCRLF
End If
End If

strMsg = " - After downloading updates: "
strKeyPath = "Software\Policies\Microsoft\Windows\WindowsUpdate\AU"
strValueName = "NoAutoRebootWithLoggedOnUsers"
If RegValueExists(strKeyPath, strValueName) Then
oReg.GetDWORDValue HKLM,strKeyPath,strValueName,dwValue
Resultmsg = Resultmsg & strMsg & GetNoAutoReboot(dwValue) & VBCRLF & VBCRLF
Else
Resultmsg = Resultmsg & strMsg & "Your system will rstart itself in five minutes. " & VBCRLF & VBCRLF
End If

MsgBox Resultmsg,,"Windows Update Configuration"

set oReg = nothing


Function GetNoAutoUpdate(Index)
Select Case Index
Case 0 GetNoAutoUpdate = "Automatic Updates are Enabled"
Case 1 GetNoAutoUpdate = "Automatic Updates are Disabled"
Case Else GetNoAutoUpdate = "Can not read Automatic Update Policy"
End select
End Function

Function GetUseWUServer(Index)
Select Case Index
Case 0 GetUseWUServer = "You are not using WSUS"
Case 1 GetUseWUServer = "You are using WSUS"
Case Else GetUseWUServer = "Can not determine whether you are using WSUS"
End select
End Function

Function GetDay(Index)
Select Case Index
Case "0" GetDay = "Every Day"
Case "1" GetDay = "Every Sunday"
Case "2" GetDay = "Every Monday"
Case "3" GetDay = "Every Tuesday"
Case "4" GetDay = "Every Wednesday"
Case "5" GetDay = "Every Thursday"
Case "6" GetDay = "Every Friday"
Case "7" GetDay = "Every Saturday"
Case Else GetDay = "Error in this value"
End select
End Function

Function GetAUOptions(Index)
Select Case Index
Case "0" GetAUOptions = "0"
Case "1" GetAUOptions = "1 - Disabled in User Settings"
Case "2" GetAUOptions = "2 - Notify Admin-priv user of a pending update waiting to be downloaded. User will initate the download."
Case "3" GetAUOptions = "3 - Automatically downloads updates and notify Admin-priv user of pending installation."
Case "4" GetAUOptions = "4 - Automatically downloads updates. Installation will occur on the scheduled day & time."
case Else GetAUOptions = "Error in this value"
End select
End Function

Function GetNoAutoReboot(Index)
Select Case Index
Case "0" GetNoAutoReboot = "Your system will rstart itself in five minutes. "
Case "1" GetNoAutoReboot = "You will be asked to restart your computer to install them."
case Else GetNoAutoReboot = "Error in this value"
End select
End Function

Function GetAUState(Index)
Select Case Index
Case "0" GetAUState = "0 - Initial 24 hour timeout (AU Wizard will wait)"
Case "1" GetAUState = "1 - Waiting for user to run AU wizard from System Tray"
Case "2" GetAUState = "2 - Detect pending"
Case "3" GetAUState = "3 - Download pending (waiting for user to accept pre-download prompt)"
Case "4" GetAUState = "4 - Download in progress"
Case "5" GetAUState = "5 - Install pending"
Case "6" GetAUState = "6 - Install complete"
Case "7" GetAUState = "7 - Disabled"
Case "8" GetAUState = "8 - Reboot pending (Reboot was declined)"
Case Else GetAUState = "Error in this value"
End select
End Function

Function RegValueExists(sRegKey, sRegValue)
sRegKey = Trim(sRegKey)
sRegValue = LCase(Trim(sRegValue))
' init value
RegValueExists = False
If oReg.EnumValues(HKLM, sRegKey, aValueNames, aValueTypes) = 0 Then
If Not IsNull(aValueNames) Then
For i = 0 To UBound(aValueNames)
If LCase(aValueNames(i)) = sRegValue Then
RegValueExists = True
End If
Next
End If
End If
End Function

Function RegKeyExists(sRegKey)
sRegKey = Trim(sRegKey)
If oReg.EnumValues(HKLM, sRegKey, aValueNames, aValueTypes) = 0 Then
RegKeyExists = True
Else
RegKeyExists = False
End If
End Function
 
wat is dit eigenlijks? ik ken dit niet:p ik kan dit ook over weg met Vitrual PC? misschien beetje dome vraag maar ik ben niet supper bekend met Vitrual PC;)

Bedankt voor je hulp;)
 
Het is een vbscript dat kijtk naar je huidige instellingen van wscript en dan in een popup laat zien zodra je erop klikt, kan gewoon op iedere windows gebruikt worden, als wsus niet staat ingeschakeld zegt ie dat en als hetw el staat ingeschakeld kijtk hij naar de instellingen
 
Het is een vbscript dat kijtk naar je huidige instellingen van wscript en dan in een popup laat zien zodra je erop klikt, kan gewoon op iedere windows gebruikt worden, als wsus niet staat ingeschakeld zegt ie dat en als hetw el staat ingeschakeld kijtk hij naar de instellingen


Ik zou graag willen kijken maar ik ben nu niet op het stage bedrijf ik ben nu thuis aan het proberen met Vitrual PC alleen schiet niet echt op omdat ik met wirrless zit dat pakt hij niet op een of andere manier daar meot ik nu een oplossing voor zoeken
 
We hebben de fout opgelost het is in Service dat het niet goed ingesteld was.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan