'Hardware_Info.vbs v1.1 BY: fastslz    http://bbs.bathome.net
On Error Resume Next
'Dim StdOut : Set StdOut = CreateObject("Scripting.FileSystemObject").GetStandardStream(1)
'WScript.Echo "Hello"
'WScript.StdOut.Write "Hello"
'WScript.StdOut.WriteLine "Hello"
'Stdout.WriteLine "Hello"
'Stdout.Write "Hello"

Dim WshShell, strCurDir
Set WshShell = CreateObject("WScript.Shell")
strCurDir    = WshShell.CurrentDirectory
'WshShell.Run strCurDir & "\attribute.exe", 0
Set WshShell = Nothing


Dim lang: lang=GetLocale()

'MsgBox "[" & lang & "]"

' Determine script location for VBScript
Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim sScriptDir : sScriptDir = oFSO.GetParentFolderName(WScript.ScriptFullName)

make_batch(strCurDir)

Function make_batch( strDir )
    Const FOR_READING = 1
    Const FOR_WRITING = 2
    Const FOR_APPENDING = 8
    Set Fso = CreateObject("Scripting.FileSystemObject")
    'If  not Fso.FolderExists("C:\netinst") Then
	'	Fso.CreateFolder("C:\netinst")
    'End If

    sys_arch=GetOSBit() 

     If sys_arch = "x86" Then
        pkg_arch="32"
    Else
        pkg_arch="64"
    End If
	Dim remoteDirWinpty :remoteDirWinpty="\\NAS-27-59-FD\save_tmp\tools\winpty\"
	Dim remoteDirIsetup :remoteDirIsetup="\\NAS-27-59-FD\save_tmp\tools\isetup\"
	Dim remoteDirPerl :remoteDirPerl="\\NAS-27-59-FD\save_tmp\tools\perl\"
	Dim remoteDirPstools :remoteDirPstools="\\NAS-27-59-FD\save_tmp\PSTools\"

	call CopyFile(remoteDirWinpty  &  pkg_arch, "winpty.dll")
	call CopyFile(remoteDirWinpty  &  pkg_arch, "winpty.exe")
	call CopyFile(remoteDirWinpty  &  pkg_arch, "winpty.lib")
	call CopyFile(remoteDirWinpty  &  pkg_arch, "winpty-agent.exe")
	call CopyFile(remoteDirWinpty  &  pkg_arch, "winpty-debugserver.exe")
	call CopyFile(remoteDirWinpty  , "path_reset.bat")

	call CopyFile(remoteDirIsetup  , "setup_isetup.exe")
	call CopyFile(remoteDirPerl  , "setup_perl.exe")
	call CopyFile(remoteDirPstools  , "PsExec.exe")
	
End Function
Function CopyFile( strDir, file)
	On Error Resume Next
    	Call oFSO.CopyFile ( strDir &  "\"  &  file, sScriptDir &  "\"  &  file,  False)
	copy_file=True
End Function


function GetOSBit()
    Dim WshShell
    Dim WshProcEnv
    Dim system_architecture
    Dim process_architecture

    Set WshShell =  CreateObject("WScript.Shell")
    Set WshProcEnv = WshShell.Environment("Process")

    process_architecture= WshProcEnv("PROCESSOR_ARCHITECTURE") 

    If process_architecture = "x86" Then    
        system_architecture= WshProcEnv("PROCESSOR_ARCHITEW6432")

        If system_architecture = ""  Then    
            system_architecture = "x86"
        End if    
    Else    
        system_architecture = process_architecture    
    End If
    GetOSBit = system_architecture
end Function     'GetOSBit