set Shell = CreateObject("Wscript.shell")
set oNet = CreateObject("Wscript.Network")

DomainName = oNet.UserDomain

Set Domain = GetObject("WinNT://" & DomainName)

For Each ADSIObject In Domain
If ADSIObject.Class = "Computer" Then
Wscript.echo "Currently running gpupdate on  " & ADSIOBject.Name
Shell.Run "C:\tools\psexec -d \\" & ADSIObject.Name & " gpupdate /force /wait:0", 0,True
End If
Next