Új hozzászólás Aktív témák

• #30397 Delila_1 veterán EmberXY #30395

  Új Válasz 2016-02-03 08:01:48 #30397

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz EmberXY #30395 üzenetére

  Eddig észre sem vettem ezt a státuszsori kiírást.

  Különböző adatok lekérdezése a Munka1 lapra:

  Sub adatok()
  With Munka1.Range("A1")
  .Offset(0, 0).Value = Environ("username") 'F felhasználó neve
  .Offset(1, 0).Value = Environ("computername") 'PC neve
  .Offset(2, 0).Value = Environ("userdomain") 'felh. domain
  .Offset(3, 0).Value = Environ("sessionname") 'berendezés
  .Offset(4, 0).Value = Environ("PROCESSOR_ARCHITECTURE") 'proci tip.
  .Offset(5, 0).Value = Environ("PROCESSOR_IDENTIFIER") 'proci azonosító
  .Offset(6, 0).Value = Environ("NUMBER_OF_PROCESSORS") 'procik száma
  End With
  End Sub

Új hozzászólás Aktív témák