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, 3530 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
Findstr Path CMD ja - Batch Script nein - FireFox Profiles (2)

Frage von ChrisIO zum Thema Batch & Shell ...

Peripheriegeräte
PowerChute Business Edition startet das Script nicht (11)

Frage von merome zum Thema Peripheriegeräte ...

Firewall
Pfsense alle aufgerufenen Seite loggen

Frage von bfschmlan zum Thema Firewall ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Firewall
Welche Firewall ? (18)

Frage von Cyberurmel zum Thema Firewall ...

Windows Server
gelöst Einzelnes Windows Update über GPO deinstallieren (16)

Frage von lordofremixes zum Thema Windows Server ...