VbsEdit, the award-winning VBScript editor that dramatically reduces the time you spend writing .VBS scripts

Sample scripts


Computer Hardware
   Monitoring
       Verify Computer Availability , WMI

' Verify Computer Availability


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPingedComputers = objWMIService.ExecQuery _
    ("Select * from Win32_PingStatus Where Address = '192.168.1.37'")

For Each objComputer in colPingedComputers
    If objComputer.StatusCode = 0 Then
        Wscript.Echo "Remote computer responded."
    Else
        Wscript.Echo "Remote computer did not respond."
   End If
Next



VbsEdit includes all these samples!



Download now! (32-bit version)
version 4.0   -   The evaluation version never expires

Download 64-bit version



Home   Buy Now   HtaEdit   Support   Video   What's new ?   Awards

Copyright (C) 2001-2010 Adersoft