Hello,
I am running the GETDISKSPACE registry function in a script to determine
free siskspace on the c: drive of about 700 Windows 95 desktop PCs on my
network. The script runs well except that on about half the machines it
returns a result of 0 free diskspace. These machines are a mix of Windows
95A, Windows 95B, and OSR2 machines. It fails on all three versions of Win 95 with no pattern that I can determine.
Any ideas?
Fred Pretorius
fpretorius@mintz.comThe following is the script text:
$logfile1="N:\ISLOG\ISPCinfo.log"
$diskspace=GetDiskSpace( "C:\" )
$gooddisk=200000 ;100 mb = 100000
$goodieversion="5"
$ieversion=GetFileVersion("c:\program files\internet explorer\iexplore.exe")
$roundieversion=SUBSTR ("$ieversion", 1, 1)
$goodwordversion="7"
$wordversion=GetFileVersion("c:\program files\microsoft
office\office\winword.exe")
$roundwordversion=SUBSTR ("$wordversion", 1, 1)
$goodexceldversion="7"
$excelversion=GetFileVersion("c:\program files\microsoft
office\office\excel.exe")
$roundexcelversion=SUBSTR ("$excelversion", 1, 1)
Open( 3 , "$logfile1" , 5 ) = 0
$y = WriteLine( 3 , "diskspace, " + $diskspace +"," + @userid +","+
@fullname + "," + @wksta + "," + @date + Chr(13) + Chr(10) )
Close(3)
If $diskspace <= $gooddisk
$var1="disk"
gosub takenote
endif
If $roundieversion <> $goodieversion
$var1="IEVersion"
gosub takenote
endif
If $roundwordversion > $goodwordversion
$var1="WordVersion"
gosub takenote
endif
If $roundexcelversion > $goodexcelversion
$var1="ExcelVersion"
gosub takenote
endif
goto end
:takenote
IF Open( 3 , "$logfile1" , 5 ) = 0
$x = WriteLine( 3 , "$var1=," + @userid +","+@fullname + "," +
@wksta +
"," + @date + Chr(13) + Chr(10) )
Close(3)
ENDIF
return
:end
