Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Virtual Basic Script in ASPX-Seite einfügen

Mitglied: manuelmoser

manuelmoser (Level 1) - Jetzt verbinden

03.07.2007 um 11:45 Uhr, 3547 Aufrufe

Hallo Leute!

Hab hier einen VB Code und würde dieses gerne in eine ASPX-Seite einfügen!
Nur bin ich auf dem Gebiet noch Neuling und hoff das ihr mir helfen könnt!

01.
Set objArgs = WScript.Arguments 
02.
 
03.
 
04.
For Each arg in objArgs 
05.
	counter = counter + 1 
06.
	 
07.
	if (counter >= 2) then  
08.
		fullname = fullname & " " & arg 
09.
	elseif (counter = 1) then  
10.
		fullname = arg 
11.
	else 
12.
		'fullname = fullname & arg 
13.
	end if 
14.
 
15.
Next 
16.
	 
17.
 
18.
	REM Set sh = Wscript.CreateObject("Wscript.Shell") 
19.
	REM Set env = sh.Environment("PROCESS") 
20.
	REM command = env("ProgramFiles") & "\_guglerparameter.vbs 2 " & objArgs(0) 
21.
	REM sh.Run command , 0, False 
22.
 
23.
	Set sh = Wscript.CreateObject("Wscript.Shell") 
24.
	 
25.
	'fullname = replace(fullname, " ","%20", 1, -1, 1) 
26.
	fullname = URLEncode(fullname) 
27.
	sh.Run "cmd.exe /C start iexplore.exe http://www.google.at/search?q=" & fullname, 0, True 
28.
 
29.
 
30.
Set Sh = Nothing 
31.
Set env = Nothing 
32.
 
33.
Function URLEncode(sRawURL )  
34.
'    On Error Goto Catch 
35.
    Dim iLoop  
36.
    Dim sRtn  
37.
    Dim sTmp  
38.
    Const sValidChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz:/.?=_-$(){}~&" 
39.
 
40.
 
41.
    If Len(sRawURL) > 0 Then 
42.
        ' Loop through each char 
43.
 
44.
 
45.
        For iLoop = 1 To Len(sRawURL) 
46.
            sTmp = Mid(sRawURL, iLoop, 1) 
47.
 
48.
 
49.
            If InStr(1, sValidChars, sTmp, vbBinaryCompare) = 0 Then 
50.
                ' If not ValidChar, convert to HEX and p 
51.
                '     refix with % 
52.
                sTmp = Hex(Asc(sTmp)) 
53.
 
54.
 
55.
                If sTmp = "20" Then 
56.
                    sTmp = "+" 
57.
                ElseIf Len(sTmp) = 1 Then 
58.
                    sTmp = "%0" & sTmp 
59.
                Else 
60.
                    sTmp = "%" & sTmp 
61.
                End If 
62.
            End If 
63.
            sRtn = sRtn & sTmp 
64.
        Next  
65.
        URLEncode = sRtn 
66.
    End If 
67.
 
68.
End Function 
69.
 
70.
function getemail() 
71.
	on error resume next 
72.
	Set objUser = CreateObject("ADSystemInfo") 
73.
	Set CurrentUser = GetObject("LDAP://" & objUser.UserName) 
74.
	getemail = CurrentUser.mail 									'Abfrage der eigenen E-Mail Adresse aus Exchange-Server 
75.
	Set objUser = Nothing 
76.
	Set CurrentUser = Nothing 
77.
end function
danke!
lg
Ähnliche Inhalte
Visual Studio
Frage zu Virtual Basic
gelöst Frage von zRobinVisual Studio4 Kommentare

Hey! Ich arbeite seit 2 Tagen mit Virtual Basic. Arbeite gerade an "Cake Clicker", einem "Cookie Clicker" Klon. Jetzt ...

VB for Applications

Virtual Basic Wert in eine Zelle eintragen

gelöst Frage von TermimanVB for Applications2 Kommentare

Hallo liebe Leute, ich stehe vor einer kleinen Hürde bei VB für Excel. Und zwar möchte ich gerne in ...

Visual Studio

CSharp ASPX Daten vom cs 2 aspx

Frage von it4baerVisual Studio3 Kommentare

Hi, ich bin gerade am "Einarbeiten" in die ASP.NET Webforms. Hier suche ich nach einer Möglichkeit Daten "Dynamisch" zu ...

Batch & Shell

Mit einem Shell Script Virtual Hosts erstellen

gelöst Frage von windelterroristBatch & Shell2 Kommentare

Hallo! Ich bin gerade dabei, mit einem Shell Script einen Virtual Host zu erstellen Wie Wo Was ich bearbeiten ...

Neue Wissensbeiträge
Sicherheit

Zero Day-Schwachstelle im Internet Explorer - wird von APT bereits ausgenutzt

Information von kgborn vor 7 StundenSicherheit

Im Kernel des Internet Explorer scheint es eine Zero Day-Lücke zu geben, die von staatlichen Akteuren (APT) im Rahmen ...

Microsoft
Folder Security Viewer-Lizenzen zu gewinnen
Information von kgborn vor 7 StundenMicrosoft

Ich nehme das Thema mal in Absprache mit Frank hier auf, da es für den einen oder anderen Administrator ...

Hardware

Feueralarm killt Festplatten in Rechenzentrum - führt zu größerem Ausfall

Information von kgborn vor 7 StundenHardware10 Kommentare

Noch ein kleiner Beitrag für Administratoren, die in Rechenzentren aktiv sind - so als Fingerzeig. Denn es gibt Szenarien, ...

MikroTik RouterOS

Mikrotik Advisory: Vulnerability exploiting the Winbox port

Information von colinardo vor 7 StundenMikroTik RouterOS

Brand aktuell: Eine Schwachstelle im Winbox-Port bei Mikrotik Routern erlaubt das Auslesen der User-Datenbank der Router. Patch ist aktuell ...

Heiß diskutierte Inhalte
Linux
Linux Server oder Windows Server - lohnt eine Umstellung auf Linux und ebenso basierende SW bei einer langfristigen Planung?
Frage von motus5Linux23 Kommentare

Wir brauchen bei uns einen neuen Server. Dieser wird als Fileserver, Domäne Controller sowie Exchange Server verwendet. Wir versuchen ...

DSL, VDSL
ISP Wechsel auf Vodefone Koax, Gebäudeverkabelung nur per Cat 7
gelöst Frage von wusa88DSL, VDSL16 Kommentare

Hallo Zusammen, ich bin momentan bei Mnet als Glasfaser Kunde und möchte Preis/Leistungs-Technisch zu Kabel Deutschland / Vodafone wechseln. ...

Windows Server
Domänencontroller trennen
Frage von Akit57Windows Server13 Kommentare

Hallo, ich hoffe das mir hier jemand meine Frage trotz der spärlichen Informationen die ich geben kann beantworten kann: ...

Router & Routing
Gesichertes NTP, wie z.B. NTPsec oder andere Variante bei Fritzboxen möglich ?
Frage von BruniumRouter & Routing11 Kommentare

Aktueller Zustand: Verwendung von ungesicherten NTP mit Fritzbox Gewünschter Zustand: Verwendung von gesicherten NTP mit Fritzbox Frage: Was gibt ...