Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: PROBLEME UNTER NT
Autor: anaconda1985
Datum: 02.07.04 10:32
'-------------------------ListBox1---------------- ListBox1.AddItem UserName ListBox1.AddItem hostname ListBox1.AddItem s '-------------------------ListBox2---------------- ListBox2.AddItem tree ListBox2.AddItem var3 ListBox2.AddItem Context ListBox2.AddItem IPConfig.IpAddress(i) Next End If Next '-------------------------ZEIT-------------------- MS = GetTickCount() MS = MS / 1000 Std = Int(MS / 3600) MS = MS - Std * 3600 Min = Int(MS / 60) MS = MS - Min * 60 Sek = Int(MS) MS = Int((MS - Sek) * 10) Label1.Caption = CStr(Std) Label3.Caption = CStr(Min) Label4.Caption = CStr(Sek) '-------------------------Zeitfunktion + LB ADD--- On Error Resume Next Set objWMI = GetObject("WinMgmts:") If Err.Number <> 0 Then Label1.Caption = "Kein WMI installiert!" Err.Clear Set objWMI = Nothing Exit Sub End If Set objWMI = GetObject("WinMgmts:/root/cimv2") Set colItems = objWMI.ExecQuery( _ "SELECT * FROM Win32_OperatingSystem") For Each objItem In colItems If objItem.OSType = 18 Then ListBox3.AddItem objItem.Caption ListBox4.AddItem objItem.CSDVersion Else ListBox4.AddItem objItem.CSDVersion = "Der Service-Pack kann nur für die " & _ "Betriebssysteme 'Windows NT, 2000 und XP' " & _ "ermittelt werden." End If Next objItem Set objItem = Nothing Set colItems = Nothing Set objWMI = Nothing End Sub '-------------------------USERNAME-FUNKTION--- Private Function UserName() Dim sName As String Dim nSize As Long Dim lngResult As Long nSize = 100 sName = Space$(100) lngResult = GetUserName(sName, nSize) If lngResult <> 0 Then UserName = Left$(sName, nSize - 1) End If End Function Private Sub Form_Unload(Cancel As Integer) SocketsCleanup End Sub habs ma bissl auseinenader kLmüsert

PROBLEME UNTER NT	1.064	anaconda1985	01.07.04 14:10
Re: PROBLEME UNTER NT	912	Dieter	01.07.04 15:11
Re: PROBLEME UNTER NT	829	anaconda1985	02.07.04 09:01
Re: PROBLEME UNTER NT	777	Dieter	02.07.04 09:27
Re: PROBLEME UNTER NT	785	anaconda1985	02.07.04 09:49
Re: PROBLEME UNTER NT	763	Dieter	02.07.04 09:56
Re: PROBLEME UNTER NT	996	anaconda1985	02.07.04 10:19
Re: PROBLEME UNTER NT	769	Elwood	02.07.04 10:26
Re: PROBLEME UNTER NT	940	anaconda1985	02.07.04 10:29
Re: PROBLEME UNTER NT	763	Joerg	02.07.04 11:17
Re: PROBLEME UNTER NT	884	anaconda1985	02.07.04 11:29
Re: PROBLEME UNTER NT	840	Joerg	02.07.04 13:37
Re: PROBLEME UNTER NT	877	Elwood	02.07.04 15:41
Re: PROBLEME UNTER NT	774	anaconda1985	02.07.04 10:30
Re: PROBLEME UNTER NT	901	anaconda1985	02.07.04 10:30
Re: PROBLEME UNTER NT	865	anaconda1985	02.07.04 10:30
Re: PROBLEME UNTER NT	763	anaconda1985	02.07.04 10:31
Re: PROBLEME UNTER NT	839	anaconda1985	02.07.04 10:31
Re: PROBLEME UNTER NT	760	anaconda1985	02.07.04 10:32

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen