Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Services
- Change Startup Svc Name with wntSvcCfgSet
- Determine what Services are Dependent on a Specific Service
- Disable a Service
- List Services
- WinBatch Service Not Getting Parameters Passed by wntSvcStart
- wntSvc Functions and Guest Accounts
- wntSvcCfgSet and Error 650
- wntSvcCfgSet invalid parameter
- wntSvcControl and wntSvcStatus Example
- wntSvcCreate Error 531 Invalid Parameter
- wntSvcCreate Error 531
- wntSvcStart and Password Parameter
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
List Services
Undebugged Code to List Services
;-----------------------------------------------------------------------------------
:init
IntControl(12,5,0,0,0) ; Allow quite termination
IntControl (33,0,0,0,0) ; Single selection
Timedelay(1)
exepath = filepath(intcontrol(1004,0,0,0,0))
; Turn on debugging?
if IsKeyDown(@ctrl) || fileexist("%exepath%debugon.chk")
debug(@on)
endif
; Turn on debug tracing?
if IsKeyDown(@shift) || fileexist("%exepath%debugtraceon.chk")
debugtrace(@on,"%exepath%trace2.txt")
endif
AddExtender("WWWNT34I.DLL")
state1 = "Stopped"
state2 = "Start pending"
state3 = "Stop pending"
state4 = "Started"
state5 = "Continue pending"
state6 = "Pause pending"
state7 = "Paused"
svclit = strcat(state1,@tab,state2,@tab,state3,@tab,state4,@tab,state5,@tab,state6,@tab,state7)
;-----------------------------------------------------------------------------------
:main
servicelist = WntSvcList("","",301) ; List active and inactive application services
svccnt = ItemCount(servicelist,@tab)
for ii = 1 to svccnt
t = itemextract(ii,servicelist,@tab)
t = itemremove(2,t,"|")
servicelist = itemreplace(t,ii,servicelist,@tab)
next
#DefineSubroutine ssCBP( ss_Handle, ss_Message, ss_ID,rsvd1,rsvd2)
;DialogprocOptions Constants
MSG_INIT=0 ; The one-time initialization
MSG_TIMER=1 ; Timer event
MSG_BUTTONPUSHED=2 ; Pushbutton or Picturebutton
MSG_RADIOPUSHED=3 ; Radiobutton clicked
MSG_CHECKBOX=4 ; Checkbox clicked
MSG_EDITBOX=5 ; Editbox or Multilinebox
MSG_FILESELECT=6 ; Filelistbox
MSG_ITEMSELECT=7 ; Itembox
MSG_COMBOCHANGE=8 ; Combobox/Droplistbox
MSG_CALENDAR=9 ; Calendar date change
MSG_SPINNER=10 ; Spinner number change
MSG_CLOSEVIA49=11 ; Close clicked (Enabled via Intcontrol 49)
MSG_FILEBOXDOUBLECLICK=12 ; Get double-click message on a FileListBox
MSG_ITEMBOXDOUBLECLICK=13 ; Get double-click message on an ItemBox
DPO_DISABLESTATE=1000 ; codes -1=GetSetting 0=EnableDialog 1=DisableDialog
DPO_CHANGEBACKGROUND=1001 ; -1=GetSetting otherise bitmap or color string
;DialogControlState Constants
DCSTATE_SETFOCUS=1 ; Give Control Focus
DCSTATE_QUERYSTYLE=2 ; Query control's style
DCSTATE_ADDSTYLE=3 ; Add control style
DCSTATE_REMOVESTYLE=4 ; Remove control style
DCSTATE_GETFOCUS=5 ; Get control that has focus
DCSTYLE_INVISIBLE=1 ; Set Control Invisible
DCSTYLE_DISABLED=2 ; Set Control Disabled
DCSTYLE_NOUSERDATA=4 ; Note: Setable via DialogControlState function ONLY SPINNER control only
DCSTYLE_READONLY=8 ; Sets control to read-only (user cannot type in data) EDITBOX MULTILINEBOX SPINNER
DCSTYLE_PASSWORD=16 ; Sets 'password mode' where only *'s are displayed EDITBOX
DCSTYLE_DEFAULTBUTTON=32 ; Sets a button as the default button PUSHBUTTON PICTUREBUTTON
DCSTYLE_DIGITSONLY=64 ; Set edit box to accept digits only EDITMOX MULTILINEBOX
DCSTYLE_FLAT=128 ; Makes a 'flat' hyperlink-looking button PUSHBUTTON PICTUREBUTTON
DCSTYLE_NOADJUST=256 ; Turns off auto-height adjustment ITEMBOX FILELISTBOX
DCSTYLE_TEXTCENTER=512 ; Center text in control VARYTEXT STATICTEXT
DCSTYLE_TEXTRIGHT=1024 ; Flush-Right text in control VARYTEXT STATICTEXT
;DialogControlSet / DialogControlGet Constants
DC_CHECKBOX=1 ; CHECKBOX
DC_RADIOBUTTON=2 ; RADIOBUTTON
DC_EDITBOX=3 ; EDITBOX MULTILINEBOX
DC_TITLE=4 ; PICTURE RADIOBUTTON CHECKBOX PICTUREBUTTON VARYTEXT STATICTEXT GROUPBOX PUSHBUTTON
DC_ITEMBOXCONTENTS=5 ; ITEMBOX FILELISTBOX DROPLISTBOX
DC_ITEMBOXSELECT=6 ; ITEMBOX FILELISTBOX DROPLISTBOX
DC_CALENDAR=7 ; CALENDAR
DC_SPINNER=8 ; SPINNER
DC_MULTITABSTOPS=9 ; MULTILINEBOX
DC_ITEMSCROLLPOS=10 ; ITEMBOX FILELISTBOX
DC_BACKGROUNDCOLOR=11 ; RADIOBUTTON CHECKBOX VARYTEXT STATICTEXT GROUPBOX PUSHBUTTON ITEMBOX FILELISTBOX DROPLISTBOX SPINNER EDITBOX MULTILINEBOX
DC_PICTUREBITMAP=12 ; PICTURE PICTUREBUTTON
DC_TEXTCOLOR=13 ; RADIOBUTTON CHECKBOX VARYTEXT STATICTEXT GROUPBOX PUSHBUTTON ITEMBOX FIELLISTBOX DROPLISTBOX SPINNER EDITBOX MULTILINEBOX
DC_ITEMBOXADD=14 ; ITEMBOX FILELISTBOX DROPLISTBOX
DC_ITEMBOXREMOVE=15 ; ITEMBOX FILELISTBOX DROPLISTBOX
switch ss_Message
case MSG_INIT
DialogProcOptions(ss_Handle,MSG_BUTTONPUSHED,@TRUE)
DialogProcOptions(ss_Handle,MSG_ITEMSELECT,@TRUE)
DialogControlSet(ss_Handle,002,DC_ITEMBOXCONTENTS,servicelist)
return(-1)
case MSG_BUTTONPUSHED ; ID 001
return(-1) ; Exit
case MSG_ITEMSELECT ; ID 002
svc = DialogControlGet(ss_Handle,002,DC_ITEMBOXSELECT)
clipput(svc)
displayname = wntSvcCfgGet("",svc,1000,9)
errormode(@off)
svcdesc = wntSvcCfgGet("",svc,1000,10)
if svcdesc == 0 then svcdesc = strcat("Error on wntSvcCfgGet ",lasterror())
errormode(@cancel)
svcstat = wntSvcStatus("",svc,1000,2)
svcstatus = itemextract(svcstat,svclit,@tab)
DialogControlSet(ss_Handle,005,DC_EDITBOX,displayname)
DialogControlSet(ss_Handle,007,DC_EDITBOX,svcdesc)
DialogControlSet(ss_Handle,009,DC_EDITBOX,svcstatus)
return(-2) ; Do default processing
endswitch ; ss_Message
return(-1) ; Do default processing
#EndSubroutine ; End of Dialog Callback sscbp
ssFormat=`WWWDLGED,6.1`
ssCaption=`Service Status`
ssX=176
ssY=087
ssWidth=262
ssHeight=168
ssNumControls=009
ssProcedure=`sscbp`
ssFont=`DEFAULT`
ssTextColor=`DEFAULT`
ssBackground=`DEFAULT,DEFAULT`
ssConfig=0
ss001=`013,145,036,012,PUSHBUTTON,DEFAULT,"Done",1,2,32,DEFAULT,DEFAULT,DEFAULT`
ss002=`013,025,108,110,ITEMBOX,Svclist,DEFAULT,DEFAULT,1,256,DEFAULT,DEFAULT,DEFAULT`
ss003=`013,015,070,008,STATICTEXT,DEFAULT,"Service List - Service Names",DEFAULT,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ss004=`131,015,056,008,STATICTEXT,DEFAULT,"Service Display Name",DEFAULT,4,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ss005=`131,025,118,012,EDITBOX,svcname,DEFAULT,DEFAULT,5,8,DEFAULT,DEFAULT,DEFAULT`
ss006=`131,045,044,008,STATICTEXT,DEFAULT,"Description",DEFAULT,6,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ss007=`131,055,118,050,MULTILINEBOX,svcdesc,DEFAULT,DEFAULT,7,8,DEFAULT,DEFAULT,DEFAULT`
ss008=`131,111,044,008,STATICTEXT,DEFAULT,"Current Status",DEFAULT,8,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ss009=`131,121,120,012,EDITBOX,svcstatus,DEFAULT,DEFAULT,9,8,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed=Dialog("ss")
;-----------------------------------------------------------------------------------
:alldone
;-----------------------------------------------------------------------------------
:END
exit
Article ID: W16051
File Created: 2004:03:30:15:42:34
Last Updated: 2004:03:30:15:42:34