home *** CD-ROM | disk | FTP | other *** search
/ HTML - Publishing on the Internet / html_cdrom.iso / system / w95perl / isp.bat < prev    next >
Encoding:
DOS Batch File  |  1995-11-19  |  4.3 KB  |  170 lines
  1. @rem = '
  2. @echo off
  3. perl %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
  4. goto endofperl
  5. ';
  6.  
  7. # isp.cmd - Perl 5 DUN script for a Generic Internet Service Provider
  8. # This PERL script was developed by Steve Scoggins 
  9. # Comments can be sent to me at Compuserve 74431,1332 
  10. # or via Internet at sscoggin@enet.net
  11. #
  12.  
  13. # Configuration stuff
  14. $HostName = "yourpc_hostname";
  15. $DefaultGateway = "NNN.NNN.NNN.NNN";
  16. $IPAddress = "NNN.NNN.NNN.NNN.NNN";
  17. $IPMask = "255.255.255.0";
  18. $IPDomain = "INTERNET_PROVIDER.COM";
  19. $SearchList = "INTERNET_PROVIDER.COM";
  20. $NameServer = "NNN.NNN.NNN.NNN";        #Primary DSN IP Address
  21. $NodeType = "1";                        # B-node
  22. $Lanabase = "0";
  23.  
  24. print "Generic Internet Service Provider\n";
  25.  
  26. require "nt.ph";
  27.  
  28. if ($HostName eq "") {
  29.     $HostName = NTNodeName;
  30. }
  31.  
  32. # Open TCP/IP key
  33.  
  34. $subkey_string = "System\\CurrentControlSet\\Services\\VxD\\MSTCP";
  35.  
  36. NTRegOpenKey(&HKEY_LOCAL_MACHINE, $subkey_string, $key) ||
  37.     die "MSTCP Key Open Failed\n";
  38.  
  39. NTRegSetValueEx($key, "HostName", 0, ®_SZ, $HostName) ||
  40.     print "Error setting HostName\n";
  41.  
  42. if (NTRegQueryValueEx($key, "HostName", $Reserved, $type, $val)) {
  43.     print "HostName: $val\n";
  44. } else {
  45.     print "Unable to get HostName\n";
  46. }
  47.  
  48. NTRegSetValueEx($key, "Domain", 0, ®_SZ, $IPDomain) ||
  49.     print "Error setting Domain\n";
  50.  
  51. if (NTRegQueryValueEx($key, "Domain", $reserved, $type, $val)) {
  52.     print "Domain: $val\n";
  53. } else {
  54.     print "Unable to get Domain\n";
  55. }
  56.  
  57. NTRegSetValueEx($key, "NameServer", 0, ®_SZ, $NameServer) ||
  58.     print "Error setting NameServer\n";
  59.  
  60. if (NTRegQueryValueEx($key, "NameServer", $reserved, $type, $val)) {
  61.     print "NameServer: $val\n";
  62. } else {
  63.     print "Unable to get NameServer\n";
  64. }
  65.  
  66. if (NTRegDeleteValue($key, "NameServer1")) {
  67.     print "Deleted NameServer1\n";
  68. } else {
  69.     print "NameServer1 already deleted\n";
  70. }
  71.  
  72. if (NTRegDeleteValue($key, "NameServer2")) {
  73.     print "Deleted NameServer2\n";
  74. } else {
  75.     print "NameServer2 already deleted\n";
  76. }
  77.  
  78. if (NTRegDeleteValue($key, "ScopeID")) {
  79.     print "Deleted ScopeID\n";
  80. } else {
  81.     print "ScopeID already deleted\n";
  82. }
  83.  
  84. NTRegSetValueEx($key, "NodeType", 0, ®_SZ, $NodeType) ||
  85.     print "Error setting NodeType\n";
  86.  
  87. if (NTRegQueryValueEx($key, "NodeType", $reserved, $type, $val)) {
  88.     print "NodeType: $val\n";
  89. } else {
  90.     print "Unable to get NodeType\n";
  91. }
  92.  
  93. NTRegSetValueEx($key, "SearchList", 0, ®_SZ, $SearchList) ||
  94.     print "Error setting SearchList\n";
  95.  
  96. if (NTRegQueryValueEx($key, "SearchList", $reserved, $type, $val)) {
  97.     print "SearchList: $val\n";
  98. } else {
  99.     print "Unable to get SearchList\n";
  100. }
  101.  
  102. NTRegSetValueEx ($key, "Lanabase", 0, ®_SZ, $Lanabase) ||
  103.     print "Error setting Lanabase\n";
  104.  
  105. if (NTRegQueryValueEx($key, "Lanabase", $reserved, $type, $val)) {
  106.     print "Lanabase: $val\n";
  107. } else {
  108.     print "Unable to get Lanabase\n";
  109. }
  110.  
  111. NTRegCloseKey($key);
  112.  
  113. # Open Logon key
  114.  
  115. $subkey_string = "Network\\Logon";
  116.  
  117. NTRegOpenKey(&HKEY_LOCAL_MACHINE, $subkey_string, $key) ||
  118.     die "Network Logon Key Open Failed\n";
  119.  
  120. if (NTRegQueryValueEx($key, "LMLogon", $reserved, $type, $binval)) {
  121.     # We need to force LMLogon off; it's bit 0 of the 32 bit value
  122.     @x = unpack(L, $binval);
  123.     $y = $x[0] & 0xfffffffe;
  124. } else {
  125.     print "Unable to get LMLogon\n";
  126.     $y = 0;
  127. }
  128. print "LMLogon: $y\n";
  129. $binval = pack(L, $y);
  130.  
  131. NTRegSetValueEx($key, "LMLogon", 0, ®_BINARY, $binval) ||
  132.     print "Error setting LMLogon\n";
  133.  
  134. NTRegCloseKey($key);
  135.  
  136. # Open NetTrans key
  137. # Using the Registry Editor please verify that your modem is 
  138. # installed under the same Key "0003"
  139. #
  140.  
  141. $subkey_string = "System\\CurrentControlSet\\Services\\Class\\NetTrans\\0003";
  142.  
  143. NTRegOpenKey(&HKEY_LOCAL_MACHINE, $subkey_string, $key) ||
  144.     die "NetTrans Key Open Failed\n";
  145.  
  146. if (NTRegDeleteValue($key, "DefaultGateway")) {
  147.     print "Deleted DefaultGateway\n";
  148. } else {
  149.     print "DefaultGateway already deleted\n";
  150. }
  151.  
  152. if (NTRegDeleteValue($key, "IPAddress")) {
  153.     print "Deleted IPAddress\n";
  154. } else {
  155.     print "IPAddress already deleted\n";
  156. }
  157.  
  158. if (NTRegDeleteValue($key, "IPMask")) {
  159.     print "Deleted IPMask\n";
  160. } else {
  161.     print "IPMask already deleted\n";
  162. }
  163.  
  164. NTRegCloseKey($key);
  165.  
  166. exit;
  167.  
  168. __END__
  169. :endofperl
  170.