Database Search

TechHome

• Assign IP Address Subnet Mask and DNS to a Network Card Adaptor
• Check for Server Connectivity
• Find Computer Running a Particular Service
• Get all of the users in a group on the domain
• Logging NT login
• Move Computer to a Workgroup from a Domain Member
• Save Restore Network Configuration
• System Information Reports Menu

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Check for Server Connectivity

AddExtender("wwint44i.dll")    ;<- Need to install WinInet extender

SERVER="www.winbatch.com"
BoxTitle("Ping --")
BoxText("Ping Status Initializing")
goodstat=0
badstat=0
totalstat=0

IntControl(12,1,0,0,0)  ; allow windows to be exited gracefully
While @TRUE
     p=iPing(SERVER,5)
     totalstat=totalstat+1
     If p==@FALSE
          Display(5,"Alert - Could not ping",SERVER)
          badstat=badstat+1
          BoxTitle(StrCat("Ping Failed ",totalstat))
     Else
          TimeDelay(10)   ; 10 seconds
          goodstat=goodstat+1
          BoxTitle(StrCat("Ping OK ",totalstat))
     EndIf
     BoxText(StrCat("Bad=",badstat,@CRLF,"Good=",goodstat,@CRLF,"Total=",totalstat))
EndWhile

Article ID:   W17253

File Created: 2007:07:03:14:29:02

Last Updated: 2007:07:03:14:29:02