Index: buildme.pl
===================================================================
--- buildme.pl	(revision 30395)
+++ buildme.pl	(working copy)
@@ -803,7 +803,7 @@
 			"InternalName=squeezesvc",
 		));
 
-		system("cd $buildDir/platforms/win32; perlapp --perl \"$windowsPerlPath\" --info \"$programInfo\" --clean --force squeezesvc.pl");
+		system("cd $buildDir/platforms/win32; perlapp --perl \"$windowsPerlPath\" --info \"$programInfo\" --clean --bind=grant.exe[file=../../server/Bin/MSWin32-x86-multi-thread/grant.exe,mode=666] --force squeezesvc.pl");
 		move("$buildDir/platforms/win32/squeezesvc.exe", "$buildDir/build/server/squeezesvc.exe");
 
 
Index: platforms/win32/squeezesvc.pl
===================================================================
--- platforms/win32/squeezesvc.pl	(revision 30395)
+++ platforms/win32/squeezesvc.pl	(working copy)
@@ -28,6 +28,16 @@
 	
 	# try to use Windows' SC tool first - much faster than using the server binary
 	if ($sc) {
+	
+		# configure user to run the server - he needs the right to logon as a service
+		if ($username) {
+			my $user = $username;
+			$user =~ s/^.*\\//;
+			
+			my $grant = PerlApp::extract_bound_file('grant.exe');
+			`$grant add SeServiceLogonRight $user` if $username && $grant;
+		}
+
 		my $args = '';
 		
 		$args .= " obj= $username" if $username;