;debug(1)
Addextender("WWWNT32I.DLL")
IntControl(29,@tab,0,0,0)
:TOP
tme=TimeDate()
T1=DiskExist("u")
if T1 ==@True then wntCancelCon("u:",@FALSE,@TRUE)
pc_lst="C:\testfile.txt"
txt="notepad.exe"
items=wntServerList("", "AFFYMETRIX", 1)

MFGFormat=`WWWDLGED,5.0`
MFGCaption=`Maintenance`
MFGX=84
MFGY=85
MFGWidth=240
MFGHeight=236
MFGNumControls=6

MFG01=`124,58,86,DEFAULT,PUSHBUTTON,DEFAULT,"Scan",5`
MFG02=`124,98,86,DEFAULT,PUSHBUTTON,DEFAULT,"Cancel",3`
MFG03=`124,78,86,DEFAULT,PUSHBUTTON,DEFAULT,"View Scan Log",2`
MFG04=`22,16,96,206,ITEMBOX,items,DEFAULT`
MFG05=`124,18,90,DEFAULT,STATICTEXT,DEFAULT,"Choose a system from the left and"`
MFG06=`124,30,64,DEFAULT,STATICTEXT,DEFAULT,"click on scan to start."`
ButtonPushed=Dialog("MFG")

If ButtonPushed==2
runwait("notepad.exe","c:\program files\network associates\virusscan nt\VSCLOG.TXT")
Goto TOP
endif
If ButtonPushed==3
Exit
endif


If ButtonPushed==5
tst=AskYesNo("BE CAREFUL" , "Are you SURE this PC is in PM and can be scanned?")

If tst==@TRUE

BoxOpen("Virus-Scan","Adding %wrk_stn% for scanning")
drv=strcat(items,"\c$")
wntAddDrive(@default,@default,drv,"u:",@False)
vlog=FileOpen("c:\program files\network associates\virusscan nt\VSCLOG.TXT","APPEND")
Boxtext("Updating Log.")
Filewrite(vlog,"********** %list% - scanned %tme% *************")
FileClose(vlog)
Boxshut()

BoxOpen(items, "The C drive of %items% is being scanned for viruses")
runwait("C:\program files\network associates\virusscan nt\scan32.exe", "/[NO]SPLASH /[NO]ALWAYSEXIT /CLEAN /UINONE u:\ /[NO]SUB /[NO]ALL /LOG /LOGDATETIME /LOGUSER /LOGALL")
BoxText("Virus Scan of %items% Completed. %@CRLF% The VSCLOG.txt file has been updated to reflect this.")
Goto TOP
else
Goto TOP