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, 3527 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
Internet
Interessante Erkenntnisse: Zur dunklen Seite der Macht

Link von Skully zum Thema Internet ...

Windows Systemdateien
Windows 7 und 10 herunterfahren Knopf mit Script belegen (21)

Frage von c-o-o-p-e-r92 zum Thema Windows Systemdateien ...

Backup
gelöst Backup-Script erweitern mit automatischer bereinigung (6)

Frage von DarkHercules zum Thema Backup ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (34)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (15)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

RedHat, CentOS, Fedora
Fedora, RedHat, Centos: DNS-Search Domain setzen (13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Backup
Backup Wochen- Monats- Jahressicherung (13)

Frage von Meterpeter zum Thema Backup ...