Addextender("WWWNT32I.DLL")

sms_dir="\\NTDC04\428420ERD"
mywindir=Environment("windir")
if mywindir=="" then mywindir=DirWindows(0)
if strsub(mywindir,strlen(mywindir),1)!="\"
   mywindir=strcat(mywindir,"\")
endif
ERD=strcat(mywindir,"system32\rdisk.exe")
Cmp_nm=Environment("computername")
tm_d=Timedate( )
RunWait(ERD,"/s-")

erd_dir=DirExist("%sms_dir%\%Cmp_nm%")
If erd_dir==@True
	Gosub FLCPY	
Else
	DirMake("%sms_dir%\%Cmp_nm%")
EndIf
GoSub FLCPY

:FLCPY
fc=FileCopy( "%mywindir%\repair\*.*", "%sms_dir%\%Cmp_nm%", @False )
If fc==@False
	GoSub CON
Else
	GoSub PRO
EndIf

:CON
handle = FileOpen("\\ntdc04\428420ERD\428420ERD.txt", "APPEND")
FileWrite(handle,"F A I L U R E")
FileWrite(handle,"_____________")
FileWrite(handle, tm_d)
FileWrite(handle, "%Cmp_nm%	Could not connect to RepairShare")
FileWrite(handle,"")
FileClose(handle)

:PRO
handle = FileOpen("\\ntdc04\428420ERD\428420ERD.txt", "APPEND")
FileWrite(handle,"S U C C E S S")
FileWrite(handle,"_____________")
FileWrite(handle, tm_d)
FileWrite(handle, "%Cmp_nm%	ERD updated")
FileWrite(handle,"")
FileClose(handle)