1
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Set objWSHShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
MyDir = "C:\MyVariableDirectory\"
If objFSO.FileExists(MyDir & "MySleep.vbs") Then MyFileExists = True Else MyFileExists = False
If MyFileExists = False Then
Set HalXBrain = CreateObject("UltraHalAsst.Brain")
HalXBrain.AppendFile(MyDir & "MySleep.vbs"), "WScript.sleep 1000"
Do Until objFSO.FileExists(MyDir & "MySleep.vbs") : Loop
End If
objWSHShell.Run """" & MyDir & "MySleep.vbs" & """", ,true