Sign in to follow this  
Followers 0
ghetek

Network Safe

1 post in this topic

Programs like filemaker 7 will not run if another computer on the network has the same license... hmmm maybe i should make the 15 second wait in an ini file... ok i will update today when i get home.

works on windows 2000/xp

64bit edition will be done in a few days

just make the first parameter the executable.

IMPORTANT!!!

you need to have devcon in the same directory for now.

you can get devcon Here

If $cmdline[0]=0 then
msgbox(0,"ERROR","Incorrect parameters")
exit
endif
ProgressOn ("Progress","Network Safe","Disabling Network Devices",-1,-1,1)
Runwait(@comspec & " /c " & '"' & @ScriptDir & '\devcon.exe" disable =net *pci*',"",@SW_HIDE)
ProgressSet (25, "Starting application", "Network Safe")
Run('"' & $Cmdline[1] & '"',"")
ProgressSet (50, "Waiting for application", "Network Safe")
sleep(15000)
ProgressSet (75, "Enabling network devices", "Network Safe")
Runwait(@comspec & " /c " & '"' & @ScriptDir & '\devcon.exe" enable =net *pci*',"",@SW_HIDE)
ProgressSet (100, "Reconecting to network", "Network Safe")
Do
$i=runwait(@comspec & " /c " & "ping yahoo.com","",@SW_HIDE)
until $i=0
ProgressSet (100, "Network connection established", "Network Safe")
sleep(3000)
ProgressOff ()

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0