;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; autoitinfo.au3
; fj 2011-05-25
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
dim $par, $parnum, $string
$parnum = $CmdLine[0]
for $i = 1 to $parnum
$par = $CmdLine[$i]
Switch $par
;;;;;;;;;;;;;;;;;;;;;;;;;;; special characters
Case "$tab"
$string = $string & @TAB
Case "$B"
$string = $string & " "
Case "$+"
$string = $string & @CRLF
Case "$qm"
$string = $string & '"'
;;;;;;;;;;;;;;;;;;;;;;;;;;; systeminfo
Case "$cpu"
$string = $string & @CPUArch
Case "$ost"
$string = $string & @OSType
Case "$osv"
$string = $string & @OSVersion
Case "$osb"
$string = $string & @OSBuild
Case "$osa"
$string = $string & @OSArch
Case "$ossp"
$string = $string & @OSServicePack
Case "$ip"
$string = $string & @IPAddress1
Case "$user"
$string = $string & @UserName
Case "$comspec"
$string = $string & @Comspec
;;;;;;;;;;;;;;;;;;;;;;;;;;; date
case "$datetime"
$string = $string & @YEAR & @MON & @MDAY & "_" & @HOUR & @MIN & @SEC
case "$date"
$string = $string & @YEAR & @MON & @MDAY
case "$C"
$string = $string & StringLeft( @YEAR, 2 )
case "$y"
$string = $string & StringRight( @YEAR, 2 )
case "$m"
$string = $string & @MON
case "$D"
$string = $string & @MDAY
;;;;;;;;;;;;;;;;;;;;;;;;;;; Time
case "$time"
$string = $string & @HOUR & @MIN & @SEC
case "$mi"
$string = $string & @MIN
case "$h"
$string = $string & @HOUR
case "$s"
$string = $string & @SEC
case "$w"
$string = $string & @WDAY
case "$z"
$string = $string & @YDAY
;;;;;;;;;;;;;;;;;;;;;;;;;;; directories
Case "$cwd"
$string = $string & @WorkingDir
case "$dw"
$string = $string & @Windowsdir
case "$ds"
$string = $string & @SystemDir
case "$dt"
$string = $string & @TempDir
case "$dp"
$string = $string & @ProgramFilesDir
case "$dc"
$string = $string & @CommonFilesDir
case "$stmd"
$string = $string & @StartMenuCommonDir
case "$ustmd"
$string = $string & @StartMenuDir
case "$dtd"
$string = $string & @DesktopCommonDir
case "$udtd"
$string = $string & @DesktopDir
case "$docd"
$string = $string & @DocumentsCommonDir
case "$udocd"
$string = $string & @MyDocumentsDir
case Else
$string = $string & $par
EndSwitch
Next
ConsoleWrite( $string & @CRLF )