5 use vars qw|$VERSION @ISA @EXPORT @EXPORT_OK|;
10 @ISA = qw|Exporter DynaLoader|;
16 OWNER_SECURITY_INFORMATION
17 GROUP_SECURITY_INFORMATION
18 DACL_SECURITY_INFORMATION
19 SACL_SECURITY_INFORMATION
47 CSIDL_DESKTOPDIRECTORY
51 CSIDL_COMMON_STARTMENU
54 CSIDL_COMMON_DESKTOPDIRECTORY
58 CSIDL_COMMON_FAVORITES
68 CSIDL_PROGRAM_FILES_COMMON
69 CSIDL_COMMON_TEMPLATES
70 CSIDL_COMMON_DOCUMENTS
71 CSIDL_COMMON_ADMINTOOLS
77 CSIDL_RESOURCES_LOCALIZED
82 # Routines available in core:
90 # Win32::FormatMessage ERRORCODE
91 # Win32::Spawn COMMAND, ARGS, PID
96 # We won't bother with the constant stuff, too much of a hassle. Just hard
100 sub WIN31_CLASS { &NULL }
102 sub OWNER_SECURITY_INFORMATION { 0x00000001 }
103 sub GROUP_SECURITY_INFORMATION { 0x00000002 }
104 sub DACL_SECURITY_INFORMATION { 0x00000004 }
105 sub SACL_SECURITY_INFORMATION { 0x00000008 }
107 sub MB_ICONHAND { 0x00000010 }
108 sub MB_ICONQUESTION { 0x00000020 }
109 sub MB_ICONEXCLAMATION { 0x00000030 }
110 sub MB_ICONASTERISK { 0x00000040 }
111 sub MB_ICONWARNING { 0x00000030 }
112 sub MB_ICONERROR { 0x00000010 }
113 sub MB_ICONINFORMATION { 0x00000040 }
114 sub MB_ICONSTOP { 0x00000010 }
117 # Newly added constants. These have an empty prototype, unlike the
118 # the ones above, which aren't prototyped for compatibility reasons.
121 sub SW_SHOWNORMAL () { 1 }
122 sub SW_SHOWMINIMIZED () { 2 }
123 sub SW_SHOWMAXIMIZED () { 3 }
124 sub SW_SHOWNOACTIVATE () { 4 }
126 sub CSIDL_DESKTOP () { 0x0000 } # <desktop>
127 sub CSIDL_PROGRAMS () { 0x0002 } # Start Menu\Programs
128 sub CSIDL_PERSONAL () { 0x0005 } # "My Documents" folder
129 sub CSIDL_FAVORITES () { 0x0006 } # <user name>\Favorites
130 sub CSIDL_STARTUP () { 0x0007 } # Start Menu\Programs\Startup
131 sub CSIDL_RECENT () { 0x0008 } # <user name>\Recent
132 sub CSIDL_SENDTO () { 0x0009 } # <user name>\SendTo
133 sub CSIDL_STARTMENU () { 0x000B } # <user name>\Start Menu
134 sub CSIDL_MYMUSIC () { 0x000D } # "My Music" folder
135 sub CSIDL_MYVIDEO () { 0x000E } # "My Videos" folder
136 sub CSIDL_DESKTOPDIRECTORY () { 0x0010 } # <user name>\Desktop
137 sub CSIDL_NETHOOD () { 0x0013 } # <user name>\nethood
138 sub CSIDL_FONTS () { 0x0014 } # windows\fonts
139 sub CSIDL_TEMPLATES () { 0x0015 }
140 sub CSIDL_COMMON_STARTMENU () { 0x0016 } # All Users\Start Menu
141 sub CSIDL_COMMON_PROGRAMS () { 0x0017 } # All Users\Start Menu\Programs
142 sub CSIDL_COMMON_STARTUP () { 0x0018 } # All Users\Startup
143 sub CSIDL_COMMON_DESKTOPDIRECTORY () { 0x0019 } # All Users\Desktop
144 sub CSIDL_APPDATA () { 0x001A } # Application Data, new for NT4
145 sub CSIDL_PRINTHOOD () { 0x001B } # <user name>\PrintHood
146 sub CSIDL_LOCAL_APPDATA () { 0x001C } # non roaming, user\Local Settings\Application Data
147 sub CSIDL_COMMON_FAVORITES () { 0x001F }
148 sub CSIDL_INTERNET_CACHE () { 0x0020 }
149 sub CSIDL_COOKIES () { 0x0021 }
150 sub CSIDL_HISTORY () { 0x0022 }
151 sub CSIDL_COMMON_APPDATA () { 0x0023 } # All Users\Application Data
152 sub CSIDL_WINDOWS () { 0x0024 } # GetWindowsDirectory()
153 sub CSIDL_SYSTEM () { 0x0025 } # GetSystemDirectory()
154 sub CSIDL_PROGRAM_FILES () { 0x0026 } # C:\Program Files
155 sub CSIDL_MYPICTURES () { 0x0027 } # "My Pictures", new for Win2K
156 sub CSIDL_PROFILE () { 0x0028 } # USERPROFILE
157 sub CSIDL_PROGRAM_FILES_COMMON () { 0x002B } # C:\Program Files\Common
158 sub CSIDL_COMMON_TEMPLATES () { 0x002D } # All Users\Templates
159 sub CSIDL_COMMON_DOCUMENTS () { 0x002E } # All Users\Documents
160 sub CSIDL_COMMON_ADMINTOOLS () { 0x002F } # All Users\Start Menu\Programs\Administrative Tools
161 sub CSIDL_ADMINTOOLS () { 0x0030 } # <user name>\Start Menu\Programs\Administrative Tools
162 sub CSIDL_COMMON_MUSIC () { 0x0035 } # All Users\My Music
163 sub CSIDL_COMMON_PICTURES () { 0x0036 } # All Users\My Pictures
164 sub CSIDL_COMMON_VIDEO () { 0x0037 } # All Users\My Video
165 sub CSIDL_RESOURCES () { 0x0038 } # %windir%\Resources\, For theme and other windows resources.
166 sub CSIDL_RESOURCES_LOCALIZED () { 0x0039 } # %windir%\Resources\<LangID>, for theme and other windows specific resources.
167 sub CSIDL_CDBURN_AREA () { 0x003B } # <user name>\Local Settings\Application Data\Microsoft\CD Burning
169 ### This method is just a simple interface into GetOSVersion(). More
170 ### specific or demanding situations should use that instead.
172 my ($found_os, $found_desc);
175 my ($os,$desc,$major, $minor, $build, $id)=("","");
176 unless (defined $found_os) {
177 # If we have a run this already, we have the results cached
180 # Use the standard API call to determine the version
181 ($desc, $major, $minor, $build, $id) = Win32::GetOSVersion();
183 # If id==0 then its a win32s box -- Meaning Win3.11
188 # Magic numbers from MSDN documentation of OSVERSIONINFO
189 # Most version names can be parsed from just the id and minor
206 # This _really_ shouldnt happen. At least not for quite a while
207 # Politely warn and return undef
208 unless (defined $os) {
209 warn qq[Windows version [$id:$major:$minor] unknown!];
215 # But distinguising W2k from NT4 requires looking at the major version
216 if ($os eq "2000" && $major != 5) {
220 # For the rest we take a look at the build numbers and try to deduce
221 # the exact release name, but we put that in the $desc
222 elsif ($os eq "95") {
223 if ($build eq '67109814') {
226 elsif ($build eq '67306684') {
229 elsif ($build eq '67109975') {
233 elsif ($os eq "98" && $build eq '67766446') {
239 $desc = "$tag $desc";
246 # cache the results, so we dont have to do this again
247 $found_os = "Win$os";
251 return wantarray ? ($found_os, $found_desc) : $found_os;
262 Win32 - Interfaces to some Win32 API Functions
266 Perl on Win32 contains several functions to access Win32 APIs. Some
267 are included in Perl itself (on Win32) and some are only available
268 after explicitly requesting the Win32 module with:
272 The builtin functions are marked as [CORE] and the other ones
273 as [EXT] in the following alphabetical listing.
275 =head2 Alphabetical Listing of Win32 Functions
279 =item Win32::AbortSystemShutdown(MACHINE)
281 [EXT] Aborts a system shutdown (started by the
282 InitiateSystemShutdown function) on the specified MACHINE.
284 =item Win32::BuildNumber()
286 [CORE] Returns the ActivePerl build number. This function is
287 only available in the ActivePerl binary distribution.
289 =item Win32::CopyFile(FROM, TO, OVERWRITE)
291 [CORE] The Win32::CopyFile() function copies an existing file to a new
292 file. All file information like creation time and file attributes will
293 be copied to the new file. However it will B<not> copy the security
294 information. If the destination file already exists it will only be
295 overwritten when the OVERWRITE parameter is true. But even this will
296 not overwrite a read-only file; you have to unlink() it first
299 =item Win32::DomainName()
301 [CORE] Returns the name of the Microsoft Network domain that the
302 owner of the current perl process is logged into. This function does
303 B<not> work on Windows 9x.
305 =item Win32::ExpandEnvironmentStrings(STRING)
307 [EXT] Takes STRING and replaces all referenced environment variable
308 names with their defined values. References to environment variables
309 take the form C<%VariableName%>. Case is ignored when looking up the
310 VariableName in the environment. If the variable is not found then the
311 original C<%VariableName%> text is retained. Has the same effect
314 $string =~ s/%([^%]*)%/$ENV{$1} || "%$1%"/eg
316 =item Win32::FormatMessage(ERRORCODE)
318 [CORE] Converts the supplied Win32 error number (e.g. returned by
319 Win32::GetLastError()) to a descriptive string. Analogous to the
320 perror() standard-C library function. Note that C<$^E> used
321 in a string context has much the same effect.
323 C:\> perl -e "$^E = 26; print $^E;"
324 The specified disk or diskette cannot be accessed
326 =item Win32::FsType()
328 [CORE] Returns the name of the filesystem of the currently active
329 drive (like 'FAT' or 'NTFS'). In list context it returns three values:
330 (FSTYPE, FLAGS, MAXCOMPLEN). FSTYPE is the filesystem type as
331 before. FLAGS is a combination of values of the following table:
333 0x00000001 supports case-sensitive filenames
334 0x00000002 preserves the case of filenames
335 0x00000004 supports Unicode in filenames
336 0x00000008 preserves and enforces ACLs
337 0x00000010 supports file-based compression
338 0x00000020 supports disk quotas
339 0x00000040 supports sparse files
340 0x00000080 supports reparse points
341 0x00000100 supports remote storage
342 0x00008000 is a compressed volume (e.g. DoubleSpace)
343 0x00010000 supports object identifiers
344 0x00020000 supports the Encrypted File System (EFS)
346 MAXCOMPLEN is the maximum length of a filename component (the part
347 between two backslashes) on this file system.
349 =item Win32::FreeLibrary(HANDLE)
351 [EXT] Unloads a previously loaded dynamic-link library. The HANDLE is
352 no longer valid after this call. See L<LoadLibrary|Win32::LoadLibrary(LIBNAME)>
353 for information on dynamically loading a library.
355 =item Win32::GetArchName()
357 [EXT] Use of this function is deprecated. It is equivalent with
358 $ENV{PROCESSOR_ARCHITECTURE}. This might not work on Win9X.
360 =item Win32::GetChipName()
362 [EXT] Returns the processor type: 386, 486 or 586 for Intel processors,
363 21064 for the Alpha chip.
365 =item Win32::GetCwd()
367 [CORE] Returns the current active drive and directory. This function
368 does not return a UNC path, since the functionality required for such
369 a feature is not available under Windows 95.
371 =item Win32::GetFolderPath(FOLDER [, CREATE])
373 [EXT] Returns the full pathname of one of the Windows special folders.
374 The folder will be created if it doesn't exist and the optional CREATE
375 argument is true. The following FOLDER constants are defined by the
376 Win32 module, but only exported on demand:
381 CSIDL_COMMON_ADMINTOOLS
383 CSIDL_COMMON_DESKTOPDIRECTORY
384 CSIDL_COMMON_DOCUMENTS
385 CSIDL_COMMON_FAVORITES
387 CSIDL_COMMON_PICTURES
388 CSIDL_COMMON_PROGRAMS
389 CSIDL_COMMON_STARTMENU
391 CSIDL_COMMON_TEMPLATES
395 CSIDL_DESKTOPDIRECTORY
410 CSIDL_PROGRAM_FILES_COMMON
413 CSIDL_RESOURCES_LOCALIZED
421 Note that not all folders are defined on all versions of Windows.
423 Please refer to the MSDN documentation of the CSIDL constants,
424 currently available at:
426 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp
428 =item Win32::GetFullPathName(FILENAME)
430 [CORE] GetFullPathName combines the FILENAME with the current drive
431 and directory name and returns a fully qualified (aka, absolute)
432 path name. In list context it returns two elements: (PATH, FILE) where
433 PATH is the complete pathname component (including trailing backslash)
434 and FILE is just the filename part. Note that no attempt is made to
435 convert 8.3 components in the supplied FILENAME to longnames or
436 vice-versa. Compare with Win32::GetShortPathName and
437 Win32::GetLongPathName.
439 =item Win32::GetLastError()
441 [CORE] Returns the last error value generated by a call to a Win32 API
442 function. Note that C<$^E> used in a numeric context amounts to the
445 =item Win32::GetLongPathName(PATHNAME)
447 [CORE] Returns a representation of PATHNAME composed of longname
448 components (if any). The result may not necessarily be longer
449 than PATHNAME. No attempt is made to convert PATHNAME to the
450 absolute path. Compare with Win32::GetShortPathName and
451 Win32::GetFullPathName.
453 =item Win32::GetNextAvailDrive()
455 [CORE] Returns a string in the form of "<d>:" where <d> is the first
456 available drive letter.
458 =item Win32::GetOSVersion()
460 [CORE] Returns the list (STRING, MAJOR, MINOR, BUILD, ID), where the
461 elements are, respectively: An arbitrary descriptive string, the major
462 version number of the operating system, the minor version number, the
463 build number, and a digit indicating the actual operating system.
464 For the ID, the values are 0 for Win32s, 1 for Windows 9X/Me and 2 for
465 Windows NT/2000/XP/2003. In scalar context it returns just the ID.
467 Currently known values for ID MAJOR and MINOR are as follows:
474 Windows NT 3.51 2 3 51
478 Windows Server 2003 2 5 2
480 On Windows NT 4 SP6 and later this function returns the following
481 additional values: SPMAJOR, SPMINOR, SUITEMASK, PRODUCTTYPE.
483 SPMAJOR and SPMINOR are are the version numbers of the latest
484 installed service pack.
486 SUITEMASK is a bitfield identifying the product suites available on
487 the system. Known bits are:
489 VER_SUITE_SMALLBUSINESS 0x00000001
490 VER_SUITE_ENTERPRISE 0x00000002
491 VER_SUITE_BACKOFFICE 0x00000004
492 VER_SUITE_COMMUNICATIONS 0x00000008
493 VER_SUITE_TERMINAL 0x00000010
494 VER_SUITE_SMALLBUSINESS_RESTRICTED 0x00000020
495 VER_SUITE_EMBEDDEDNT 0x00000040
496 VER_SUITE_DATACENTER 0x00000080
497 VER_SUITE_SINGLEUSERTS 0x00000100
498 VER_SUITE_PERSONAL 0x00000200
499 VER_SUITE_BLADE 0x00000400
500 VER_SUITE_EMBEDDED_RESTRICTED 0x00000800
501 VER_SUITE_SECURITY_APPLIANCE 0x00001000
503 The VER_SUITE_xxx names are listed here to crossreference the Microsoft
504 documentation. The Win32 module does not provide symbolic names for these
507 PRODUCTTYPE provides additional information about the system. It should
508 be one of the following integer values:
510 1 - Workstation (NT 4, 2000 Pro, XP Home, XP Pro)
514 =item Win32::GetOSName()
516 [EXT] In scalar context returns the name of the Win32 operating system
517 being used. In list context returns a two element list of the OS name
518 and whatever edition information is known about the particular build
519 (for Win9X boxes) and whatever service packs have been installed.
520 The latter is roughly equivalent to the first item returned by
521 GetOSVersion() in list context.
523 Currently the possible values for the OS name are
525 Win32s Win95 Win98 WinMe WinNT3.51 WinNT4 Win2000 WinXP/.Net Win2003
527 This routine is just a simple interface into GetOSVersion(). More
528 specific or demanding situations should use that instead. Another
529 option would be to use POSIX::uname(), however the latter appears to
530 report only the OS family name and not the specific OS. In scalar
531 context it returns just the ID.
533 The name "WinXP/.Net" is used for historical reasons only, to maintain
534 backwards compatibility of the Win32 module. Windows .NET Server has
535 been renamed as Windows 2003 Server before final release and uses a
536 different major/minor version number than Windows XP.
538 =item Win32::GetShortPathName(PATHNAME)
540 [CORE] Returns a representation of PATHNAME composed only of
541 short (8.3) path components. The result may not necessarily be
542 shorter than PATHNAME. Compare with Win32::GetFullPathName and
543 Win32::GetLongPathName.
545 =item Win32::GetProcAddress(INSTANCE, PROCNAME)
547 [EXT] Returns the address of a function inside a loaded library. The
548 information about what you can do with this address has been lost in
549 the mist of time. Use the Win32::API module instead of this deprecated
552 =item Win32::GetTickCount()
554 [CORE] Returns the number of milliseconds elapsed since the last
555 system boot. Resolution is limited to system timer ticks (about 10ms
556 on WinNT and 55ms on Win9X).
558 =item Win32::InitiateSystemShutdown
560 (MACHINE, MESSAGE, TIMEOUT, FORCECLOSE, REBOOT)
562 [EXT] Shutsdown the specified MACHINE, notifying users with the
563 supplied MESSAGE, within the specified TIMEOUT interval. Forces
564 closing of all documents without prompting the user if FORCECLOSE is
565 true, and reboots the machine if REBOOT is true. This function works
568 =item Win32::IsAdminUser()
570 [EXT] Returns non zero if the account in whose security context the
571 current process/thread is running belongs to the local group of
572 Administrators in the built-in system domain; returns 0 if not.
573 Returns the undefined value and prints a warning if an error occurred.
574 This function always returns 1 on Win9X.
576 =item Win32::IsWinNT()
578 [CORE] Returns non zero if the Win32 subsystem is Windows NT.
580 =item Win32::IsWin95()
582 [CORE] Returns non zero if the Win32 subsystem is Windows 95.
584 =item Win32::LoadLibrary(LIBNAME)
586 [EXT] Loads a dynamic link library into memory and returns its module
587 handle. This handle can be used with Win32::GetProcAddress and
588 Win32::FreeLibrary. This function is deprecated. Use the Win32::API
591 =item Win32::LoginName()
593 [CORE] Returns the username of the owner of the current perl process.
595 =item Win32::LookupAccountName(SYSTEM, ACCOUNT, DOMAIN, SID, SIDTYPE)
597 [EXT] Looks up ACCOUNT on SYSTEM and returns the domain name the SID and
600 =item Win32::LookupAccountSID(SYSTEM, SID, ACCOUNT, DOMAIN, SIDTYPE)
602 [EXT] Looks up SID on SYSTEM and returns the account name, domain name,
605 =item Win32::MsgBox(MESSAGE [, FLAGS [, TITLE]])
607 [EXT] Create a dialogbox containing MESSAGE. FLAGS specifies the
608 required icon and buttons according to the following table:
612 2 = Abort, Retry, and Ignore
613 3 = Yes, No and Cancel
617 MB_ICONSTOP "X" in a red circle
618 MB_ICONQUESTION question mark in a bubble
619 MB_ICONEXCLAMATION exclamation mark in a yellow triangle
620 MB_ICONINFORMATION "i" in a bubble
622 TITLE specifies an optional window title. The default is "Perl".
624 The function returns the menu id of the selected push button:
636 =item Win32::NodeName()
638 [CORE] Returns the Microsoft Network node-name of the current machine.
640 =item Win32::RegisterServer(LIBRARYNAME)
642 [EXT] Loads the DLL LIBRARYNAME and calls the function DllRegisterServer.
644 =item Win32::SetChildShowWindow(SHOWWINDOW)
646 [CORE] Sets the I<ShowMode> of child processes started by system().
647 By default system() will create a new console window for child
648 processes if Perl itself is not running from a console. Calling
649 SetChildShowWindow(0) will make these new console windows invisible.
650 Calling SetChildShowWindow() without arguments reverts system() to the
651 default behavior. The return value of SetChildShowWindow() is the
652 previous setting or C<undef>.
654 [EXT] The following symbolic constants for SHOWWINDOW are available
655 (but not exported) from the Win32 module: SW_HIDE, SW_SHOWNORMAL,
656 SW_SHOWMINIMIZED, SW_SHOWMAXIMIZED and SW_SHOWNOACTIVATE.
658 =item Win32::SetCwd(NEWDIRECTORY)
660 [CORE] Sets the current active drive and directory. This function does not
661 work with UNC paths, since the functionality required to required for
662 such a feature is not available under Windows 95.
664 =item Win32::SetLastError(ERROR)
666 [CORE] Sets the value of the last error encountered to ERROR. This is
667 that value that will be returned by the Win32::GetLastError()
670 =item Win32::Sleep(TIME)
672 [CORE] Pauses for TIME milliseconds. The timeslices are made available
673 to other processes and threads.
675 =item Win32::Spawn(COMMAND, ARGS, PID)
677 [CORE] Spawns a new process using the supplied COMMAND, passing in
678 arguments in the string ARGS. The pid of the new process is stored in
679 PID. This function is deprecated. Please use the Win32::Process module
682 =item Win32::UnregisterServer(LIBRARYNAME)
684 [EXT] Loads the DLL LIBRARYNAME and calls the function