kixtart script.xml

SynEditStudio delphi 代码编辑器

<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
	<SyntaxColoring>
		<Info>
			<General Name="KixTart Script" Extensions="" Version="1" Revision="0" Sample="; KiXtart sample source
break on
color b/n
AT(1, 30) &quot;Hello World!&quot;
$USERID = @USERID
AT(1, 30) $USERID
; Check command line parameters
Select
	Case $PC = &quot;&quot;
		; Default if none specified is local computer (&quot;.&quot;)
		$strComputer = @WKSTA
	Case 1
		; Command line parameter $PC can either be a
		; computer name or &quot;/?&quot; to request online help
		$strComputer = $PC
		If InStr( $strComputer, &quot;?&quot; ) &gt; 0
			Syntax()
		EndIf
EndSelect

; Connect to computer's WMI service
$objWMIService = GetObject( &quot;winmgmts://&quot; + $strComputer + &quot;/root/cimv2&quot; )
; Display error number if applicable
If @ERROR
	ShowError()
EndIf

; Collect BIOS information
$colItems = $objWMIService.ExecQuery( &quot;Select * from Win32_BIOS where PrimaryBIOS = true&quot;, , 48 )
; Display error number if applicable
If @ERROR
	ShowError()
EndIf

Function Syntax()
	? &quot;BIOS.kix,  Version 1.00&quot;
	? &quot;Display BIOS information for any WMI enabled computer on the network.&quot;
	?
	? &quot;Usage:  KIX32  BIOS.KIX  [ $PC=computer_name ]&quot;
	?
	? &quot;Where:  &quot; + Chr(34) + &quot;computer_name&quot; + Chr(34) + &quot; is the name or IP address of any WMI enabled&quot;
	? &quot;        computer on the network&quot;
	?
	? &quot;Written by Rob van der Woude&quot;
	? &quot;http://www.robvanderwoude.com&quot;
	?
	; Abort with return code 1
	Quit 1
EndFunction

" History=""/>
			<Author Name="Vitaly Nevzorov" Mail="[e-mail]" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark=""/>
		</Info>
		<Schemes/>
		<Editor/>
		<MainRules Name="Root" Style="Root">
			<Attributes Foreground="clBlack" Background="clWhite"/>
			<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
			<SubRules>
				<Range Name="Remarks" CaseSensitive="True" Style="Remarks">
					<Attributes Foreground="$00A00000" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnEol="True"/>
					<MultiTokens>
						<Tokens Open=";"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Strings" CaseSensitive="True" Style="Strings">
					<Attributes Foreground="clRed" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="&quot;" Close="&quot;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="$" CaseSensitive="True" Style="$">
					<Attributes Foreground="$008000FF" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnTerm="True"/>
					<MultiTokens>
						<Tokens Open="$"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="@" CaseSensitive="True" Style="@">
					<Attributes Foreground="$00FF8000" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnTerm="True"/>
					<MultiTokens>
						<Tokens Open="@"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="?" Style="?">
					<Attributes Foreground="$000080FF" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnEol="True"/>
					<MultiTokens>
						<Tokens Open="?"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<KeyList Name="Commands" Enabled="True" Style="" Words=":
?
BEEP
BIG
BREAK
CALL
CASE
CD
CLS
COLOR
COOKIE1
COPY
DEBUG
DEL
DIM
DISPLAY
DO
EACH
ELSE
ENDFUNCTION
ENDIF
ENDSELECT
EXIT
FLUSHKB
FOR
FUNCTION
GET
GETS
GLOBAL
GO
GOSUB
GOTO
IF
LOOP
MD
NEXT
OFF
ON
PASSWORD
PLAY
QUIT
RD
REDIM
RETURN
RUN
SELECT
SET
SETL
SETM
SETTIME
SHELL
SLEEP
SMALL
UNTIL
USE
WHILE
">
					<Attributes Foreground="clGreen" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Functions" Enabled="True" Style="" Words="ADDKEY
ADDPRINTERCONNECTION
ADDPROGRAMGROUP
ADDPROGRAMITEM
ASC
AT
BACKUPEVENTLOG
BOX
CHR
CLEAREVENTLOG
CLOSE
COMPAREFILETIMES
CREATEOBJECT
DECTOHEX
DELKEY
DELPRINTERCONNECTION
DELPROGRAMGROUP
DELPROGRAMITEM
DELTREE
DELVALUE
DIR
ENUMGROUP
ENUMIPINFO
ENUMKEY
ENUMLOCALGROUP
ENUMVALUE
EXECUTE
EXIST
EXISTKEY
EXPANDENVIRONMENTVARS
GETDISKSPACE
GETFILEATTR
GETFILESIZE
GETFILETIME
GETFILEVERSION
GETOBJECT
INGROUP
INSTR
KEYEXIST
LCASE
LEN
LOADHIVE
LOADKEY
LOGEVENT
LOGOFF
LTRIM
MESSAGEBOX
OLECALLFUNC
OLECALLPROC
OLECREATEOBJECT
OLEENUMOBJECT
OLEGETOBJECT
OLEGETPROPERTY
OLEGETSUBOBJECT
OLEPUTPROPERTY
OLERELEASEOBJECT
OPEN
READLINE
READPROFILESTRING
READTYPE
READVALUE
REDIRECTOUTPUT
RND
RTRIM
SAVEKEY
SENDKEYS
SENDMESSAGE
SETACSII
SETCONSOLE
SETDEFAULTPRINTER
SETFILEATTR
SETFOCUS
SETSYSTEMSTATE
SETTITLE
SETWALLPAPER
SHOWPROGRAMGROUP
SHUTDOWN
SIDTONAME
SPLIT
SRND
SUBSTR
UBOUND
UCASE
UNLOADHIVE
VAL
VARTYPE
VARTYPENAME
WRITELINE
WRITEPROFILESTRING
WRITEVALUE
">
					<Attributes Foreground="clBlue" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Macros" Enabled="True" Style="" Words="ADDRESS
COMMENT
CSD
CURDIR
DATE
DAY
DOMAIN
DOS
ERROR
FULLNAME
HOMEDIR
HOMEDRIVE
HOMESHR
HOSTNAME
INWIN
IPADDRESS0
IPADDRESS1
IPADDRESS2
IPADDRESS3
KIX
LANROOT
LDOMAIN
LDRIVE
LM
LONGHOMEDIR
LSERVER
MAXPWAGE
MDAYNO
MONTHNO
MONTH
PRIMARYGROUP
PRIV
PRODUCTSUITE
PRODUCTTYPE
PWAGE
RAS
RSERVER
SCRIPTDIR
SERROR
SID
SITE
STARTDIR
SYSLANG
TIME
USERID
USERLANG
WDAYNO
WKSTA
WuSERID
YDAYNO
YEAR
">
					<Attributes Foreground="$00FF0080" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Operators" Enabled="True" Style="" Words="+
-
//
/
=
==
&amp;
|
&gt;
&lt;
AND
OR
">
					<Attributes Foreground="$000080FF" Background="clWhite"/>
				</KeyList>
			</SubRules>
		</MainRules>
	</SyntaxColoring>
	<CodeFolding/>
	<CustomData/>
</SynUniHighlighter>