Source Code - Cut and paste from the Source Code field. Website Information Author Bradley Buskey Email deckyon@gmail.com Website http://scripts.deckyon.com Script Name CheckWks Language WinBatch Purpose Check the availability of a workstation based on whether the script can hit the WMI database. Script requires the use of a text file with workstation IDs listed 1 per line. Creates a text file with the nonresponsive workstations listed. Source Code - Use <CTRL> - <A> to select all and then <CTRL> - <C> to Copy the text. ;============================================================================================ ; TITLE: CheckWks ; DATE: 09/07/2006 ; AUTHOR: Bradley Buskey ; Comments: Check the availability of a workstation based on whether the script can hit the ; WMI database. ; Requires: Script requires the use of a text file with workstation IDs listed 1 per line. ; Results: Creates a text file with the nonresponsive workstations listed. This file is ; overwritten each time the script is launched. It is appened to, as long as the ; script remains open. ; ; Instructions: ; 1. Create a text file (Workstations.txt) with workstation Ids listed 1 per line. ; 2. Launch the script. ; 3. Hit the 'Go' button to start the scan. ; 4. Hit 'Stop' to stop the scanning. ; 5. Hitting 'Go' after 'Stop' restarts the scan from the beginning of the list. ; 6. Hit 'Exit' to halt scanning and exit the script. ; 7. There is a results text file (Results.txt) in the same directory as the script. ;============================================================================================ ;============================================================================================ ; Set up some constants with easier names than numbers = ;============================================================================================ #DefineSubRoutine InitDialogConstants() Section = "Dialog Constants" ;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 MSG_COMEVENT=14 ; COMCONTROL Event notification from DialogObject (NOT DialogProcOptions) DPO_DISABLESTATE=1000 ; codes -1=GetSetting 0=EnableDialog 1=DisableDialog DPO_CHANGEBACKGROUND=1001 ; -1=Get Current otherise bitmap or color string DPO_CHANGESYSMENU=1002 ; -1=Get Current 0=none 1=close 2=close/min 3=close/max 4=close/min/max DPO_CHANGETITLE=1003 ; Set/Get Dialog Title - (-1 to get) ;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 DCSTYLE_NOSELCURLEFT=2048 ; No selection, cursor left EDITBOX MULTILINEBOX DCSTYLE_NOSELCURRIGHT=4096 ; No selection, cursor right EDITBOX MULTILINEBOX ;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 ;DialogObject constants DLGOBJECT_ADDEVENT=1 ; Call dialog callback when the specified event occurs DLGOBJECT_STOPEVENT=2 ; Stop calling dialog callback when an event previously requested with DLGOBJECT_GETOBJECT=3 ; Return an object references to the specified control DLGOBJECT_GETPICTURE=4 ; Create and return an object reference to a picture object ;Return code constants RET_DO_CANCEL=0 ; Cancels dialog RET_DO_DEFAULT= -1 ; Continue with default processing for control RET_DO_NOT_EXIT= -2 ; Do not exit the dialog Return #EndSubRoutine ;============================================================================================ ;============================================================================================ ; This bit of code tests the access to the WMI database on the remote computer = ;============================================================================================ #DefineFunction GetWMI(Blade) Section = "Check WMI" IntControl(73,1,0,0,0) objLocator = ObjectOpen("WbemScripting.SWbemLocator") objwbemServices = objLocator.ConnectServer(Blade,"root/cimv2") If objwbemServices == 0 Then WMIResult = "Dead" Else WMIResult = "Alive" EndIf ObjectClose(objwbemServices) ObjectClose(objLocator) Return WMIResult :WBERRORHANDLER LastError() WMIResult = "Dead" Return WMIResult #EndFunction ;============================================================================================ ;============================================================================================ ; This is the meat of the dialog box code. It also steps through the file of WKIDs = ;============================================================================================ #DefineSubRoutine MyDialogCallbackProc(MyDialog_Handle,MyDialog_Message,MyDialog_ID,MyDialog_EventInfo,rsvd) Section = "Dialog Handler" IntControl(73,1,0,0,0) InitDialogConstants() Switch MyDialog_Message Case MSG_INIT DialogProcOptions(MyDialog_Handle,MSG_BUTTONPUSHED,@TRUE) Return(RET_DO_DEFAULT) Case MSG_TIMER i = i + 1 strComputer = "" If i <= NumBlades strComputer = ItemExtract(i,BladeList,@TAB) DialogControlSet(MyDialog_Handle,006,DC_TITLE,StrCat("Checking ",strComputer," WMI connectivity...")) Result = GetWMI(strComputer) If Result == "Dead" then Response = "%strComputer% is not responding!" ResComp = StrCat(ResComp,@CRLF,strComputer) DialogControlSet(MyDialog_Handle,003,DC_BACKGROUNDCOLOR,"255|225|225") DialogControlSet(MyDialog_Handle, 005, DC_EDITBOX, ResComp) DialogControlSet(MyDialog_Handle,003,DC_TITLE,Response) FileWrite(BHandle,StrCat(@TAB,strComputer)) Else Response = "No problems with %strComputer%" DialogControlSet(MyDialog_Handle,003,DC_BACKGROUNDCOLOR,"225|255|225") DialogControlSet(MyDialog_Handle,003,DC_TITLE,Response) EndIf EndIf Return(RET_DO_NOT_EXIT) Case MSG_BUTTONPUSHED Switch MyDialog_ID Case 001 ; Go - Enable Timer Procedure i = 0 DialogProcOptions(MyDialog_Handle,MSG_TIMER,500) Return(RET_DO_NOT_EXIT) Case 002 ; Stop - Disable Timer Procedure DialogProcOptions(MyDialog_Handle,DPO_CHANGETITLE,"*** Connectivity Checking Suspended ***") DialogProcOptions(MyDialog_Handle,MSG_TIMER,0) DialogControlSet(MyDialog_Handle,003,DC_BACKGROUNDCOLOR,"200|200|200") FileWrite(BHandle,"") FileWrite(BHandle," *** Checking Stopped By User. ***") FileWrite(BHandle,"") Return(RET_DO_NOT_EXIT) Case 004 ; Exit FileWrite(BHandle,"| |") FileWrite(BHandle,"+---------------------------------------+") FileClose(BHandle) Return(RET_DO_CANCEL) EndSwitch Return(RET_DO_DEFAULT) EndSwitch Return(RET_DO_DEFAULT) :WBERRORHANDLER ErrMes1 = LastError() ErrMes2 = wberrorhandlerline ErrMes3 = wberrorhandleroffset ErrMes4 = IntControl(34,ErrMes1,0,0,0) ErrData = StrCat("Blade: ",strComputer,@CRLF) ErrData = StrCat(ErrData,"Section: ",Section,@CRLF) ErrData = StrCat(ErrData,"Error: ",ErrMes1,@CRLF) ErrData = StrCat(ErrData,"String: ",ErrMes4,@CRLF) ErrData = StrCat(ErrData,"Line: ",ErrMes2,@CRLF) ErrData = StrCat(ErrData,"Offset: ",ErrMes3) Message("The following error occurred",ErrData) Exit #EndSubRoutine ;============================================================================================ ;============================================================================================ ; This is the initialization part of the script, declaring variables and lists = ;============================================================================================ :MainCode Section = "Initialization of Script" IntControl(73,1,0,0,0) Blades = "Workstations.txt" ResFile = "Results.txt" Section = "Get Date" ResComp = "" i = 0 Section = "Read in workstation list" BladeList = FileGet(Blades,@TAB) BladeList = StrTrim(StrReplace(BladeList,@CRLF,@TAB)) NumBlades = ItemCount(BladeList,@TAB) Section = "Get current Time and Date" TheDate = TimeYmdHms() ; Get the Date (YY:mm:dd:HH:mm:ss) DAT1 = ItemExtract(1,TheDate,":") ; Year DAT2 = ItemExtract(2,TheDate,":") ; Month DAT3 = ItemExtract(3,TheDate,":") ; Day DAT4 = ItemExtract(4,TheDate,":") ; Hours (24) DAT5 = ItemExtract(5,TheDate,":") ; Minutes DAT6 = ItemExtract(6,TheDate,":") ; Seconds LogDate = StrCat(DAT2,"/",DAT3,"/",DAT1) ; Format the date (mm/dd/YY) LogTime = StrCat(DAT4,":",DAT5,":",DAT6) ; Format the time (HH:mm:ss) Section = "Setup the File Header" If FileExist(ResFile) Then FileDelete(ResFile) BHandle = FileOpen(ResFile,"APPEND") FileSetup = StrCat("+---------------------------------------+") FileSetup = StrCat(FileSetup,@CRLF,"| Run Date: ",LogDate) FileSetup = StrCat(FileSetup,@CRLF,"| Run Time: ",LogTime) FileSetup = StrCat(FileSetup,@CRLF,"+---------------------------------------+") FileSetup = StrCat(FileSetup,@CRLF,"Please reboot the following workstations:") FileSetup = StrCat(FileSetup,@CRLF,"+---------------------------------------+") FileWrite(BHandle,FileSetup) ;============================================================================================ ;============================================================================================ ; This is the actual dialob box code - no need to change this part = ;============================================================================================ :MainDialog Section = "MainDialog" MyDialogFormat=`WWWDLGED,6.1` MyDialogCaption=`Checking Blade Connectivity` MyDialogX=409 MyDialogY=401 MyDialogWidth=232 MyDialogHeight=083 MyDialogNumControls=008 MyDialogProcedure=`MyDialogCallbackProc` MyDialogFont=`DEFAULT` MyDialogTextColor=`DEFAULT` MyDialogBackground=`DEFAULT,DEFAULT` MyDialogConfig=0 MyDialog001=`013,051,036,010,PUSHBUTTON,DEFAULT,"&Go",1,1,32,DEFAULT,DEFAULT,DEFAULT` MyDialog002=`051,051,036,010,PUSHBUTTON,DEFAULT,"&Stop",2,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT` MyDialog003=`003,019,134,012,VARYTEXT,ChkRES,DEFAULT,DEFAULT,3,512,"Comic Sans MS|8192|40|66","0|0|0","200|200|200"` MyDialog004=`089,051,036,010,PUSHBUTTON,DEFAULT,"E&xit",0,4,DEFAULT,DEFAULT,DEFAULT,DEFAULT` MyDialog005=`139,011,086,066,MULTILINEBOX,Deadlist,DEFAULT,DEFAULT,5,DEFAULT,DEFAULT,DEFAULT,DEFAULT` MyDialog006=`003,011,134,008,VARYTEXT,ChkStatus,DEFAULT,DEFAULT,6,512,"Comic Sans MS|5632|40|66","0|0|0","200|200|200"` MyDialog007=`003,067,132,008,STATICTEXT,DEFAULT,"© Bradley Buskey, Humana Inc.",DEFAULT,7,512,"Georgia|5632|140|18","0|0|0","225|225|225"` MyDialog008=`139,003,086,008,STATICTEXT,DEFAULT,"Reboot List",DEFAULT,8,512,"Comic Sans MS|5632|70|66","128|0|0","225|225|225"` ButtonPushed=Dialog("MyDialog") ;============================================================================================ ;============================================================================================ ; Winbatch Error Handler = ;============================================================================================ :WBERRORHANDLER ErrMes1 = LastError() ErrMes2 = wberrorhandlerline ErrMes3 = wberrorhandleroffset ErrMes4 = IntControl(34,ErrMes1,0,0,0) ErrData = StrCat("Section: ",Section,@CRLF) ErrData = StrCat(ErrData,"Error: ",ErrMes1,@CRLF) ErrData = StrCat(ErrData,"String: ",ErrMes4,@CRLF) ErrData = StrCat(ErrData,"Line: ",ErrMes2,@CRLF) ErrData = StrCat(ErrData,"Offset: ",ErrMes3) Message("The following error occurred",ErrData) Exit ;============================================================================================

Deckyon's Script Center - Select a script to see the source code and purpose. View Script Name Language Author Email Website SysInfo VBS Bradley Buskey GroupMembers VBS Bradley Buskey UserInfo VBS Bradley Buskey WB Emailer WinBatch Bradley Buskey GeoConvert WinBatch Bradley Buskey CheckWks WinBatch Bradley Buskey Template - View PHP/HTML Bradley Buskey Template - Admin PHP/HTML Bradley Buskey Template - DB Functions PHP Bradley Buskey Template - Table SQL Bradley Buskey Rollover Javascript Bradley Buskey Restore Desktop VBS Bradley Buskey User Backup VBS Bradley Buskey Printer Map VBS Bradley Buskey Ghost Server VBS Bradley Buskey Profile Remover VBS Bradley Buskey