| |
gdewrance
Posts: 587
Score: 3
Joined: 3/16/2006
Status: offline
|
Hope this helps. This will even allow you to run it on specific days. '1 =Sunday, 2=Mon, 3=Tues, 4=Wed, 5=Thurs, 6=Fri, 7=Sat On Error Resume Next Dim WshNetwork, WshShell, objFSO Set WshNetwork = CreateObject("Wscript.Network") Set WshShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") strDay = 2 'default for unknown configured user Select Case LCase(strUserName) Case "bfrank", "alan", "steve" strDay = 4 Case "judy", "sophie", "laura" strDay = 5 End Select If CStr(strDay) = CStr(Weekday(Now())) Then now run your program End If
< Message edited by gdewrance -- 5/29/2006 7:10:08 PM >
|
|