Notifikationer

Markér alle som læst Log ud

webot Nybegynder

30. maj 2001 - 11:32 Der er 58 kommentarer og
1 løsning

Server status

Hi

Nogle der har nogle links om hvordan man laver en side med server status...??

Altså man kan se om pop3, mysql osv. og ping osv..

Synes godt om

thaufer Nybegynder

30. maj 2001 - 11:36 #1

taler du om databasestyrede - dynamiske - websites

Synes godt om

keysersoze Ekspert

30. maj 2001 - 11:39 #2

en lang en - men måske noget a la det du søger...

%
\'*
\'* Sprog: VBScript
\'*
\'* Nedenstående rutiner kan bruges til at få overblik over serverens status.
\'* Dette er specielt godt, hvis man kører ASP på et Web-Hotel - fordi man ikke
\'* altid selv er herre over hvilke komponent- og softwareversioner der installeres.

\'Konstanter til at styre tabel layout
Public Const TAB_TABLE = \"<TABLE BORDER=0 CELLPADDING=3 CELLSPACING=1 BGCOLOR=\"\"#66AAFF\"\">\"
Public Const TAB_TR = \"<TR>\"
Public Const TAB_FONT = \"\"
Public Const TAB_TD = \"<TD BGCOLOR=\"\"#FFFFFF\"\">\"
Public Const TAB_TDR = \"<TD BGCOLOR=\"\"#FFFFFF\"\" ALIGN=\"\"RIGHT\"\">\"
Public Const TAB_IFONT = \"\"
Public Const TAB_ITD = \" </TD>\"
Public Const TAB_ITR = \"</TR>\"
Public Const TAB_ITABLE = \"</TABLE>\"

\'Kør de forskellige info funktioner og vis tabellerne
Response.Write \"<H2>Server Status</H2>\"
Response.Write ServerInfo
Response.Write GlobalInfo
Response.Write ScriptingInfo
Response.Write ComponentInfo
Response.Write ADOInfo
Response.Write DriveInfo
Response.Write \":o)\"

\'*** Funktion der returnerer tabel-streng med oplysninger om serveren ***
Public Function ServerInfo()
\'Header
ServerInfo = TAB_TABLE
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & \"<TD COLSPAN=2>\" & TAB_FONT & \"Oplysninger om serveren\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

\'Navn og adresse
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & \"Navn og adresse\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Request.ServerVariables(\"SERVER_NAME\") & \" (\" & Request.ServerVariables(\"LOCAL_ADDR\") & \")\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

\'Fysisk rodmappe
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & \"Fysisk rodmappe\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Request.ServerVariables(\"APPL_PHYSICAL_PATH\") & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

\'Dato og tid
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & \"Dato og tid\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT
ServerInfo = ServerInfo & FormatDateTime(Now(), vbGeneralDate) & \" (vbGeneralDate)\" & \" \"
ServerInfo = ServerInfo & FormatDateTime(Now(), vbLongDate) & \" (vbLongDate)\" & \" \"
ServerInfo = ServerInfo & FormatDateTime(Now(), vbShortDate) & \" (vbShortDate)\" & \" \"
ServerInfo = ServerInfo & FormatDateTime(Now(), vbLongTime) & \" (vbLongTime)\" & \" \"
ServerInfo = ServerInfo & FormatDateTime(Now(), vbShortTime) & \" (vbShortTime)\"
ServerInfo = ServerInfo & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

\'Software
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & \"Software\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Request.ServerVariables(\"SERVER_SOFTWARE\") & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

\'Script Engine ID
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & \"Script Engine ID\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & ScriptEngine & \" v\" & ScriptEngineMajorVersion & \".\" & ScriptEngineMinorVersion & \" (Build \" & ScriptEngineBuildVersion & \")\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

\'Protokol
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & \"Protokol\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Request.ServerVariables(\"SERVER_PROTOCOL\") & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

\'Gateway
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & \"Gateway\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Request.ServerVariables(\"GATEWAY_INTERFACE\") & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

\'Timeout
ServerInfo = ServerInfo & TAB_TR
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & \"Timeout\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_TD & TAB_FONT & Server.ScriptTimeout & \" sekunder (Script)\" & \" \"
ServerInfo = ServerInfo & Session.Timeout & \" minutter (Session)\" & TAB_IFONT & TAB_ITD
ServerInfo = ServerInfo & TAB_ITR

ServerInfo = ServerInfo & TAB_ITABLE
ServerInfo = ServerInfo & \"  \"
End Function

