ServerCoreの判断

今日のセミナーネタ。

Dim bServerCore
Const strExplorer = "\explorer.exe"
strRoot = WshEnv("SYSTEMROOT")
strExpPath = strRoot + strExplorer

Set objFso = CreateObject("Scripting.FileSystemObject")

If objFso.FileExists(strExpPath) Then
    WScript.Quit(0)
    bServerCore = False
Else
    bServerCore = True
End If

マイクロソフトのセミナーでこんな力技の紹介されるとは思わなかったｗ