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, 3528 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
Batch & Shell
PowerShell-Script zum Prüfen ob Datei(en) existieren (2)

Frage von Bonsai0815 zum Thema Batch & Shell ...

Linux Tools
CentOS 7 Script beim Start und Shutdown (7)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Linux Tools ...

Batch & Shell
gelöst FTP und bach script I Problem von nicht komplett geladener Files (9)

Frage von drscoop zum Thema Batch & Shell ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (38)

Frage von sabines zum Thema Internet ...

Netzwerke
Wie erstelle ich ein Intranet (19)

Frage von Leonardnet zum Thema Netzwerke ...

LAN, WAN, Wireless
gelöst Eintägige Netzwerkunterbrechung trotz Backupleitung (15)

Frage von iAmbricksta zum Thema LAN, WAN, Wireless ...

Netzwerke
VPN-Server einrichten PPTPD-Einrichtung gescheitert (15)

Frage von MIlexx zum Thema Netzwerke ...