Hi all,
i have the following sub in a hta :
strgroup = Groups.Value
strText = serverTextArea.Value
arrLines = Split(strText, vbCrLf)
For Each strserver in arrLines
If strserver = <> Then
strPingStatus = PingStatus(strserver)
If strPingStatus = "Success" Then
checkshare strserver, strgroup
Else
MsgBox " server: " & strserver & " is not online or does not exist, rerun script with the correct servername script will continu with next server"
On Error Resume Next
end If
End If
next
What i can't get working is then the strserver has no value that it display's a messagebox that everthing is finished
if i add the following line it's not working
if strserver = "" then msgbox finsished" any one an idea ?
thx
i have the following sub in a hta :
strgroup = Groups.Value
strText = serverTextArea.Value
arrLines = Split(strText, vbCrLf)
For Each strserver in arrLines
If strserver = <> Then
strPingStatus = PingStatus(strserver)
If strPingStatus = "Success" Then
checkshare strserver, strgroup
Else
MsgBox " server: " & strserver & " is not online or does not exist, rerun script with the correct servername script will continu with next server"
On Error Resume Next
end If
End If
next
What i can't get working is then the strserver has no value that it display's a messagebox that everthing is finished
if i add the following line it's not working
if strserver = "" then msgbox finsished" any one an idea ?
thx