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

WScript.Echo WMIGetSystemDirectory( )

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

	Dim strComputer,objWMIService,colOSes,objOS

	strComputer = "."
	Set objWMIService = GetObject("winmgmts:" _
	 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
	Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
	For Each objOS in colOSes
		WMIGetSystemDirectory = objOS.SystemDirectory
	Next

End Function

Set BatchHelper = CreateObject( "Lbox.BatchHelper" )

WScript.Echo BatchHelper.SystemDirectory

' システムディレクトレリ取得
Set objExec = WshShell.Exec( "GetSytemDir.exe" )
Do While objExec.Status = 0
	WScript.Sleep 100
Loop
strDir = ""
Do While not objExec.StdOut.AtEndOfStream
	strDir = strDir & objExec.StdOut.ReadAll
Loop