گرفتن ComputerName یا UserName در اکسس

فقط سیستم محلی 

Environ("COMPUTERNAME")

Environ("USERNAME")

Environ("PATH")

"Wscript.Network"  Object 

Properties:
UserName
UserDomain
ComputerName

Methods :
AddWindowsPrinterConnection
'Add a printer in Windows 2000 and higher
AddPrinterConnection
'Add a printer in older systems

EnumNetworkDrives

'List the mapped drives on the computer EnumPrinterConnections

'List the installed printers

MapNetworkDrive

'Map a network drive

RemoveNetworkDrive

'Remove a network drive

RemovePrinterConnection

'Remove a printer connection

SetDefaultPrinter

'Set the default printer 

Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1 WScript.Echo objArgs(I)
Next

تابع GetUserNameA : 

	Library : Advapi32.lib
	DLL : Advapi32.dll

BOOL GetUserNameA( [out] LPSTR lpBuffer, [in, out] LPDWORD pcbBuffer

lpBuffer : 

نشانگری به Buffer برای دریافت نام کاربر logon . اگر این Buffer به اندازه کافی  بزرگ نباشد که کل نام کاربری را در خود جای دهد ، این تابع از کار می افتد ( fail ) .

Len+1

pcbBuffer : 

این متغیر سایز Buffer را مشخص می کند 

در صورت نگرفتن پاسخ مناسب حتما یادداشت های این تابع را در سایت office مشاهده کنید