???
???===================================================================
??? Check args
???===================================================================
If WScript.Arguments.Named.Exists(???path???) = FALSE Then
WScript.Arguments.ShowUsage()
WScript.Quit
End If
Const ForWriting = 2
Dim FSO, WSHNetwork
Dim objLogFile
Dim strPath
Dim strFileName
Dim dtmThisMinute, dtmThisHour
Dim dtmThisDay, dtmThisMonth, dtmThisYear
Set WSHNetwork = CreateObject(???WScript.Network???)
strPath = WScript.Arguments.Named(???path???)
Set FSO = CreateObject(???Scripting.FileSystemObject???)
dtmThisMinute = PadDigits(Minute(Now), 2)
dtmThisHour = PadDigits(Hour(Now), 2)
dtmThisDay = PadDigits(Day(Now), 2)
dtmThisMonth = PadDigits(Month(Now), 2)
dtmThisYear = Year(Now)
strFileName = WSHNetwork.ComputerName & ???-??? & dtmThisYear & ???-??? & dtmThisMonth
& ???-??? &_
dtmThisDay & ???-??? & dtmThisHour & ???-??? & dtmThisMinute & ???.csv???
Set objLogFile = FSO.OpenTextFile(strPath & ???\??? & strFileName, ForWriting, true)
Dim objRoot ??? The FPCLib.FPC root object
Dim isaArray ??? An FPCArray object
524
Set objRoot = CreateObject(???FPC.
Pages:
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803