z394326635 发表于 2009-8-10 14:34:00

alin 发表于 2009-8-11 11:24:00

;;;VxListNetworkDrives - Returns a list of all mapped network drives with UNC...<br/><br/>;<br/>; -- Function VxListNetworkDrives<br/>; Returns a list of all mapped network drives with UNC path.<br/>; Copyright:<br/>;   ©2005 MENZI ENGINEERING GmbH, Switzerland<br/>; Arguments :<br/>;   --- = <br/>; Return :<br/>;   &gt; List of mapped drives '(("X:" . "\\\\Server\\Xpath")...) <br/>; Notes:<br/>;   - Requires ScrRun.dll (see also notes at top of page).<br/>;<br/>(defun VxListNetworkDrives ( / DrvCol ItmCnt RetVal WsnObj)<br/> (setq WsnObj (vlax-create-object "WScript.Network")<br/>       DrvCol (vlax-invoke WsnObj 'EnumNetworkDrives)<br/>       ItmCnt 0<br/> )<br/> (repeat (/ (vlax-invoke DrvCol 'Count) 2)<br/>  (setq RetVal (cons<br/>                (cons<br/>                 (strcase (vla-Item DrvCol ItmCnt))<br/>                 (vla-Item DrvCol (1+ ItmCnt))<br/>                )<br/>                RetVal<br/>               )<br/>        ItmCnt (+ ItmCnt 2)<br/>  )<br/> )<br/> (vlax-release-object WsnObj)<br/> (reverse RetVal)<br/>)<br/><br/><br/>;;;VxRemapNetworkDrives - Remaps a network drive to another drive letter<br/><br/>;<br/>; -- Function VxRemapNetworkDrive<br/>; Remaps a network drive to another drive letter.<br/>; Copyright:<br/>;   ©2005 MENZI ENGINEERING GmbH, Switzerland<br/>; Arguments :<br/>;   Old = Old drive letter, e.g. "X:" <br/>;   New = New drive letter, e.g. "Y:" <br/>; Return :<br/>;   &gt; True: Remapping successful<br/>;   &gt; False: Remapping failed<br/>; Notes:<br/>;   - Requires ScrRun.dll (see also notes at top of page).<br/>;<br/>(defun VxRemapNetworkDrive (Old New / OldUnc RetVal WsnObj)<br/> (setq WsnObj (vlax-create-object "WScript.Network")<br/>       OldUnc (cdr (assoc (strcase Old) (VxListNetworkDrives)))<br/> )<br/> (cond<br/>  ((vl-catch-all-apply<br/>    'vlax-invoke<br/>    (list WsnObj 'RemoveNetworkDrive Old :vlax-true :vlax-true)<br/>   )<br/>  )<br/>  ((vl-catch-all-apply<br/>    'vlax-invoke<br/>    (list WsnObj 'MapNetworkDrive New OldUnc :vlax-true)<br/>   )<br/>  )<br/>  ((setq RetVal T))<br/> )<br/> (vlax-release-object WsnObj)<br/> RetVal<br/>)<div class="htmlcode"></div>

z394326635 发表于 2009-8-11 15:17:00

页: [1]
查看完整版本: LISP 改驱动器序列号