WScript.Echo GetSystemDirectory( )

' **********************************************************
' システムディレクトリの取得
' **********************************************************
Function GetSystemDirectory( )

	Dim obj

	Set obj = CreateObject( "Shell.Application" )
	Set objFolder = obj.Namespace( &H25 )
	Set objFolderItem = objFolder.Self
	GetSystemDirectory = objFolderItem.Path

End Function