wsus
Lennart,
Om wat voor omgeving gaat het? XP, 2000 enz.
Het is een bekend probleem dat sommige xp clients zonder sp2 niet goed kunnen communiseren met de wsus server. Dit komt door de versie van de update agent (wua). Waarschijnlijk hebben de clients een oudere versie 4.8.xxxx Deze kan helaas niet goed omgaan met de nieuwe versie van wsus.
Hieronder staat een vb script die de wua client update.
wua client kan je hier vandaan halen:
http://go.microsoft.com/fwlink/?LinkId=43265
Ik hoop dat je er wat aan hebt.
anders hoor ik het wel..
Exepath is waar de update moet staan.
'---------------------------------------wsus client update script----------------------------
ExePath = "c:\Wuauclt_update\update\WindowsUpdateAgent20-x86.exe"
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
' path to the Windows system32 folder
sWinSysDir = oFSO.GetSpecialFolder(1).Path
sDllFile = sWinSysDir & "\wuaueng.dll"
bUpdateNeeded = True ' init value
If oFSO.FileExists(sDllFile) Then
If Not CompareFileVersions(sDllFile, "5.8.0.2469") = "SecondFileNewest" Then
bUpdateNeeded = False
End If
End If
If bUpdateNeeded Then
' stop the Automatic Updates service
oShell.Run "%SystemRoot%\system32\net.exe stop wuauserv", 0, True
' install tha AU client
oShell.Run sExePath & " /quiet /norestart", 1, True
End If
Function CompareFileVersions(sFileInfo1, sFileInfo2)
Dim oFSO, sFileVer1, sFileVer2, aFileVer1, aFileVer2, iCount, iDateDiff
Set oFSO = CreateObject("Scripting.FileSystemObject")
If sFileInfo1 = "" Or sFileInfo2 = "" Then
MsgBox "CompareFileVersions error: Invalid argument, empty argument given!", vbExclamation + vbSystemmodal, "CompareFileVersions"
Err.Raise 5 'Invalid procedure call or argument
End If
If oFSO.FileExists(sFileInfo1) Then
sFileVer1 = oFSO.GetFileVersion(sFileInfo1)
Elseif UBound(Split(sFileInfo1, ".")) = 3 Then
sFileVer1 = sFileInfo1
Else
MsgBox "CompareFileVersions error: 1. argument is not an existing " & "file or correct file version format: " & sFileInfo1, vbExclamation + vbSystemmodal, "CompareFileVersions"
Err.Raise 5 'Invalid procedure call or argument
End If
If oFSO.FileExists(sFileInfo2) Then
sFileVer2 = oFSO.GetFileVersion(sFileInfo2)
Elseif UBound(Split(sFileInfo2, ".")) = 3 Then
sFileVer2 = sFileInfo2
Else
MsgBox "CompareFileVersions error: 2. argument is not an existing " & "file or correct file version format: " & sFileInfo2, vbExclamation + vbSystemmodal, "CompareFileVersions"
Err.Raise 5 'Invalid procedure call or argument
End If
If sFileVer1 <> "" And sFileVer2 <> "" Then
If sFileVer1 = sFileVer2 Then
CompareFileVersions = "SameVersion"
Else
aFileVer1 = Split(sFileVer1, ".")
aFileVer2 = Split(sFileVer2, ".")
For iCount = 0 To 3
If CInt(aFileVer1(iCount)) > CInt(aFileVer2(iCount)) Then
CompareFileVersions = "FirstFileNewest"
Exit For
ElseIf CInt(aFileVer1(iCount)) < CInt(aFileVer2(iCount)) Then
CompareFileVersions = "SecondFileNewest"
Exit For
Else
CompareFileVersions = "UnknownStatus"
End If
Next
End If
Elseif sFileVer1 <> "" And sFileVer2 = "" Then
CompareFileVersions = "FirstFileNewest"
Elseif sFileVer1 = "" And sFileVer2 <> "" Then
CompareFileVersions = "SecondFileNewest"
Else
iDateDiff = DateDiff("s", oFSO.GetFile(sFileInfo1).DateLastModified, oFSO.GetFile(sFileInfo2).DateLastModified)
If iDateDiff < 0 Then
CompareFileVersions = "FirstFileNewest"
ElseIf iDateDiff > 0 Then
CompareFileVersions = "SecondFileNewest"
Else
CompareFileVersions = "SameVersion"
End If
End If
End Function