\'*** Funktion der returnerer tabel-streng med oplysninger om objekter i global.asa ***
Public Function GlobalInfo()
\'Header
GlobalInfo = TAB_TABLE
GlobalInfo = GlobalInfo & TAB_TR
GlobalInfo = GlobalInfo & \"<TD COLSPAN=2>\" & TAB_FONT & \"Oplysninger om objekter i global.asa\" & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_ITR

\'Tools
GlobalInfo = GlobalInfo & TAB_TR
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT & \"Tools\" & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT
If IsGlobal(\"Tools\") Then
GlobalInfo = GlobalInfo & TypeName(Tools)
Else
GlobalInfo = GlobalInfo & \"?\"
End If
GlobalInfo = GlobalInfo & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_ITR

\'MyInfo
GlobalInfo = GlobalInfo & TAB_TR
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT & \"MyInfo\" & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT
If IsGlobal(\"MyInfo\") Then
GlobalInfo = GlobalInfo & TypeName(MyInfo)
Else
GlobalInfo = GlobalInfo & \"?\"
End If
GlobalInfo = GlobalInfo & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_ITR

\'Counters
GlobalInfo = GlobalInfo & TAB_TR
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT & \"Counters\" & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_TD & TAB_FONT
If IsGlobal(\"Counters\") Then
GlobalInfo = GlobalInfo & TypeName(Counters)
Else
GlobalInfo = GlobalInfo & \"?\"
End If
GlobalInfo = GlobalInfo & TAB_IFONT & TAB_ITD
GlobalInfo = GlobalInfo & TAB_ITR

GlobalInfo = GlobalInfo & TAB_ITABLE
GlobalInfo = GlobalInfo & \"  \"
End Function

\'*** Funktion der returnerer tabel-streng med oplysninger om Scripting klasser ***
Public Function ScriptingInfo()
\'Header
ScriptingInfo = ScriptingInfo & TAB_TABLE
ScriptingInfo = ScriptingInfo & TAB_TR
ScriptingInfo = ScriptingInfo & \"<TD COLSPAN=2>\" & TAB_FONT & \"Oplysninger om Scripting klasser\" & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_ITR

\'Scripting.Dictionary
ScriptingInfo = ScriptingInfo & TAB_TR
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & \"Scripting.Dictionary\" & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & ClassCreateObject(\"Scripting.Dictionary\") & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_ITR

\'Scripting.FileSystemObject
ScriptingInfo = ScriptingInfo & TAB_TR
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & \"Scripting.FileSystemObject\" & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & ClassCreateObject(\"Scripting.FileSystemObject\") & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_ITR

\'ADODB.Connection
ScriptingInfo = ScriptingInfo & TAB_TR
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & \"ADODB.Connection\" & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_TD & TAB_FONT & ClassCreateObject(\"ADODB.Connection\") & TAB_IFONT & TAB_ITD
ScriptingInfo = ScriptingInfo & TAB_ITR

ScriptingInfo = ScriptingInfo & TAB_ITR
ScriptingInfo = ScriptingInfo & TAB_ITABLE
ScriptingInfo = ScriptingInfo & \"  \"
End Function

\'*** Funktion der returnerer tabel-streng med oplysninger om Server komponenter ***
\'* Tilføj selv flere relevante komponenter
Public Function ComponentInfo()
\'Header
ComponentInfo = ComponentInfo & TAB_TABLE
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & \"<TD COLSPAN=2>\" & TAB_FONT & \"Oplysninger om Server komponenter\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'Header2
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Microsoft ASP\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \" \" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'MSWC.AdRotator
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Ad Rotator (MSWC.AdRotator)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"MSWC.AdRotator\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'MSWC.BrowserType
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Browser Capabilities (MSWC.BrowserType)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"MSWC.BrowserType\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'ADODB.Connection
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Database Access (ADODB.Connection)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"ADODB.Connection\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'MSWC.NextLink
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Content Linking (MSWC.NextLink)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"MSWC.NextLink\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'Scripting.FileSystemObject
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"File Access (Scripting.FileSystemObject)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"Scripting.FileSystemObject\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'CDONTS.Session
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"CDO for NTS (CDONTS.Session)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"CDONTS.Session\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

If Not IsGlobal(\"Tools\") Then \'Undgå at smadre evt. eksisterende objekt
\'MSWC.Tools
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Tools (MSWC.Tools)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"MSWC.Tools\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR
End If

\'MSWC.Status
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Status (MSWC.Status)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"MSWC.Status\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

If Not IsGlobal(\"MyInfo\") Then \'Undgå at smadre evt. eksisterende objekt
\'MSWC.MyInfo
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"MyInfo (MSWC.MyInfo)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"MSWC.MyInfo\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR
End If

If Not IsGlobal(\"Counters\") Then \'Undgå at smadre evt. eksisterende objekt
\'MSWC.Counters
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Counters (MSWC.Counters)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"MSWC.Counters\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR
End If

\'MSWC.PageCounter
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Page Counter (MSWC.PageCounter)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"MSWC.PageCounter\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'MSWC.PermissionChecker
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Permission Checker (MSWC.PermissionChecker)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"MSWC.PermissionChecker\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'Header3
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Komponenter fra tredjemand\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \" \" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'ASPMail.ASPMailCtrl.1
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"OCXMail fra Flicks Software (ASPMail.ASPMailCtrl.1)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"ASPMail.ASPMailCtrl.1\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'ASPChart.Chart
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"ASP Chart fra ServerObjects (ASPChart.Chart)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"ASPChart.Chart\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'JMail.SMTPMail
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"JMail fra Dimac (JMail.SMTPMail)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"JMail.SMTPMail\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'SoftArtisans.FileUp
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"SA-FileUp fra SoftArtisans (SoftArtisans.FileUp)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"SoftArtisans.FileUp\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'cyScape.browserObj
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"Browserhawk fra CyScape (cyScape.browserObj)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"cyScape.browserObj\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'SMTPsvg.Mailer
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"ASPMail fra ServerObjects (SMTPsvg.Mailer)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"SMTPsvg.Mailer\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'AspHTTP.Conn
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"ASPHttp fra ServerObjects (AspHTTP.Conn)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"AspHTTP.Conn\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'Socket.TCP
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"w3 Sockets fra Dimac (Socket.TCP)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"Socket.TCP\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

\'POP3svg.Mailer
ComponentInfo = ComponentInfo & TAB_TR
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & \"ASPPop3 fra ServerObjects (POP3svg.Mailer)\" & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_TD & TAB_FONT & ServerCreateObject(\"POP3svg.Mailer\") & TAB_IFONT & TAB_ITD
ComponentInfo = ComponentInfo & TAB_ITR

ComponentInfo = ComponentInfo & TAB_ITR
ComponentInfo = ComponentInfo & TAB_ITABLE
ComponentInfo = ComponentInfo & \"  \"
End Function

\'*** Funktion der returnerer tabel-streng med oplysninger om ADO ***
Public Function ADOInfo()
Dim objConn

\'ADO Connection
Set objConn = Server.CreateObject(\"ADODB.Connection\")

\'Header
ADOInfo = TAB_TABLE
ADOInfo = ADOInfo & TAB_TR
ADOInfo = ADOInfo & \"<TD COLSPAN=2>\" & TAB_FONT & \"Oplysninger om ADO Connection\" & TAB_IFONT & TAB_ITD
ADOInfo = ADOInfo & TAB_ITR

\'Provider
ADOInfo = ADOInfo & TAB_TR
ADOInfo = ADOInfo & TAB_TD & TAB_FONT & \"Provider\" & TAB_IFONT & TAB_ITD
ADOInfo = ADOInfo & TAB_TD & TAB_FONT & objConn.Provider & TAB_IFONT & TAB_ITD
ADOInfo = ADOInfo & TAB_ITR

\'Version
ADOInfo = ADOInfo & TAB_TR
ADOInfo = ADOInfo & TAB_TD & TAB_FONT & \"Version\" & TAB_IFONT & TAB_ITD
ADOInfo = ADOInfo & TAB_TD & TAB_FONT & objConn.Version & TAB_IFONT & TAB_ITD
ADOInfo = ADOInfo & TAB_ITR

ADOInfo = ADOInfo & TAB_ITABLE
ADOInfo = ADOInfo & \"  \"

\'Slet Connection
Set objConn = Nothing
End Function

\'*** Funktion der returnerer tabel-streng med oplysninger om drev ***
Public Function DriveInfo()
Dim objFS, objDrv

\'Filsystem
Set objFS = CreateObject(\"Scripting.FileSystemObject\")

\'Header
DriveInfo = TAB_TABLE
DriveInfo = DriveInfo & TAB_TR
DriveInfo = DriveInfo & \"<TD COLSPAN=5>\" & TAB_FONT & \"Oplysninger om drev\" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_ITR

\'Overskrifter
DriveInfo = DriveInfo & TAB_TR
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & \"Drev (navn)\" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & \"Medie\" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & \"Filsystem\" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & \"Samlet størrelse\" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & \"Ledig plads\" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_ITR

\'Gennemgå alle drev
For Each objDrv In objFS.Drives
DriveInfo = DriveInfo & TAB_TR

\'Drev (navn)
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & objDrv.DriveLetter & \" (\"
If objDrv.IsReady Then
DriveInfo = DriveInfo & objDrv.VolumeName
Else
DriveInfo = DriveInfo & \"?\"
End If
DriveInfo = DriveInfo & \")\" & TAB_IFONT & TAB_ITD

\'Medie
DriveInfo = DriveInfo & TAB_TD & TAB_FONT
Select Case objDrv.DriveType
Case 0: DriveInfo = DriveInfo & \"Ukendt\"
Case 1: DriveInfo = DriveInfo & \"Flytbar\"
Case 2: DriveInfo = DriveInfo & \"Fast\"
Case 3: DriveInfo = DriveInfo & \"Netværk\"
Case 4: DriveInfo = DriveInfo & \"CD-ROM\"
Case 5: DriveInfo = DriveInfo & \"RAM disk\"
Case Else: DriveInfo = DriveInfo & \"?\"
End Select
DriveInfo = DriveInfo & TAB_IFONT & TAB_ITD

\'Er der noget i drevet?
If objDrv.IsReady Then
\'Filsystem
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & objDrv.FileSystem & TAB_IFONT & TAB_ITD

\'Størrelse
DriveInfo = DriveInfo & TAB_TDR & TAB_FONT & FormatNumber(objDrv.TotalSize / 1000000, 0) & \" MB\" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TDR & TAB_FONT & FormatNumber(objDrv.FreeSpace / 1000000, 0) & \" MB\" & TAB_IFONT & TAB_ITD
Else
DriveInfo = DriveInfo & TAB_TD & TAB_FONT & \"?\" & TAB_IFONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TDR & TAB_FONT & \"? MB\" & TAB_FONT & TAB_ITD
DriveInfo = DriveInfo & TAB_TDR & TAB_FONT & \"? MB\" & TAB_FONT & TAB_ITD
End If
DriveInfo = DriveInfo & TAB_ITR
Next
DriveInfo = DriveInfo & TAB_ITABLE
DriveInfo = DriveInfo & \"  \"

\'Frigiv objekter
Set objFS = Nothing
Set objDrv = Nothing
End Function

\'*** Hjælpefunktioner (for at fange evt. fejl) ***
Private Function ClassCreateObject(strClass)
Dim objTemp

On Error Resume Next
Set objTemp = CreateObject(strClass)
If Err.Number = 0 Then
ClassCreateObject = TypeName(objTemp)
Else
ClassCreateObject = \"?\"
End If

\'Frigiv objekt igen
Set objTemp = Nothing
End Function

Private Function ServerCreateObject(strProgID)
Dim objTemp

On Error Resume Next
Set objTemp = Server.CreateObject(strProgID)
If Err.Number = 0 Then
ServerCreateObject = TypeName(objTemp)
Else
ServerCreateObject = \"?\"
End If

\'Frigiv objekt igen
Set objTemp = Nothing
End Function

Private Function IsGlobal(strVarname)
On Error Resume Next

\'Returner som udganspunkt False
IsGlobal = False

\'Afprøv relevante
Select Case strVarname
Case \"Tools\"
If IsObject(Tools) Then
If Err.Number = 0 Then IsGlobal = True
End If
Case \"MyInfo\"
If IsObject(MyInfo) Then
If Err.Number = 0 Then IsGlobal = True
End If
Case \"Counters\"
If IsObject(Counters) Then
If Err.Number = 0 Then IsGlobal = True
End If
End Select
End Function
%>

Synes godt om

iss Novice

30. maj 2001 - 11:48 #3

keysersoze -> Læs: Kategori Programmering: PHP

Synes godt om

webot Nybegynder

30. maj 2001 - 11:58 #4

Ser meget fint ud... men jeg går ikke i seng med fjenden (ASP)

Det jeg mener er... at man kan se om der er liv i en pop3 server om mysql serveren er død eller køre... det samme med www og ftp...

Synes godt om

keysersoze Ekspert

30. maj 2001 - 11:58 #5

DOH!

Synes godt om

iss Novice

30. maj 2001 - 12:01 #6

Jeg har til FTP, som let kan laves om til HTTP.
http://www.scaninvestor.com/FTP.phtml

Synes godt om

iss Novice

30. maj 2001 - 12:03 #7

Og MySQL er vel bare at lave en connect og se om der kan connectes....

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 14:59 #8

iss -> det ser da meget godt ud, kan man evt. få tilsendt en kopi, mod nogle point her på eksperten??

Synes godt om

grav Nybegynder

30. maj 2001 - 15:17 #9

Hvis det er til brug for kunder, skal du bare gøre ligesom dem her:
http://www.danmarks.nu/scripts2/status.html

Et Javascript sørger for at datoen øverst på siden altid er aktuel, og så skriver du bare 100% ud for oppetid. Evt. kan du trække et par promiller fra, for at det ser mere ægte ud ... skide smart.

Synes godt om

webot Nybegynder

30. maj 2001 - 16:26 #10

grav>>

Det er jo ikke meningen at det skal være fusk...

iss det ser meget godt ud :)

Synes godt om

grav Nybegynder

30. maj 2001 - 16:38 #11

Det var bare en bitter kommentar til min egen discount-udbyder ;)

Synes godt om

iss Novice

30. maj 2001 - 17:59 #12

Jeg ser om ikke jeg kan lave en der kan det hele så lægger jeg den op.

dvs HTTP/FTP/POP3/SMTP/MySQL/NTP...

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 18:13 #13

det lydder kanont... jeg er villig til at smide 50 point i puljen...

Synes godt om

iss Novice

30. maj 2001 - 18:31 #14

Så er den ved at være der.... Jeg tester den lige....

Synes godt om

iss Novice

30. maj 2001 - 21:28 #15

http://www.scaninvestor.com/Service.phtml

Til dem der vil kigge med...

Synes godt om

iss Novice

30. maj 2001 - 21:35 #16

<?

$PortName = array(80=>\"HTTP\", 21=>\"FTP\", 110=>\"POP3\", 25=>\"SMTP\", 23=>\"Telnet\", 123=>\"NTP\", 119=>\"News\", 3306=>\"MySQL\");
$PortsToTest = array(21, 80, 110, 3306);

function Validate_IP($ip) {
if (is_string($ip) && ereg(\'^([0-9]{1,3}).([0-9]{1,3}).\'.\'([0-9]{1,3}).([0-9]{1,3})$\', $ip, $part)) {
if ($part[1] <= 255 && $part[2] <= 225 && $part[3] <= 255 && $part[4] <= 255) {
return true;
}
}
return false;
}

function CheckService($port, $server) {
$ch = @fsockopen($server, $port, $errno, $errstr, \"10\");
if ($ch) {
$status[0] = true;
socket_set_blocking($ch, true);
$status[1] = fgets($ch, 256);
@fclose($ch);
}
else {
$status[0] = false;
$status[1] = $errno.\" - \".$errstr;
}
return $status;
}

$server = chop(trim($server));

if (empty($server)) {
$server = \"127.0.0.1\";
}

if (Validate_IP($server)) {
$ip = $server;
$host = gethostbyaddr($ip);
}
else {
$ip = gethostbyname($server);
$host = $server;
}
?>

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
<title>What services are runnig at <?=$host?>?</title>
</head>

<body style=\"background: #6BC2FF; font: bold normal normal large/normal Arial, Helvetica, sans-serif; color: #0047AD;\">
 
<div align=\"center\">Testing services at <?=$host?>...</div>
 
<?
if ($ip!=$host) {
?><div align=\"center\" style=\"font-size: medium;\">The server <?=$host?> has the IP <?=$ip?>.</div> <?
}

flush();
?>
<table border=\"0\" cellspacing=\"2\" cellpadding=\"2\" align=\"center\" style=\"border: 2px dotted #0000AB;\">
<?
foreach ($PortsToTest as $port) {
$Status = CheckService($port, $server);
echo \"<tr>\";
echo \"<td style=\\\"border: 2px dotted #0000AB;\\\">$PortName[$port]</td>\";
if ($Status[0]) {
echo \"<td style=\\\"border: 2px dotted #0000AB; color: Lime;\\\">Online</td>\";
}
else {
echo \"<td style=\\\"border: 2px dotted #0000AB; color: Red;\\\">Offline</td>\";
}
echo \"<td style=\\\"border: 2px dotted #0000AB;\\\">$Status[1]</td>\";
echo \"</tr>\";
}
?>

</table>
 
<form action=\"<?=$PHP_SELF?>\" method=\"post\">
<table align=\"center\" cellspacing=\"2\" cellpadding=\"2\" border=\"0\">
<tr>
<td align=\"center\">Want to test another server?</td>
</tr>
<tr>
<td align=\"center\"><input type=\"text\" name=\"server\" value=\"<?=$server?>\" style=\"border: 2px dotted #0000AB; background: #3399FF;\"></td>
</tr>
</table>
</form>
</body>
</html>

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 22:31 #17

hmm har lige prøvet at \"teste\" azero.dk og den har foreløbig tykket på det de sidste 2 min....??

Synes godt om

iss Novice

30. maj 2001 - 22:39 #18

Det tager 10s per port hvis den ikke svare...

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 22:42 #19

og hvor mange porte skal den igennem ??

Synes godt om

iss Novice

30. maj 2001 - 22:43 #20

Dem du har sat den til at teste.....

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 22:49 #21

jeg fik nu en time out på handlingen...??

Synes godt om

iss Novice

30. maj 2001 - 22:51 #22

Hvor mange har du sat til at teste?

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 23:03 #23

jeg tester via det link du smed her...
http://www.scaninvestor.com/Service.phtml

og der har jeg prøvet med azero.dk men her sker intet ud over at jeg får en timeout... :-((

Synes godt om

iss Novice

30. maj 2001 - 23:08 #24

Ser ud til at azero blokere.... Prøv en anden...

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 23:10 #25

har lige prøvet at tage en direkte kopi af scriptet du har postet her...
og får følgende resultat:
--- snip ---
Testing services at localhost...

The server localhost has the IP 127.0.0.1.

og så en popup med en time out... :-(

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 23:13 #26

Jeg får ikke engang den boks hvor man kan indtaste en anden server ??
som man gør hvis man går ind på linket til scaninv....

Synes godt om

iss Novice

30. maj 2001 - 23:17 #27

Øhhh, hvor får du time out på scaninvestor???

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 23:20 #28

lige nu ser dit link ud til at virke... men den jeg selv har instaleret på min egen server funger ikke :-((

Synes godt om

webot Nybegynder

30. maj 2001 - 23:21 #29

den virker fint :) Kan det passe den ikke tjekker port 110? for jeg har lige leget lidt med den.... den tjekker fint mysql, http, ftp og NTP

Smidre lige nogle flere point i :)

Synes godt om

iss Novice

30. maj 2001 - 23:23 #30

Jo den virker...

http://www.scaninvestor.com/Service.phtml?server=mail.image.dk

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 23:24 #31

nu funger det perfekt på scaninvestor.....

har du ændret noget i scriptet ?

lige nu får jeg test på følgende:
Service
FTP
NTP
MySQL
HTTP
POP3

og for 10 min siden var det kun på http jeg fik status melding på...

hvad er ntp entlig ?

Synes godt om

iss Novice

30. maj 2001 - 23:26 #32

Jeg ændre hele tiden... NTP er tid....

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 23:27 #33

hvorfor f... kan jeg så ikke få den til at virke hos min udbyder, kan der være blokeret for sådanne \"opslag\"??

Synes godt om

webot Nybegynder

30. maj 2001 - 23:28 #34

dammmm den er proff :))

Synes godt om

iss Novice

30. maj 2001 - 23:29 #35

Sådan ser den ud nu....

<?
$PortName = array(80=>\"HTTP\", 21=>\"FTP\", 110=>\"POP3\", 25=>\"SMTP\", 23=>\"Telnet\", 123=>\"NTP\", 119=>\"News\", 3306=>\"MySQL\");
$PortsToTest = array(21, 123, 3306, 80, 110);

function Validate_IP($ip) {
if (is_string($ip) && ereg(\'^([0-9]{1,3}).([0-9]{1,3}).\'.\'([0-9]{1,3}).([0-9]{1,3})$\', $ip, $part)) {
if ($part[1] <= 255 && $part[2] <= 225 && $part[3] <= 255 && $part[4] <= 255) {
return true;
}
}
return false;
}

function CheckService($port, $server) {
$ch = @fsockopen($server, $port, $errno, $errstr, \"5\");
if ($ch) {
$status[0] = true;
$status[1] = \"OK\";
@fclose($ch);
}
else {
$status[0] = false;
$status[1] = $errstr;
}
return $status;
}

function checkhost($host = localhost, $port, $timeout = 30) {
$noc_test = fsockopen($host, $port, $errno, $errstr, $timeout);
if ($noc_test) {
fclose($noc_test);
return $noc_test;
}
else
{ }
}

$server = chop(trim($server));

if (empty($server)) {
$server = \"127.0.0.1\";
}

if (Validate_IP($server)) {
$ip = $server;
$host = gethostbyaddr($ip);
}
else {
$ip = gethostbyname($server);
$host = $server;
}
?>

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
<title>What services are runnig at <?=$host?>?</title>
</head>

<body style=\"background: #6BC2FF; font: bold normal normal large/normal Arial, Helvetica, sans-serif; color: #0047AD;\">
 
<div align=\"center\">Testing services at <?=$host?>...</div>
 
<?
if ($ip!=$host) {
?><div align=\"center\" style=\"font-size: medium;\">The server <?=$host?> has the IP <?=$ip?>.</div> <?
}

flush();
?>
<table border=\"0\" cellspacing=\"2\" cellpadding=\"2\" align=\"center\" style=\"border: 2px dotted #0000AB;\">
<tr>
<td style=\"border: 2px dotted #0000AB;\">Service</td>
<td style=\"border: 2px dotted #0000AB;\">Status</td>
<td style=\"border: 2px dotted #0000AB;\">String</td>
</tr>
<?
foreach ($PortsToTest as $port) {
$Status = CheckService($port, $server);
echo \"<tr>\";
echo \"<td style=\\\"border: 2px dotted #0000AB;\\\">$PortName[$port]</td>\";
if ($Status[0]) {
echo \"<td style=\\\"border: 2px dotted #0000AB; color: Lime;\\\">Online</td>\";
}
else {
echo \"<td style=\\\"border: 2px dotted #0000AB; color: Red;\\\">Offline</td>\";
}
echo \"<td style=\\\"border: 2px dotted #0000AB;\\\">$Status[1]</td>\";
echo \"</tr>\";
}
?>

</table>
 
<form action=\"<?=$PHP_SELF?>\" method=\"post\">
<table align=\"center\" cellspacing=\"2\" cellpadding=\"2\" border=\"0\">
<tr>
<td align=\"center\">Want to test another server?</td>
</tr>
<tr>
<td align=\"center\"><input type=\"text\" name=\"server\" value=\"<?=$server?>\" style=\"border: 2px dotted #0000AB; background: #3399FF;\"></td>
</tr>
</table>
</form>
</body>
</html>

Synes godt om

cyberdude Nybegynder

30. maj 2001 - 23:33 #36

hippp huraaaa nu funger den sidste ver. du postede herinde også.... oprette lige de 50 point til dig som jeg lovede...

NTP = tid hvorfor lave en test på tid ???

Synes godt om

webot Nybegynder

30. maj 2001 - 23:35 #37

Takker mange gange :)

Synes godt om

iss Novice

30. maj 2001 - 23:35 #38

En NTP server er en du kan stille din computers ur efter, med f.eks programmer ala Tardis.

Synes godt om

iss Novice

30. maj 2001 - 23:35 #39

webot -> Var så lidt....

Synes godt om

webot Nybegynder

30. maj 2001 - 23:38 #40

Synes godt om

iss Novice

31. maj 2001 - 18:19 #41

Så er der kommet ny version:))
Link:
http://www.scaninvestor.com/Service.phtml
Sovs:
http://www.scaninvestor.com/Service.txt

Synes godt om

cyberdude Nybegynder

31. maj 2001 - 18:34 #42

kanont stykke værktøj!!

Synes godt om

webot Nybegynder

31. maj 2001 - 19:52 #43

nu har jeg vært ved at lege lidt med scriptet... men kan det godt passe at f2s.com har gjort sådan man ikke kan bruge scriptet...?

Synes godt om

iss Novice

31. maj 2001 - 21:59 #44

webot -> Don\'t know.... Hvad sker der?

Synes godt om

cyberdude Nybegynder

07. juni 2001 - 12:45 #45

hejsa!!

Nu hvor jeg ville til at bruge det virkede det ikke mere :-((
måske jeg gør noget forkert..??

her er en af de \"gamle\" vertioner du havede tidligere den dag/dage du lavede det
http://www.spwebdesign.dk/service-bak.php
og den funger fint når jeg tester 127.0.0.1
koden til denne kan ses her
http://www.spwebdesign.dk/service-bak.txt

men bruger jeg derimod den nyeste du har og kun retter hvilken ip den skal teste så virker den ikke (ej heller hvis jeg lader den være nøjagtigt som din \"sovs\")
kan ses her
http://www.spwebdesign.dk/service.php
og koden her
http://www.spwebdesign.dk/service.txt

er det mig der gør noget galt elelr er det min udbyder der blokere for noget??

Synes godt om

cyberdude Nybegynder

07. juni 2001 - 12:55 #46

hvis jeg prøver den nye\"tester\" på et andet webhotel placeret hos en anden udbyder

her http://www.blue-burger.dk/service.php3 så funger denne fint nok, men hvad kan der så være galt siden at den ikke gør på/hos min anden host..??

Synes godt om

iss Novice

07. juni 2001 - 13:01 #47

cyberdude -> Skulle ikke være forskel.... Da det eneste scriptene gør er at se om porten er åben... Der er ved at blive lavet en ny version som også testet om det er den rigtige service der køre på porten.

Synes godt om

cyberdude Nybegynder

07. juni 2001 - 13:02 #48

jeg fatter bare ikek at den \"gamle\" vertion funger og den nye ikke gør, når man nu prøvet at teste nøjagtigt det samme i dem...

Synes godt om

iss Novice

07. juni 2001 - 13:08 #49

Husk lige at det er skrevet til PHP4!! Da den nye bruger arrays.

Synes godt om

cyberdude Nybegynder

07. juni 2001 - 13:10 #50

hmm på spwebdsign.dk
kunne det se lidt ud som om at scriptet slet ikke \"køre\"

her er resultatet...

Server spwebdesign.dk AKA 62.242.36.21.
Service Status Result
FTP Offline
HTTP Offline
POP3 Offline
MySQL Offline

man får slet ikke nogen melding ud under \"result\" og der burde den vel entlig skrive \"Connection refused\" ??

Synes godt om

iss Novice

07. juni 2001 - 13:11 #51

Prøv evt: http://www.scaninvestor.com/Service.txt

Synes godt om

iss Novice

07. juni 2001 - 13:13 #52

Prøv at sætte den til din egen IP 212.10.42.60, og se om den prøvet at få kontakt med dig.

Synes godt om

cyberdude Nybegynder

07. juni 2001 - 13:13 #53

fra en phpinfo.php på spwebdesign.dk

PHP Version 4.0.3pl1
så det burde da være iorden...

fra blue-burger.dk
PHP Version 4.0.4pl1

så måske ikke helt i orden aligevel...

hvilken vertion kørr/bruger du på scaninv....??

Synes godt om

iss Novice

07. juni 2001 - 13:15 #54

PHP Version 4.0.4pl1

Synes godt om

cyberdude Nybegynder

07. juni 2001 - 13:19 #55

det gør den ikke fra spwebdesign...

men fra blue-burger.dk gør den det godtnok.. og får også resultat...

Synes godt om

iss Novice

07. juni 2001 - 13:20 #56

Du har altså prøvet 212.10.42.60?

Synes godt om

cyberdude Nybegynder

07. juni 2001 - 13:22 #57

så er det jo nu nok derfor at jeg ikke kan bruge den nye vertion på spwebdesign.dk :-((

sender lige en opdaterings ønske til min host... :-)
så indtil vidre må jeg jo bruge den \"gamle\" og så lave så mange flier som svare til det antal steder jeg vil teste og så lave en include af dem alle på en side istedet...

tak for hjælpem med at finde den fejl som slet ikke hverken jeg eller dig kan gøre noget ved!

Synes godt om

cyberdude Nybegynder

07. juni 2001 - 13:22 #58

jaj jeg har prøvet 212.10.42.60

Synes godt om

webot Nybegynder

08. juni 2001 - 23:00 #59

Hej iss
jeg har samme problem som cyberdude....
jeg kan også kun få http://www.spwebdesign.dk/service.txt til at virke... den sidste nye virker ikke hos mig...

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Webudvikling kurser

Vi tilbyder markedets bedste kurser inden for webudvikling

Se alle Webudvikling kurser

Flere spørgsmål fra PHP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
lukke sikkerhedshuller Af Asky i PHP	9	22/10/202615:45	26/10/202610:22
System til bordreservation Af Strawberry i PHP	3	20/07/202611:23	21/08/202611:02
Bruge PHP til at hente hjemmeside med fsockopen Af Strawberry i PHP	18	29/01/202613:08	02/02/202610:29
Hjemmeside der virker både på mobil og computer Af Strawberry i PHP	6	25/01/202620:06	30/01/202618:53
Hvordan får jeg reCAPTCHA på min hjemmeside? Af Strawberry i PHP	4	20/01/202621:11	23/10/202616:54

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS