Search results for query: *

Just to add to markdmac's code: Randomize MyNumber = Int(rnd() * 1000000 + 1) Because we're using the int() function you will only get a number between 0 and 999,999.

http://home.att.net/~wshvbs/wshLtWtNonModalDialogObj.htm I use the above for progress bars.

I've noticed a huge increase in these gibberish spam emails coming into our organisation, too. Most of them are regular spam with a heap of random words littered throughout the email. It's my theory that this is the spammer's attempts to render anything that uses a Bayesian spam filter...

I wrestled with this. Eventually, I found this worked: <% Set grp = GetObject(&quot;WinNT://DOMAIN/DomainGroup&quot;) For each usr in grp.Members Response.Write usr.Name Next %> I needed the page to display things dynamically, depending on whether or not a person was a member of a group...

Treat any vbscript as you would any other executable program. If you didn't ask for it, don't run it.

Does anyone know how to append an email disclaimer to outgoing emails? I know it can be done with exchange 5.5 by simply adding a registry entry (doesn't work for 2000 as far as I can tell). I don't particluarly want to spend $000's just for a utility that does it. We are using Outlook as our...

I replaced: With newMessage .Subject =&quot;TEST Transmittal&quot; & rundate & &quot; Exception report also&quot; .Body = myBody .Recipients.Add(&quot;XXXX@XXXX.com&quot;).Type = olTo .Send End With with: With newMessage .Subject =&quot;TEST Transmittal&quot; & rundate & &quot; Exception...

goto http://www.donia.com/products.htm#DSPingPro Download, install, and read the instructions on how to use it in vbscript. No need for batch files. Easy to code.

set IPConfigSet = GetObject(&quot;winmgmts:{impersonationLevel=impersonate}&quot;).ExecQuery _ (&quot;select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE&quot;) for each IPConfig in IPConfigSet if Not IsNull(IPConfig.IPAddress) then for...