kako u vb napraviti da se u richtextbox napise info od kompu... tj hostname, koji printer imam i to...
za printer potrebno obavazno!
za printer potrebno obavazno!
Get PC INformations
Zaključano
Zakačeno
potrazi u msdnu
jesam, samo nisam nasao...
Ime defaultnog printera:
Code:
Printer.DeviceName
Printer.DeviceName
jel zna tko kako saznat windows usera na koji sam prijavljen
opet: pogledaj msdn ;)
opet: sorry al nisan nasao...
pretrazi malo bolje, jer na tom mestu mora da ima, a na drugim mozda ima ;)
trazi get device info, ili npr get printer info (trazi u Platform SDK-u, ne u dokumentaciji za .NET)
trazi get device info, ili npr get printer info (trazi u Platform SDK-u, ne u dokumentaciji za .NET)
Ovo ti je fn za dobijanje trenutnog Usera
Code:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function CurrentUser() As String
On Error Resume Next
Dim UserName As String, NameLength As Long, ReturnVal As Long
UserName = Space$(255)
NameLength = 255
ReturnVal = GetUserName(UserName, NameLength)
If ReturnVal <> 0 Then
CurrentUser = Mid(UserName, 1, NameLength)
Else
CurrentUser = "N/A"
End If
CurrentUser = Replace(CurrentUser, Chr(0), "")
End Function
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function CurrentUser() As String
On Error Resume Next
Dim UserName As String, NameLength As Long, ReturnVal As Long
UserName = Space$(255)
NameLength = 255
ReturnVal = GetUserName(UserName, NameLength)
If ReturnVal <> 0 Then
CurrentUser = Mid(UserName, 1, NameLength)
Else
CurrentUser = "N/A"
End If
CurrentUser = Replace(CurrentUser, Chr(0), "")
End Function
Potpis
HomePage http://www.eurora3d.com
e hvalaaa...ako netko jos nesto zna neka rece...
Pretrazi forum za ostalo. Ja sam jednom postavio kod za to ovde na VB forumu.
Potpis
HomePage http://www.eurora3d.com