Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

Automatisch opstarten programma's na LAN verbinding

Pagina: 1
Acties:

  • mvdzee
  • Registratie: September 2006
  • Laatst online: 30-09-2024
Vanwege de aanschaf van een Asus EeePC ben ik mij de laatste tijd wat aan het verdiepen in Linux. Daar kwam ik één optie (tweak) tegen waarvan ik mij afvraag of die ook in Windows (XP / Vista) is na te bootsen.

Het gaat om de mogelijkheid om aan te gaven dat bepaalde programma's pas mogen opstarten nadat er een LAN verbinding is. Dit is met name handig op laptops. Dan kan je instellen dat bijvoorbeeld Skype, MSN en andere programma's die je alleen kunt gebruiken via een LAN pas starten als er netwerkverbinding is.

Weet iemand of en hoe je dit zou kunnen doen onder XP en Vista?

  • JohnD
  • Registratie: December 2001
  • Laatst online: 30-11 20:30

JohnD

Bernd

je kan er een .vbs voor kunnen maken die om de zoveel tijd door de taskmanager gestart wordt.

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
strServer = "192.168.0.1" 'Ip van gateway

'******************************************************************************
Set objNetwork = CreateObject("WScript.Network")
strPingStatus = PingStatus(strServer)
If strPingStatus = "Success" Then
  Call uitvoeren
End If

'******************************************************************************

Function PingStatus(strServer)

    On Error Resume Next
    strWorkstation = "."
    Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strWorkstation & "\root\cimv2")
    Set colPings = objWMIService.ExecQuery _
      ("SELECT * FROM Win32_PingStatus WHERE Address = '" & strServer & "'")
    For Each objPing in colPings
        Select Case objPing.StatusCode
            Case 0 PingStatus = "Success"
            Case Else PingStatus = "Status code " & objPing.StatusCode & _
               " - Unable to determine cause of failure."
        End Select
    Next

End Function
'******************************************************************************
Sub uitvoeren
  Set objShell = CreateObject("WScript.Shell")
  objShell.Run "notepad"
End Sub

'******************************************************************************


Overigens heb ik het grootste gedeelte van dit script gejat van een modje hier. Volgens mij van spider alt-92 maar dat weet ik niet meer zeker. Is oorspronkelijk een script om te bepalen of mijn laptop aan het netwerk hangt bij opstarten en vervolgens een aantal network mappings maakt.

[ Voor 0% gewijzigd door JohnD op 06-08-2008 11:10 . Reden: :P ]

Fear thy name as hell awakens
FKA SunStorms_Sletje


  • alt-92
  • Registratie: Maart 2000
  • Niet online

alt-92

ye olde farte

offtopic:
Ik herken mijn code anders zo ook wel hoor ;)

[ Voor 8% gewijzigd door alt-92 op 06-08-2008 11:25 ]

ik heb een 864 GB floppydrive! - certified prutser - the social skills of a thermonuclear device


  • mvdzee
  • Registratie: September 2006
  • Laatst online: 30-09-2024
Dit is weliswaar een goed idee, maar wat ik mooi vind van die Linux oplossing is dat het werkt als er een willekeurige netwerk connectie met een willekeurig netwerk is. Dus niet alleen op één bekend netwerk, zoals in dit script.
Automatisch bepaalde programma's starten wanneer je een willkeurige internetverbinding hebt, is handig handig als je met veel op weg bent met je laptop en via diverse (openbare) accesspoints verbinding maakt met het internet.
Ik zal een kijken of ik dit script kan aanpassen om zo te werken.

  • mvdzee
  • Registratie: September 2006
  • Laatst online: 30-09-2024
Wel jammer dat je dit scriptje steeds via Taskmanager opnieuw moet starten. Wat ik zo mooi vindt bij Linux is dat er echt iets is als "onlanstart" (niet de echte naam) waardoor er niet steeds gepolled hoeft te worden.
Misschien een idee voor Microsoft om in toekomste versies van hun OS-en de functies "onlanconnection" en "onwebconnection" in te bouwen? :P

  • alt-92
  • Registratie: Maart 2000
  • Niet online

alt-92

ye olde farte

Dat zit er in sinds Vista, en heet Task Scheduler v.2.
Dat linux nerds dat niet kunnen vinden kan ik ook niet helpen :P ;)

ik heb een 864 GB floppydrive! - certified prutser - the social skills of a thermonuclear device


  • mvdzee
  • Registratie: September 2006
  • Laatst online: 30-09-2024
Hoe werkt dat dan onder Task Scheduler in Vista? Ik kan nergens iets vinden over "onwebconnction" of iets dergelijks.

BTW ik ben sinds 1987 DOS/Windows gebruiker en sinds een paar dagen een Linux newby.

  • alt-92
  • Registratie: Maart 2000
  • Niet online

alt-92

ye olde farte

mvdzee schreef op woensdag 06 augustus 2008 @ 14:10:
Hoe werkt dat dan onder Task Scheduler in Vista? Ik kan nergens iets vinden over "onwebconnction" of iets dergelijks.
Je kan op basis van Event-triggers in je eventlog werken.
En aangezien het aanzetten van een wireless nic en het verkrijgen van een IP adres ook een eventID aanmaakt heb je daar dus je trigger al ;)

ik heb een 864 GB floppydrive! - certified prutser - the social skills of a thermonuclear device

Pagina: 1