sorry
03.11.2002 20:36:55
josef
sorry erstmal. natürlich hier nochmal für alle:
benutzername ausgeben:
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Sub ShowUserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
MsgBox Left(Buffer, BuffLen - 1)
End Sub
arbeitsspeicher:
Option Explicit
Private Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Sub Memory()
Dim MemStat As MEMORYSTATUS
GlobalMemoryStatus MemStat
MsgBox "belegter Speicher (in %): " & _
Format(Str$(MemStat.dwMemoryLoad), "#,##0") & _
vbLf & "Speicher insgesamt: " & _
Format(Str$(MemStat.dwTotalPhys / 1024), "#,##0") & " Kb;" & _
vbLf & "davon verfügbar: " & _
Format(Str$(MemStat.dwAvailPhys / 1024), "#,##0") & " Kb;" & _
vbLf & "in gepageten Dateien: " & _
Format(Str$(MemStat.dwTotalPageFile / 1024), "#,##0") & " KB;" & _
vbLf & "davon noch frei: " & _
Format(Str$(MemStat.dwAvailPageFile / 1024), "#,##0") & " KB;" & _
vbLf & "virtueller Speicher: " & _
Format(Str$(MemStat.dwTotalVirtual / 1024), "#,##0") & " KB;" & _
vbLf & "davon verfügbar: " & _
Format(Str$(MemStat.dwAvailVirtual / 1024), "#,##0") & " KB;"
End Sub
noch ein paar sachen (drucker)
Public Sub aktiven_drucker_auslesen()
MsgBox Application.ActivePrinter
' zeigt den aktiven drucker der geöffneten datei
End Sub
Public Sub alle_drucker_auslesen()
Application.Dialogs(xlDialogPrinterSetup).Show
' nach bedarf einen drucker auswählen, doppelclick ausführen,
' dann ist der angewählte drucker der aktive drucker für die geöffnete datei!
End Sub