"Norström, Daniel" <[EMAIL PROTECTED]> writes:
> Hi Shad and Pat,
>
> I would need to be able to use todo.pl outside building the
> machine. For security reasons, I'm building the machines on a
> separate network and what I would like is to have the possibility to
> install applications on top in the "real" environment.
>
> What I've done:
>
> I've copied the todo.pl file over from the \BIN folder to a new
> server with the applications and script I would like to install, but
> when posting jobs to the script it complains over that is hasn't got
> the connection to the Z:\ Drive. Out of my understanding I don't
> need to have any contact to the Z:\ drive server (except for the
> todo.pl file) since I have the drive where I would like to install
> the applications from mapped from the logon script.
Which drive letter are you using?
The scripts we provide assume %Z% holds the drive letter. If you want
to use, say, the X: drive instead, you would put this in
C:\netinst\permcreds.bat:
set Z=X:
If you are using just your own scripts which do not refer to %Z%, then
you are right, this should not be necessary...
> the error code is
> Unable to GetUNCName for Z:: This network connection does not exist at
> P:\scripts\files\Bin\todo.pl line 185.
...but right now, todo.pl attempts to locate the UNC path for the Z:
drive (as defined by the %Z% variable), so that it can set %Z_PATH%,
which some of our scripts also use.
In addition to causing your problem, this prevents %Z% from being a
local drive. This in turn gets in the way of (say) using a DVD-ROM
for installation. So I have fixed it in the next release.
Patch for todo.pl is appended.
- Pat
--- todo.pl.~1.32.~ 2004-01-16 15:02:16.000000000 -0500
+++ todo.pl 2004-03-23 14:21:11.000000000 -0500
@@ -266,9 +266,12 @@
return $lang_table{$langid};
}
-# Get the UNC path for a networked drive.
+# For input letter X, return the UNC path to which X: is connected.
+# If X is a not a networked drive, return "X:".
+use constant ERROR_NOT_CONNECTED => 2250;
sub get_drive_path ($) {
my ($drive) = @_;
+ my $ret;
$drive =~ /^[a-z]:?$/i
or die "Invalid drive specification $drive";
@@ -277,10 +280,18 @@
$drive =~ /:$/
or $drive .= ':';
- my $unc_name;
- Win32::NetResource::GetUNCName ($unc_name, $drive)
- or die "Unable to GetUNCName for $drive: $^E";
- return $unc_name;
+ if (Win32::NetResource::GetUNCName ($ret, $drive)) {
+ # all done
+ }
+ elsif ($^E == ERROR_NOT_CONNECTED) {
+ # Not a network drive, so just return the drive letter itself.
+ $ret = $drive;
+ }
+ else {
+ die "Unable to GetUNCName for $drive: $^E";
+ }
+
+ return $ret;
}
# Set up console for single-character input and autoflush output.
-------------------------------------------------------
This SF.Net email is sponsored by: IBM Linux Tutorials
Free Linux tutorial presented by Daniel Robbins, President and CEO of
GenToo technologies. Learn everything from fundamentals to system
administration.http://ads.osdn.com/?ad_id70&alloc_id638&op=click
_______________________________________________
unattended-info mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/unattended-info
