Code: |
Dim oFSO, oFile Set oFSO = WScript.CreateObject("Scripting.FileSystemObject") If Not oFSO.FileExists("YourFileName") Then ' Create some text to insert into a HTML or text file Else ' Do nothing End If Set oFSO = Nothing |
Code: |
Dim oFSO, oFile Dim wshshell Set wshshell=createobject("wscript.shell") Set oFSO = WScript.CreateObject("Scripting.FileSystemObject") If Not oFSO.FileExists("YourFileName") Then wshshell.run ("net send username One of your files has gone missing") Else ' Do nothing End If Set oFSO = Nothing |
Code: |
Dim ie Set ie = CreateObject("InternetExplorer.Application") ie.navigate "http://www.website.com" ie.visible=1 |
output generated using printer-friendly topic mod, All times are GMT + 2 Hours