voir
WmIc
pour bloquer exécution si lancé par wscript:
dim name
dim nbw
nbw=0
name=wscript.scriptname
DIM objWMIService,colitems, objitem
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_Process " & "Where Name='wscript.exe'",,48)
' compter les process lances par wscript et contenant le nom du script en cours
' gaffe peut être si contenu dans un nom plus long
For Each objItem in colItems
if instr(ucase(objitem.commandline),ucase(name))>0 then
nbw=nbw+1
end if
if nbw>0 then
wscript.echo "lance par WSCRIPT"
wscript.quit