Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung VB for Applications

Mitglied: manuelmoser

manuelmoser (Level 1) - Jetzt verbinden

03.07.2007 um 11:45 Uhr, 3524 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
Neuester Wissensbeitrag
Windows Update

Windows Update-Suche nach Win7 Neuinstallation wieder schneller

(1)

Erfahrungsbericht von the-buccaneer zum Thema Windows Update ...

Ähnliche Inhalte
Windows Server
gelöst Login Script nach der Anmeldung Zeitverzögert ausführen (4)

Frage von Intruder0001 zum Thema Windows Server ...

PHP
Ein Script, verschiedene Intervalle für Cronjob (5)

Frage von tsunami zum Thema PHP ...

Batch & Shell
Batch bestimme Zeile einer vorherigen batch einfügen (9)

Frage von Frensche zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Exchange Server
Bestehende eMails autoamatisch weiterleiten (21)

Frage von metal-shot zum Thema Exchange Server ...

Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (21)

Frage von Winuser zum Thema Hyper-V ...

SAN, NAS, DAS
gelöst Synology Version 6.1 Probleme (18)

Frage von Hendrik2586 zum Thema SAN, NAS, DAS ...

Router & Routing
gelöst IP Kamera für drei unabhängige Netzwerke (16)

Frage von ProfessorZ zum Thema Router & Routing ...