pop up message. 
Author Message
 pop up message.

Can anyone tell me why this isnt working? i'm trying to get a pop up message
to all my visitiors.
thanks.

Set oNet = CreateObject("Wscript.Network")
CALL LOCATION

Sub LOCATION

 Set usr = GetObject("WinNT://" & strLocalDC & "/" & oNet.UserName &
",User")
 For Each grp In usr.Groups

 If UCASE(grp.Name) = "ALL STAFF NY" AND CLIENTIP = "172.22" then
 CALL SUB1

        ELSEIF UCASE(grp.Name) = "GL ALL STAFF LO" AND CLIENTIP = "172.22"
Then
          CALL SUB2

  End If
 Next
End Sub

Sub SUB1
WSCRIPT.ECHO "TEST"
End Sub

Sub SUB2
Wscript.Echo "TEST2"
End Sub.

Function sGetIP()
  set IPConfigSet =
GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
  ("select IPAddress from Win32_NetworkAdapterConfiguration where
IPEnabled=TRUE")

  FOR EACH IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) then
      For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
  If IPConfig.IPAddress(i) <> "10.0.0.1" AND TRIM(IPConfig.IPAddress(i)) <>
"" then  clientIP = Mid(IPConfig.IPAddress(i), 1, 6)
      Next
    End If
  NEXT
End Function



Sat, 01 May 2004 22:32:29 GMT  
 pop up message.
never mind.
figured it out.


Quote:
> Can anyone tell me why this isnt working? i'm trying to get a pop up
message
> to all my visitiors.
> thanks.

> Set oNet = CreateObject("Wscript.Network")
> CALL LOCATION

> Sub LOCATION

>  Set usr = GetObject("WinNT://" & strLocalDC & "/" & oNet.UserName &
> ",User")
>  For Each grp In usr.Groups

>  If UCASE(grp.Name) = "ALL STAFF NY" AND CLIENTIP = "172.22" then
>  CALL SUB1

>         ELSEIF UCASE(grp.Name) = "GL ALL STAFF LO" AND CLIENTIP = "172.22"
> Then
>           CALL SUB2

>   End If
>  Next
> End Sub

> Sub SUB1
> WSCRIPT.ECHO "TEST"
> End Sub

> Sub SUB2
> Wscript.Echo "TEST2"
> End Sub.

> Function sGetIP()
>   set IPConfigSet =
> GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
>   ("select IPAddress from Win32_NetworkAdapterConfiguration where
> IPEnabled=TRUE")

>   FOR EACH IPConfig in IPConfigSet
>     If Not IsNull(IPConfig.IPAddress) then
>       For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
>   If IPConfig.IPAddress(i) <> "10.0.0.1" AND TRIM(IPConfig.IPAddress(i))
<>
> "" then  clientIP = Mid(IPConfig.IPAddress(i), 1, 6)
>       Next
>     End If
>   NEXT
> End Function



Sun, 02 May 2004 01:18:00 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. downloading file without pop-ups

2. Call another script from Do...Loop and pops-up undesirable message box

3. Console pop up message

4. Send e-mail without Outlook or without pop up messages

5. pop out alert message

6. pop up message

7. Here is a Luv Message Box Pops Up 2x No Buttons

8. pop up message

9. Pop Up Message Boxes

10. pop out alert message

11. Pop Up Windows Popping up Blank

12. UPS shipping com object

 

 
Powered by phpBB® Forum Software