Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > Overige

Nieuwe uitdaging voor een link te openen

lays - 24/10/2004 20:35
Lid		Ik heb hetvolgende probleempje, Ik heb een vbs script dat ik via een html link wil uitvoeren. Nou hebben ze het in windows xp zo beveiligd dat hij altijd vraagt of je dit wilt openen of opslaan. Is er een truucje zodat je dit kunt omzijlen? oftewel dat de link automatisch word geopend? kun je dit in het register aanpassen of kun je dit met een activex of java of javascript doen? Groeten Johan

6 antwoorden

Gesponsorde links

Gerard - 25/10/2004 03:51
Ouwe rakker		Ik hoop dat dit nooit zal kunnen want dan zou het dus betekenen dat iedereen zomaar met 1 muisklik ff een virus zou kunnen installen.

xSc - 25/10/2004 08:16 (laatste wijziging 25/10/2004 08:17)
Onbekend		Dat is met een .js bestand ook zo. Je moet dus niet rechtstreeks linken naar het vbs-stand, maar doe dit eens binnen je html-pagina: <script language="VBScript" src="vbsbestand.vbs"></script>

lays - 25/10/2004 13:39
Lid		<DIV><STRONG><FONT face=Arial>Dedankt voor je post op het forum, maar het werkt nog niet helemaal.</FONT></STRONG></DIV> <DIV><STRONG><FONT face=Arial>Ik krijg de fout Object vereist: Wscript</FONT></STRONG></DIV> <DIV> </DIV> <DIV><FONT face=Arial><STRONG>Ik zal ook even het vbs scipt posten dat ik wil draaien.</STRONG></FONT></DIV> <DIV> </DIV> <DIV><FONT face=Arial size=2>' Shutdown.vbs, Version 1.00<BR>' Shutdown Windows<BR>'<BR>' Adapted from a post by Alex Angelopoulos on <A href="http://www.developersdex.com">www.developersdex.com</A><BR>'<BR>' Written by Rob van der Woude<BR>' <A href="http://www.robvanderwoude.com">http://www.robvanderwoude.com</A></FONT></DIV> <DIV> </DIV> <DIV><FONT face=Arial size=2>' Check command line parameters<BR>Select Case WScript.Arguments.Count<BR> Case 0<BR>  ' Default is local computer if none specified<BR>  strComputer = "."<BR> Case 1<BR>  Select Case WScript.Arguments(0)<BR>   ' "?", "-?" or "/?" invoke online help<BR>   Case "?"<BR>    Syntax<BR>   Case "-?"<BR>    Syntax<BR>   Case "/?"<BR>    Syntax<BR>   Case Else<BR>    strComputer = WScript.Arguments(0)<BR>  End Select<BR> Case Else<BR>  ' More than 1 argument is not allowed<BR>  Syntax<BR>End Select</FONT></DIV> <DIV> </DIV> <DIV><FONT face=Arial size=2>' Connect to computer<BR>Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//" & strComputer & "/root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")</FONT></DIV> <DIV> </DIV> <DIV><FONT face=Arial size=2>' Actual shutdown<BR>for each OpSys in OpSysSet<BR> OpSys.Shutdown()<BR>next</FONT></DIV> <DIV> </DIV> <DIV><FONT face=Arial size=2>' Done<BR>WScript.Quit(0)</FONT></DIV> <DIV> </DIV> <DIV><FONT face=Arial size=2><BR>Sub Syntax<BR>msg = vbCrLf & "Shutdown.vbs,  Version 1.00" & vbCrLf & _<BR>      "Shutdown any WMI enabled computer on the network." & vbCrLf & _<BR>      vbCrLf & "Usage:  CSCRIPT  SHUTDOWN.VBS  [ computer_name ]" & _<BR>      vbCrLf & vbCrLf & _<BR>      "Where:  " & Chr(34) & "computer_name" & Chr(34) & _<BR>      " is the name of the computer to be shut down" & vbCrLf & _<BR>      "        (without leading backslashes)." & vbCrLf & vbCrLf & _<BR>      "        Default is " & Chr(34) & "." & Chr(34) & _<BR>      " (the local computer)." & vbCrLf & vbCrLf & _<BR>      "Note:   This script does NOT powerdown the computer." & _<BR>      vbCrLf & vbCrLf & _<BR>      "Written by Rob van der Woude" & vbCrLf & _<BR>      "<A href="http://www.robvanderwoude.com">http://www.robvanderwoude.com</A>" & vbCrLf & vbCrLf & _<BR>      "Based on a post by Alex Angelopoulos on <A href="http://www.developersdex.com.">www.developersdex.com.</A>"<BR>Wscript.Echo(msg)<BR>Wscript.Quit(1)<BR>End Sub</FONT></DIV> <DIV> </DIV> <DIV><FONT face=Arial><STRONG>Dit script schakelt de pc uit even voor alle duidelijkheid.</STRONG></FONT></DIV> <DIV><FONT face=Arial><STRONG>Is er een manier om dit script toch uit tevoeren of aan te roepen via de website? desnoods moet er eerst de file lokaal worden gezet? Ik heb namelijk een reeks computers die webpagina's laten zien voor de show, maar die wil ik 's avonds uit laten schakelen als ze op de laatste pagina komen. Als ik de file rechtreeks open van de server krijg ik tezien of ik deze wil openen of opslaan, dit wil ik nou net niet hebben maar dat hij hem gewoon opent.</STRONG></FONT></DIV> <DIV><FONT face=Arial><STRONG>Ook weet ik dat dit erg lastig is door beveiling etc maar als ik een porno site bezoek word er zoveel geinstalleerd dan moet ik dat toch ook kunnen lijkt mijn zo, alleen heb ik totaal geen ervaring met visual basic, of andere vormen van bv activex of java.</STRONG></FONT></DIV> <DIV><FONT face=Arial><STRONG>Ik snap ook door beveiliging dat dit niet altijd mogelijk is maar als ik 1x kan kiezen dat dit wel mag draaien vind ik het ook prima.</STRONG></FONT></DIV> <DIV> </DIV> <DIV><FONT face=Arial><STRONG>Alvast bedankt Johan</STRONG></FONT></DIV>

