Visual Basic

Dim WshShell, PingResult, Target, PCName
Set WshShell = Wscript.CreateObject("Wscript.Shell")
 
PCName = InputBox ("User I Number","Users I number","Btest")
drivelist = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
DriveArray=Split(drivelist,",")
For I = 0 To UBound(DriveArray)
    Target = PCName & DriveArray(I)
    PingResult = WshShell.Run ("cmd /c ping -n 1 " & Target , 6, True)
    Select Case PingResult
        Case 0:
            WScript.Echo "SUCCESS - " & Target
        Case 1:
            WScript.Echo "FAILURE - " & Target & "<<<"
    End Select
Next

C:\Documents and Settings\[userid]\Desktop>CSCRIPT PINGTEST.VBS

.
.
.
For I = 0 To UBound(DriveArray) 
    Target = PCName & DriveArray(I) 
    PingResult = WshShell.Run ("cmd /c ping -n 1 " & Target , 6, True) 
    Select Case PingResult 
        Case 0: WScript.Echo "SUCCESS - " & Target 
                mbResult = MsgBox("Do you want to continue?", vbQuestion + vbYesNo)
                If mbResult = vbNo Then
                    Exit For
                End If
    End Select
Next

<br />
Public Declare Function SetPixel Lib "gdi32" Alias "SetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long<br />
<br />
Public Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long<br />

Dim startInfo As New ProcessStartInfo("IExplore.exe")
startInfo.WindowStyle = ProcessWindowStyle.Minimized
startInfo.Arguments = "www.northwindtraders.com"
Process.Start(startInfo)

<br />
Shell "cmd", 1 <br />
SendKeys "dir c:\ *.txt" + Chr(13), True<br />