Kind of Simple but it works great
Paste into ASP Page:
<%
td = now()
select case month(td)
Case 1
md ="January"
Case 2
md ="February"
Case 3
md ="March"
Case 4
md ="April"
Case 5
md ="May"
Case 6
md ="June"
Case...
i use this as a vbs file works like a champ:
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005
On Error Resume Next
'===================
'| Create IE Object...
I have a script which monitors the free disk space on all my w2k servers and outputs the data to my sql server. I currently have it set up on a schedule. However I would also like to start the script server side from a web page any ideas.
As always here is my code use it freely.
Dim strStatus...
My script just exits and never continues on. If i remove the do while from the function it works fine.... here is the full script:
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const...
Why can't I run a do while statement from within a function?
Example:
Function pse()
objExplorer.Document.Body.All.IPAddress.setfocus
Do While objExplorer.Document.Body.All.scan.value = "Scan"
wscript.sleep 1000
Loop
End Function
Any one have any ideas on how to identify reliably which microsoft patches are installed. I am using the following code but have found it unreliable.
Dim objWMIService, objSystem
IPaddress = inputbox("Enter IPAddress")
Call pingcheck(ipaddress)
Function pingcheck(IPAddress)
Set...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.