lays - 25/10/2004 13:41
Lid		Nou die laatste post ziet er maar lelijk uit daarom nu maar zonder de mooie html opmaak van outlook! ^^ Dedankt voor je post op het forum, maar het werkt nog niet helemaal. Ik krijg de fout Object vereist: Wscript Ik zal ook even het vbs scipt posten dat ik wil draaien. ' Shutdown.vbs, Version 1.00 ' Shutdown Windows ' ' Adapted from a post by Alex Angelopoulos on www.developersdex.com ' ' Written by Rob van der Woude ' http://www.robvanderwoude.com ' Check command line parameters Select Case WScript.Arguments.Count Case 0 ' Default is local computer if none specified strComputer = "." Case 1 Select Case WScript.Arguments(0) ' "?", "-?" or "/?" invoke online help Case "?" Syntax Case "-?" Syntax Case "/?" Syntax Case Else strComputer = WScript.Arguments(0) End Select Case Else ' More than 1 argument is not allowed Syntax End Select ' Connect to computer Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//" & strComputer & "/root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") ' Actual shutdown for each OpSys in OpSysSet OpSys.Shutdown() next ' Done WScript.Quit(0) Sub Syntax msg = vbCrLf & "Shutdown.vbs, Version 1.00" & vbCrLf & _ "Shutdown any WMI enabled computer on the network." & vbCrLf & _ vbCrLf & "Usage: CSCRIPT SHUTDOWN.VBS [ computer_name ]" & _ vbCrLf & vbCrLf & _ "Where: " & Chr(34) & "computer_name" & Chr(34) & _ " is the name of the computer to be shut down" & vbCrLf & _ " (without leading backslashes)." & vbCrLf & vbCrLf & _ " Default is " & Chr(34) & "." & Chr(34) & _ " (the local computer)." & vbCrLf & vbCrLf & _ "Note: This script does NOT powerdown the computer." & _ vbCrLf & vbCrLf & _ "Written by Rob van der Woude" & vbCrLf & _ "http://www.robvanderwoude.com" & vbCrLf & vbCrLf & _ "Based on a post by Alex Angelopoulos on www.developersdex.com." Wscript.Echo(msg) Wscript.Quit(1) End Sub Dit script schakelt de pc uit even voor alle duidelijkheid. Is er een manier om dit script toch uit tevoeren of aan te roepen via de website? desnoods moet er eerst de file lokaal worden gezet? Ik heb namelijk een reeks computers die webpagina's laten zien voor de show, maar die wil ik 's avonds uit laten schakelen als ze op de laatste pagina komen. Als ik de file rechtreeks open van de server krijg ik tezien of ik deze wil openen of opslaan, dit wil ik nou net niet hebben maar dat hij hem gewoon opent. Ook weet ik dat dit erg lastig is door beveiling etc maar als ik een porno site bezoek word er zoveel geinstalleerd dan moet ik dat toch ook kunnen lijkt mijn zo, alleen heb ik totaal geen ervaring met visual basic, of andere vormen van bv activex of java. Ik snap ook door beveiliging dat dit niet altijd mogelijk is maar als ik 1x kan kiezen dat dit wel mag draaien vind ik het ook prima. Alvast bedankt Johan

xSc - 25/10/2004 14:33
Onbekend		Ik denk niet dat dat zo maar kan.

lays - 26/10/2004 20:10
Lid		Hallo allemaal, Ik heb de oplossing gevonden om een bestand van je locale schijf direct te openen zonder dat windows hierom zeurt. Je moet wel onveilige activex bestanden inschakelen, maar je kunt dit het beste doen door je site toe tevoegen onder vertrouwde sites en deze optie dan inte schakelen. Hier is de code: <script language=VBScript > Set WshShell =CreateObject("WScript.Shell") WshShell.Run ("C:\\shutdown.vbs") Set WsShell = Nothing </script> Ik draai nu een VBS script maar dit kan ook een exe zijn, wat je maar wilt. Johan

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten