view release on metacpan or  search on metacpan

lanman.pm  view on Meta::CPAN

	WTSWinStationName
	WTSWorkingDirectory

	WTSUserConfigInitialProgram
	WTSUserConfigWorkingDirectory
	WTSUserConfigfInheritInitialProgram
	WTSUserConfigfAllowLogonTerminalServer
	WTSUserConfigTimeoutSettingsConnections
	WTSUserConfigTimeoutSettingsDisconnections
	WTSUserConfigTimeoutSettingsIdle
	WTSUserConfigfDeviceClientDrives
	WTSUserConfigfDeviceClientPrinters
	WTSUserConfigfDeviceClientDefaultPrinter
	WTSUserConfigBrokenTimeoutSettings
	WTSUserConfigReconnectSettings
	WTSUserConfigModemCallbackSettings
	WTSUserConfigModemCallbackPhoneNumber
	WTSUserConfigShadowingSettings
	WTSUserConfigTerminalServerProfilePath
	WTSUserConfigTerminalServerHomeDir
	WTSUserConfigTerminalServerHomeDirDrive
	WTSUserConfigfTerminalServerRemoteHomeDir

);

@EXPORT_OK = qw(
	DACL_SECURITY_INFORMATION
	GROUP_SECURITY_INFORMATION
	OWNER_SECURITY_INFORMATION
	SACL_SECURITY_INFORMATION
);

%EXPORT_TAGS = 
	( WIN32_MOD => [ @EXPORT_OK ],
	);

sub AUTOLOAD
{
		# This AUTOLOAD is used to 'autoload' constants from the constant()
		# XS function.	If a constant is not found then control is passed
		# to the AUTOLOAD in AutoLoader.

		local($constname);
		
		($constname = $AUTOLOAD) =~ s/.*:://;
		
		#reset $! to zero to reset any current errors.
		$!=0;
		
		$val = constant($constname, @_ ? $_[0] : 0);
		
		if ($! != 0)
		{
				if ($! =~ /Invalid/)
				{
						$AutoLoader::AUTOLOAD = $AUTOLOAD;
						goto &AutoLoader::AUTOLOAD;
				}
				else
				{
						my ($file,$line) = (caller)[1,2];
						die "Your vendor has not defined $Package macro $constname, used in $file at line $line.";
				}
		}
		
		eval "sub $AUTOLOAD { $val }";
		
		goto &$AUTOLOAD;
}

sub LogonControlQuery {Win32::Lanman::I_NetLogonControl2($_[0], &NETLOGON_CONTROL_QUERY, '', $_[1]);}
sub LogonControlReplicate {Win32::Lanman::I_NetLogonControl2($_[0], &NETLOGON_CONTROL_REPLICATE, '', $_[1]);}
sub LogonControlSynchronize {Win32::Lanman::I_NetLogonControl2($_[0], &NETLOGON_CONTROL_SYNCHRONIZE, '', $_[1]);}
sub LogonControlPdcReplicate {Win32::Lanman::I_NetLogonControl2($_[0], &NETLOGON_CONTROL_PDC_REPLICATE, '', $_[1]);}
sub LogonControlRediscover {Win32::Lanman::I_NetLogonControl2($_[0], &NETLOGON_CONTROL_REDISCOVER, $_[1], $_[2]);}
sub LogonControlTCQuery {Win32::Lanman::I_NetLogonControl2($_[0], &NETLOGON_CONTROL_TC_QUERY, $_[1], $_[2]);}
sub LogonControlTransportNotify {Win32::Lanman::I_NetLogonControl2($_[0], &NETLOGON_CONTROL_TRANSPORT_NOTIFY, '', $_[1]);}
sub LogonControlFindUser {Win32::Lanman::I_NetLogonControl2($_[0], &NETLOGON_CONTROL_FIND_USER, $_[1], $_[2]);}

sub LsaQueryAuditLogPolicy {Win32::Lanman::LsaQueryInformationPolicy($_[0], &PolicyAuditLogInformation, $_[1]);}
sub LsaQueryAuditEventsPolicy {Win32::Lanman::LsaQueryInformationPolicy($_[0], &PolicyAuditEventsInformation, $_[1]);}
sub LsaSetAuditEventsPolicy {Win32::Lanman::LsaSetInformationPolicy($_[0], &PolicyAuditEventsInformation, $_[1]);}
sub LsaQueryPrimaryDomainPolicy {Win32::Lanman::LsaQueryInformationPolicy($_[0], &PolicyPrimaryDomainInformation, $_[1]);}
sub LsaSetPrimaryDomainPolicy {Win32::Lanman::LsaSetInformationPolicy($_[0], &PolicyPrimaryDomainInformation, $_[1]);}
sub LsaQueryPdAccountPolicy {Win32::Lanman::LsaQueryInformationPolicy($_[0], &PolicyPdAccountInformation, $_[1]);}
sub LsaQueryAccountDomainPolicy {Win32::Lanman::LsaQueryInformationPolicy($_[0], &PolicyAccountDomainInformation, $_[1]);}
sub LsaSetAccountDomainPolicy {Win32::Lanman::LsaSetInformationPolicy($_[0], &PolicyAccountDomainInformation, $_[1]);}
sub LsaQueryServerRolePolicy {Win32::Lanman::LsaQueryInformationPolicy($_[0], &PolicyLsaServerRoleInformation, $_[1]);}
sub LsaSetServerRolePolicy {Win32::Lanman::LsaSetInformationPolicy($_[0], &PolicyLsaServerRoleInformation, $_[1]);}
sub LsaQueryReplicaSourcePolicy {Win32::Lanman::LsaQueryInformationPolicy($_[0], &PolicyLsaReplicaSourceInformation, $_[1]);}
sub LsaSetReplicaSourcePolicy {Win32::Lanman::LsaSetInformationPolicy($_[0], &PolicyLsaReplicaSourceInformation, $_[1]);}
sub LsaQueryDefaultQuotaPolicy {Win32::Lanman::LsaQueryInformationPolicy($_[0], &PolicyDefaultQuotaInformation, $_[1]);}
sub LsaSetDefaultQuotaPolicy {Win32::Lanman::LsaSetInformationPolicy($_[0], &PolicyDefaultQuotaInformation, $_[1]);}
sub LsaQueryAuditFullPolicy {Win32::Lanman::LsaQueryInformationPolicy($_[0], &PolicyAuditFullQueryInformation, $_[1]);}
sub LsaSetAuditFullPolicy {Win32::Lanman::LsaSetInformationPolicy($_[0], &PolicyAuditFullSetInformation, $_[1]);}
sub LsaQueryDnsDomainPolicy {Win32::Lanman::LsaQueryInformationPolicy($_[0], &PolicyDnsDomainInformation, $_[1]);}
sub LsaSetDnsDomainPolicy {Win32::Lanman::LsaSetInformationPolicy($_[0], &PolicyDnsDomainInformation, $_[1]);}

sub LsaQueryTrustedDomainNameInfo {Win32::Lanman::LsaQueryTrustedDomainInfo($_[0], $_[1], &TrustedDomainNameInformation, $_[2]);}
sub LsaQueryTrustedPosixOffsetInfo {Win32::Lanman::LsaQueryTrustedDomainInfo($_[0], $_[1], &TrustedPosixOffsetInformation, $_[2]);}
sub LsaQueryTrustedPasswordInfo {Win32::Lanman::LsaQueryTrustedDomainInfo($_[0], $_[1], &TrustedPasswordInformation, $_[2]);}

sub LsaSetTrustedDomainInfo {Win32::Lanman::LsaSetTrustedDomainInformation(@_);}
sub LsaSetTrustedDomainNameInfo {Win32::Lanman::LsaSetTrustedDomainInformation($_[0], $_[1], &TrustedDomainNameInformation, $_[2]);}
sub LsaSetTrustedPosixOffsetInfo {Win32::Lanman::LsaSetTrustedDomainInformation($_[0], $_[1], &TrustedPosixOffsetInformation, $_[2]);}
sub LsaSetTrustedPasswordInfo {Win32::Lanman::LsaSetTrustedDomainInformation($_[0], $_[1], &TrustedPasswordInformation, $_[2]);}

sub SE_CREATE_TOKEN_NAME {"SeCreateTokenPrivilege";}
sub SE_ASSIGNPRIMARYTOKEN_NAME {"SeAssignPrimaryTokenPrivilege";}
sub SE_LOCK_MEMORY_NAME {"SeLockMemoryPrivilege";}
sub SE_INCREASE_QUOTA_NAME {"SeIncreaseQuotaPrivilege";}
sub SE_UNSOLICITED_INPUT_NAME {"SeUnsolicitedInputPrivilege";}
sub SE_MACHINE_ACCOUNT_NAME {"SeMachineAccountPrivilege";}
sub SE_TCB_NAME {"SeTcbPrivilege";}
sub SE_SECURITY_NAME {"SeSecurityPrivilege";}
sub SE_TAKE_OWNERSHIP_NAME {"SeTakeOwnershipPrivilege";}
sub SE_LOAD_DRIVER_NAME {"SeLoadDriverPrivilege";}
sub SE_SYSTEM_PROFILE_NAME {"SeSystemProfilePrivilege";}
sub SE_SYSTEMTIME_NAME {"SeSystemtimePrivilege";}
sub SE_PROF_SINGLE_PROCESS_NAME {"SeProfileSingleProcessPrivilege";}
sub SE_INC_BASE_PRIORITY_NAME {"SeIncreaseBasePriorityPrivilege";}