Listing 1: OnServerQuit.vbs
Dim instances, instance, cs
Set instances = GetObject(_
"winmgmts://./root/cimv2")._
InstancesOf(_
"Win32_ComputerSystem")
For each instance in instances
Set cs = instance
next
If cs.DomainRole > 1 Then
WScript.Quit
End If