REM COMPILE WIN32::ADMINMISC
set BASE_DIR=c:
set SDK=C:\Program Files\Microsoft Platform SDK for Windows XP SP2
set PERL510=c:\perl510
cd %BASE_DIR%
cl -MT -LD -EHsc -I"%SDK%\Include" -I"%PERL510%\lib\CORE" -I"%BASE_DIR%\include" -I"%BASE_DIR%" -DWIN32 -DPERL5008 adminmisc.cpp CDNS.cpp CFunMap.cpp constant.cpp DNS.CPP CPUID.C Speed.c WinCPUID.c CUString.lib WinCPUIDlib.lib \lib\Accounts_Lite.lib %PERL510%\lib\CORE\perl510.lib "%SDK%\Lib\USER32.LIB" "%SDK%\Lib\ADVAPI32.LIB" "%SDK%\Lib\WSOCK32.LIB" "%SDK%\Lib\KERNEL32.LIB" "%SDK%\Lib\NETAPI32.LIB" "%SDK%\Lib\WINMM.LIB" "%SDK%\Lib\VERSION.LIB" ADMINMISC.DEF /link /nodefaultlib:libc
echo Installing Win32::AdminMisc
mkdir %PERL510%\site\lib\Win32
copy %BASE_DIR%\AdminMisc.pm %PERL510%\site\lib\Win32\ >nul
mkdir %PERL510%\site\lib\auto\Win32\AdminMisc<br>
copy %BASE_DIR%\AdminMisc.dll %PERL510%\site\lib\auto\Win32<br>\AdminMisc\ >nul
echo #!%PERL510%\bin\perl.exe -w > %BASE_DIR%\test.pl
echo eval { use Win32::AdminMisc; }; if ($@){ print "Win32::AdminMisc didn't load : $@\n"; } else { print "Win32::AdminMisc loaded ok\n"; } exit 1; >> %BASE_DIR%\test.pl
perl %BASE_DIR%\test.pl