Ik denk dat ik het gevonden heb! Probleem is dat ik het niet echt ergens kan testen want ik zou niet graag problemen krijgen met die server, dus het moet gewoon werken

. Ik zal het hier even opzetten, moest iemand twijfels hebben met een commandline, laat het me dan weten aub! Dit is om services af te sluiten op een Exchange/DC server.
ServerName = "ServerName"
set wmi = getobject("winmgmts://" &ServerName)
StopService ("Microsoft Exchange POP3")
StopService ("Microsoft Exchange MTA Stacks")
StopService ("Microsoft Exchange Information Store")
StopService ("Microsoft Exchange System Attendant")
StopService ("World Wide Web Publishing Service")
StopService ("Simple Mail Transfer Protocol (SMTP)")
StopService ("Microsoft Exchange Routing Engine")
StopService ("HTTP SSL")
StopService ("IIS Admin Service")
StopService ("Net Logon")
Sub StopService (ServiceName)
wql = "select state from win32_service" _
& "where displayname='"& SericeName & "'"
set results = wmi.execquery(wql)
for each service in results
if service.state = "Running" then
service.StopService
end if
next
End Sub